Курсовая работа: Порівняльний аналіз ефективності та складності алгоритмів сортування файлів і послідовностей

writeln('-------------poslidovnist D-----------');

writeln('kilist elementiv = ', a);

for i:=1 to a do write(d[i]:4:2,' ');

i:=1; j:=1; n:=0;

while (i<=p) and (j<=a) do

begin

inc(n);

if c[i]>d[j] then begin

f[n]:=d[j];

inc(j);

end

else begin

f[n]:=c[i];

inc(i);

end;

end;

while i<=p do

begin

inc(n); f[n]:=c[i]; inc(i);

end;

while j<=a do

begin

inc(n); f[n]:=d[j]; inc(j);

end;

writeln;

writeln('-------------------Sformovanui masuv-----------');

for i:=1 to p+a do write(f[i]:4:2,' ');

readln;

end.