Сравнить скорости сортировок

Ombly

Сравнить скорости сортировок (шейкер и нерекурсивная) массива (20-100 тыс. элементов),с использованием секундомера. ЗЫ: буду очень благодарна,если будут комментарии,это так,для себя.
1 ответ

Ombly

Program ShakerSort;
Var A : array[1..25000] of integer;
N,i,j,p : integer;
Min, Max : integer;
Begin
randomize;
{writeln('Razmer massiva');
readln(N); }
n:=25000;
for i:=1 to n do
    A[i]:=random(50);
for i:=1 to n div 2 do begin
    if A[i]>A[i+1] then begin
       Min:=i+1;
       Max:=i;
                        end
       else begin
       Min:=i;
       Max:=i+1;
            end;
       for j:=i+2 to n-i+1 do
           if A[j]>A[Max] then Max:=j
           else
               if A[j] < A[min] then Min:=j;
       P:=A[i];
       A[i]:=A[min];
       A[min]:=P;
       if max=i then max:=min;
       P:=A[N-i+1];
       A[N-i+1]:=A[max];
       A[max]:=P;
                        end;
{for i:=1 to n do
    write(A[i],' ');  }
 
End.
const N=25000;
  var a: array[1..n ] of integer;
  i,j,c,c2: integer;
    begin
  for i:=1 to n do
    A[i]:=random(50);
for i:=1 to N-1 do begin
   c2:=i;
  for j:=i+1 to N do
     if a[c2]>a[j] then c2:=j;
    c:=a[i];a[i]:=a[c2];a[c2]:=c;
end;
{ for i:=1 to n do
    write(A[i],' ');}
end.