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

begin

Tree[2]:=Tree[4];

History[2]:=History[4];

end;

if Tree[3].key<Tree[2].key then

begin

Tree[1]:=Tree[3];

History[1]:=History[3];

end

else

begin

Tree[1]:=Tree[2];

History[1]:=History[2];

end;

end;

procedure NGetItem(i:integer);

begin

if(Used[i]=k)or((i=1)and eof(f1))or((i=2)and eof(f2))or((i=3)and eof(f3))or((i=4)and eof(f4)) then

begin

Fin[i]:=True;

Tree[8-i].key:=MaxInt;

end

else

begin

case i of

1:read(f1,Current[1]);

2:read(f2,Current[2]);

3:read(f3,Current[3]);

4:read(f4,Current[4]);