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

Автор: Bronislav

Bronislav — Wed, 15 Aug 2018 23:18:27 +0000

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.

Автор: Anton

Anton — Fri, 18 Mar 2016 16:24:47 +0000

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

Автор: olegst1975

olegst1975 — Fri, 18 Mar 2016 14:09:20 +0000

[crayon-69994e6c41f26630455356 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-69994e6c41f26630455356 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]