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

Assign(g1, 'G1Merge.itm');

Assign(g2,'G2Merge.itm');

rewrite(f1);rewrite(f2);

rewrite(g1);rewrite(g2);

reset(f0);

n:=0;

while not eof(f0) do

begin

read(f0,buf);

write(f1,buf);

inc(n);

if not eof(f0) then

begin

read(f0,buf);

write(f2,buf);

inc(n);

end;

end;

flag:=true;k:=1;

Close(f1);Close(f2);Close(f0);

n:=trunc(ln(n)/ln(2))+1;

for i:=1 to n do

begin

if flag then merge(k,f1,f2,g1,g2)

else merge(k,g1,g2,f1,f2);

flag:= not flag;

k:=k*2;

end;

rewrite(f0);reset(g1);reset(f1);