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

{багатофазне сортування з n - лентами}

Const n=6; {число лент}

Type item = record

Key:integer;

End;

Tape = file of item;

Tapeno = 1..n;

Var leng, rand: integer; {використовується для формування файлу}

Eot: Boolean;

Buf: item;

F0: tape; {f0 – вхідна лента із випадковими числами }

F: array [1..n] of tape;

Procedure List (var f: tape; n:tapeno);

Var z: integer;

Begin z:=0;

Writeln(‘TAPE’,n:2);

While not eof(f) do

Begin read(f,buf); write(output,buf.key: 5); z:=z+1;

If z=25 then

Begin writeln(output); z:=0

End;

End;

If z<>0 then writeln(output); reset(f);

End; {LIST}

Procedure Pholyphasesort;

Var I,j,mx,tn:tapeno;

K,level: integer;

A,d: array [tapeno] of integer;

{a[j] – ідеальне число серій на ленті }