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

Repeat selecttape; copyrun

Until eof(f0) or (j=n-1);

While not eof(f) do

Begin selecttape;

If last[j]<=f0.key then

Begin {продовження попередньої серії}

Copyrun;

If oef(f0) then d[j]:=d[j]+1 else copyrun

End

Else copyrun

End;

For i:=1 to n-1 do reset(f[i]);

For i:=1 to n do t[i]:=I;

Repeat {злиття з t[1]…t[n-1] на t[n]}

Z:=a[n-1]; d[n]:=0; rewrite(f[t[n]]);

Repeat k:=0; {злиття однієї серії}

For I:=1 to n-1 do

If d[i]>0 then d[i]:=d[i]-1 else

Begin k:=k+1; ta[k]:=t[i];

End;

If k=0 then d[n]:=d[n]+1 else

Begin {злиття одного дійсного відрізка із t[1]…t[k]}

Repeat i:=1; mx:=1;

Min:=f[ta[1]].key;

While i<k do

Begin I:=i+1; x:=f[ta[i]].key;

If x<min then

Begin min:=x; mx:=i

End;