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

end;

TFile=file of Item;

var

f0:TFile;

procedure NMerge(k:integer;var f1,f2,f3,f4,g1,g2,g3,g4:TFile);

var outSwitch:1..4;

Winner:integer;

Used:array[1..4] of integer;

Fin:array[1..4]of boolean;

Current:array[1..4]of Item;

Tree:array[1..7]of Item;

History:array[1..7]of integer;

procedure CompareTree;

begin

if Tree[7].key<Tree[6].key then

begin

Tree[3]:=Tree[7];

History[3]:=History[7];

end

else

begin

Tree[3]:=Tree[6];

History[3]:=History[6];

end;

if Tree[5].key<Tree[4].key then

begin

Tree[2]:=Tree[5];

History[2]:=History[5];

end