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

Tree[8-i]:=Current[i];

Used[i]:=Used[i]+1;

end;

CompareTree;

end;

procedure MakeTree;

var q:integer;

begin

if not eof(f1) then

begin

read(f1,Tree[7]);

History[7]:=1;

Current[1]:=Tree[7];

end;

if not eof(f2) then

begin

read(f2,Tree[6]);

History[6]:=2;

Current[2]:=Tree[6];

end;

if not eof(f3) then

begin

read(f3,Tree[5]);

History[5]:=3;

Current[3]:=Tree[5];

end;

if not eof(f4) then

begin

read(f4,Tree[4]);