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

read(f0,buf);

write(f2,buf);

inc(n);

end;

if not eof(f0) then

begin

read(f0,buf);

write(f3,buf);

inc(n);

end;

if not eof(f0) then

begin

read(f0,buf);

write(f4,buf);

inc(n);

end;

end;

flag:=true;k:=1;

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

Close(f3);Close(f4);

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

for i:=1 to n do

begin

if flag then NMerge(k,f1,f2,f3,f4,g1,g2,g3,g4)

else NMerge(k,g1,g2,g3,g4,f1,f2,f3,f4);

flag:= not flag;

k:=k*4;

end;

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