Решаем задачи Абрамян на Паскале. Array63

Array63. Даны два массива $$A$$ и $$B$$ размера $$5$$, элементы которых упорядочены по возрастанию. Объединить эти массивы так, чтобы результирующий массив $$C$$ (размера $$10$$) остался упорядоченным по возрастанию.

Решение:

program Array63;
var
  a,b:array[1..5] of integer;
  c:array[1..10] of integer;
  ka,kb,k:Integer;


begin
  Writeln('A: ');
  for k:=1 to 5 do
   begin

    write(k,' :');
    readln(a[k]);
   end;

  Writeln('B: ');
  for k:=1 to 5 do
   begin

    write(k,' :');
    readln(b[k]);
   end;


   ka:=1;
   kb:=1;

   for k:=1 to 10 do
    begin
     if ka>5 then
      begin
       c[k]:=b[kb];
       inc(kb);
      end
     else
     if kb>5 then
      begin
       c[k]:=a[ka];
       inc(ka);
      end
     else
     if a[ka]<b[kb] then
      begin
       c[k]:=a[ka];
       inc(ka);
      end
     else
      begin
       c[k]:=b[kb];
       inc(kb);
      end;
    end;


  Writeln('C:');
  for k:=1 to 10 do writeln(k,' :',c[k]);
end.

program Array63;

var

a,b:array[1..5] of integer;

c:array[1..10] of integer;

ka,kb,k:Integer;

begin

Writeln('A: ');

for k:=1 to 5 do

begin

write(k,' :');

readln(a[k]);

end;

Writeln('B: ');

for k:=1 to 5 do

begin

write(k,' :');

readln(b[k]);

end;

ka:=1;

kb:=1;

for k:=1 to 10 do

begin

if ka>5 then

begin

c[k]:=b[kb];

inc(kb);

end

else

if kb>5 then

begin

c[k]:=a[ka];

inc(ka);

end

else

if a[ka]<b[kb] then

begin

c[k]:=a[ka];

inc(ka);

end

else

begin

c[k]:=b[kb];

inc(kb);

end;

Writeln('C:');

for k:=1 to 10 do writeln(k,' :',c[k]);

end.

Решение от olegst1975:

type
  mas=array [1..10]of real;
var
  i:integer;
  ia:integer:=1;
  ib:integer:=1;
  ic:integer:=1;     
  a,b,c:mas;
 
procedure add_mass(var a,b,c:mas;ia,ib,ic:integer);
  begin
    if (ib=6)or((a[ia]<b[ib])and(ia<6)) then
                      begin
                        if ia=6 then exit;
                        c[ic]:=a[ia];
                        add_mass(a,b,c,ia+1,ib,ic+1);
                      end
                    else
                      begin                        
                        c[ic]:=b[ib];
                        add_mass(a,b,c,ia,ib+1,ic+1);
                      end;  
  end;
 
begin       
  for i:=1 to 5 do read(a[i]);
  for i:=1 to 5 do read(b[i]);  
  add_mass(a,b,c,ia,ib,ic);
  for i:=1 to 10 do write(c[i]);
end.

type

mas=array [1..10]of real;

var

i:integer;

ia:integer:=1;

ib:integer:=1;

ic:integer:=1;

a,b,c:mas;

procedure add_mass(var a,b,c:mas;ia,ib,ic:integer);

begin

if (ib=6)or((a[ia]<b[ib])and(ia<6)) then

begin

if ia=6 then exit;

c[ic]:=a[ia];

add_mass(a,b,c,ia+1,ib,ic+1);

end

else

begin

c[ic]:=b[ib];

add_mass(a,b,c,ia,ib+1,ic+1);

end;

begin

for i:=1 to 5 do read(a[i]);

for i:=1 to 5 do read(b[i]);

add_mass(a,b,c,ia,ib,ic);

for i:=1 to 10 do write(c[i]);

end.

Задачи из раздела Array можно посмотреть здесь.

Комментарии 3

[crayon-67437f116e039981361363 inline="true" ]
type
  mas=array [1..10]of real;
var
  i:integer;
  ia:integer:=1;
  ib:integer:=1;
  ic:integer:=1;     
  a,b,c:mas;

