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

Dn, x, min, z:integer;

Last: array [tapeno] of integer;

{last[j] – ключ кінцевої серії на ленті}

T,ta: array [tapeno] of tapeno;

{карти номерів ленти}

Procedure selecttape;

Var i: tapeno; z:integer;

Begin

If d[j]<d[j+1] then j:=j+1 else

Begin if d[j]=0 then

Begin level:=level+1; z:=d[1];

For i:=1 to n-1 do

Begin d[i]:=z+a[i+1]-a[i]; a[i]:=z+a[i+1]

End;

End;

J:=1;

End;

D[j]:=d[j]-1;

End;

Procedure copyrun;

Begin {перепис однієї серії з f0 на ленту}

Repeat read(f0,buf); write(f[j],buf);

Until eof(f0) or (buf.key>f0.key);

Last[j]:=buf.key;

End;

Begin {розподіл початкових серій}

For i:=1 to n-1 do

Begin a[i]:=1; d[i]:=1; rewrite(f[i]);

End;