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

Close(f1);Close(f2);

Close(g3);Close(g4);

Close(f3);Close(f4);

end;

procedure NMergeSort(var f0:TFile);

var f1,f2,f3,f4,g1,g2,g3,g4:TFile;

i,n,k:integer;buf:Item;

flag:boolean;

begin

assign(f1,'F1Merge.itm');

assign(f2,'F2Merge.itm');

assign(f3,'F3Merge.itm');

assign(f4,'F4Merge.itm');

assign(g1,'G1Merge.itm');

assign(g2,'G2Merge.itm');

assign(g3,'G3Merge.itm');

assign(g4,'G4Merge.itm');

rewrite(f1);rewrite(f2);

rewrite(f3);rewrite(f4);

rewrite(g1);rewrite(g2);

rewrite(g3);rewrite(g4);

reset(f0);

n:=0;

while not eof(f0) do

begin

read(f0,buf);

write(f1,buf);

inc(n);

if not eof(f0) then