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

Current[4]:=Tree[4];

end;

CompareTree;

end;

begin

OutSwitch:=1;

rewrite(g1);rewrite(g2);

rewrite(g3);rewrite(g4);

reset(f1);reset(f2);

reset(f3);reset(f4);

while (not eof(f1)) or (not eof(f2))or (not eof(f3))or (not eof(f4)) do

begin

Used[1]:=1;Used[2]:=1;Used[3]:=1;Used[4]:=1;

Fin[1]:=false;Fin[2]:=false;Fin[3]:=false;Fin[4]:=false;

MakeTree;

while Tree[1].key<MaxInt do

begin

Winner:=History[1];

case OutSwitch of

1:write(g1,Current[Winner]);

2:write(g2,Current[Winner]);

3:write(g3,Current[Winner]);

4:write(g4,Current[Winner]);

end;

NGetItem(Winner);

end;

if OutSwitch=4 then OutSwitch:=1

else inc(OutSwitch);

end;