procedure add_mass(var a,b,c:mas;ia,ib,ic:integer);
  begin
    if (ib=6)or((a[ia]<b[ib])and(ia<6)) then
                      begin
                        if ia=6 then exit;
                        c[ic]:=a[ia];
                        add_mass(a,b,c,ia+1,ib,ic+1);
                      end
                    else
                      begin                        
                        c[ic]:=b[ib];
                        add_mass(a,b,c,ia,ib+1,ic+1);
                      end;  
  end;

begin       
  for i:=1 to 5 do read(a[i]);
  for i:=1 to 5 do read(b[i]);  
  add_mass(a,b,c,ia,ib,ic);
  for i:=1 to 10 do write(c[i]);
end.

[crayon-67437f116e039981361363 inline="true" ]

type

mas=array [1..10]of real;

var

i:integer;

ia:integer:=1;

ib:integer:=1;

ic:integer:=1;

a,b,c:mas;

procedure add_mass(var a,b,c:mas;ia,ib,ic:integer);

begin

if (ib=6)or((a[ia]<b[ib])and(ia<6)) then

begin

if ia=6 then exit;

c[ic]:=a[ia];

add_mass(a,b,c,ia+1,ib,ic+1);

end

else

begin

c[ic]:=b[ib];

add_mass(a,b,c,ia,ib+1,ic+1);

end;

begin

for i:=1 to 5 do read(a[i]);

for i:=1 to 5 do read(b[i]);

add_mass(a,b,c,ia,ib,ic);

for i:=1 to 10 do write(c[i]);

end.

[/crayon]

Ответить

Anton

18.03.2016 в 20:24

рекурсия… ну а почему бы и нет….
только конструкцию
ia:integer:=1;
ib:integer:=1;
ic:integer:=1;
первый раз вижу… как низко пал какой то компилятор 🙂

Ответить

program Array63;//fpc

type
  Arr = array[1..10] of integer;

procedure JoinSort(const a, b: Arr; var c: Arr; na, nb: integer);
var
  i1, i2, i: integer;
begin
  i1 := 1;
  i2 := 1;
  for i := 1 to na + nb do
    if (i1 > na) or ((i2 <= nb) and (a[i1] > b[i2])) then
    begin
      c[i] := b[i2];
      i2 += 1;
    end else
    begin
      c[i] := a[i1];
      i1 += 1;
    end;
end;

var
  a, b, c: Arr;
  na, nb, i: integer;

begin
  na := 5;
  nb := 5;
  
  for i := 1 to na do begin a[i] := i * 2; Write(a[i], ' '); end;
  Writeln;//2 4 6 8 10
  
  for i := 1 to nb do begin b[i] := i * 2 - 1; Write(b[i], ' '); end;
  Writeln;//1 3 5 7 9
  
  JoinSort(a, b, c, na, nb);
  
  for i := 1 to na + nb do Write(c[i], ' ');//1 2 3 4 5 6 7 8 9 10
  //  Readln;
end.

program Array63;//fpc

type

Arr = array[1..10] of integer;

procedure JoinSort(const a, b: Arr; var c: Arr; na, nb: integer);

var

i1, i2, i: integer;

begin

i1 := 1;

i2 := 1;

for i := 1 to na + nb do

if (i1 > na) or ((i2 <= nb) and (a[i1] > b[i2])) then

begin

c[i] := b[i2];

i2 += 1;

end else

begin

c[i] := a[i1];

i1 += 1;

end;

var

a, b, c: Arr;

na, nb, i: integer;

begin

na := 5;

nb := 5;

for i := 1 to na do begin a[i] := i * 2; Write(a[i], ' '); end;

Writeln;//2 4 6 8 10

for i := 1 to nb do begin b[i] := i * 2 - 1; Write(b[i], ' '); end;

Writeln;//1 3 5 7 9

JoinSort(a, b, c, na, nb);

for i := 1 to na + nb do Write(c[i], ' ');//1 2 3 4 5 6 7 8 9 10

// Readln;

end.

Ответить

Решаем задачи Абрамян на Паскале. Array63

Комментарии:

Комментарии 3

Добавить комментарий Отменить ответ