Сортировка и подсчет данных

[CrownedClown]

Program qsort;
  uses crt;
  Type
    list = array[1..40] of integer;
  Var
    data: list;
    i,max,maxn,z: integer;
    s:char;
  Procedure quicksort(Var a: list;Lo,Hi: integer);
  Procedure sort(l,r: integer);
  Var
    i,j,x,y: integer;
  Begin
    i:=l;
    j:=r;
    x:=a[(l+r) div 2];
    Repeat
      While a[i]<x do
        i:=i+1;
      While x<a[j] do
        j:=j-1;
      If i<=j then
        Begin
          y:=a[i];
          a[i]:=a[j];
          a[j]:=y;
          i:=i+1;
          j:=j-1;
        end;
    until i>j;
  If l<j then
    sort(l,j);
  If i<r then
    sort(i,r);
  end;
  Begin
  {quicksort};
    sort(Lo,Hi);
  end;
  Begin
    ClrScr;
  {qsort}
{$I-}
    repeat
       writeln('Vvedite max koli4estvo elementov(ot 1 do 40)');
       readln(max);
       if IOResult<>0 then
          writeln('NEVERNII 4islovoi format');
       if (max<1) or (max>40) then
          writeln('Nevernoe znachenie max, povtorite vvod');
    until (max>=1) and (max<=40) and (IOResult=0);
    repeat
       writeln('Vvedite max 4islo v massive ne bolshe 99');
       readln(maxn);
        if IOResult<>0 then
          writeln('NEVERNII 4islovoi format');
       if maxn>99 then
          writeln('Nevernoe znachenie maxn, povtorite vvod');
    until (maxn<=99) and (IOResult=0);
    repeat
       writeln('4usla vvodyatsya randomno(press y), ili s lkaviaturi(press n)?');
       s:=readkey;
    until (s=#89) or (s=#78) or (s=#121) or (s=#110);
    if (s=#89) or (s=#121) then begin
       For i:=1 to max do
         data[i]:=random(maxn);
    end;
    if (s=#78) or (s=#110) then begin
       writeln('Vvedite elementi massiva ne bolshe ',maxn);
       For i:=1 to max do begin
         repeat
            readln(z);
            if IOResult<>0 then
               writeln('NEVERNII 4islovoi format');
            if z>maxn then
               writeln('4isla dolzni bit ne bolshe ',maxn,' Povtorite vvod!');
         until(z<=maxn) and (IOResult=0);
         data[i]:=z;
         end;
    end;
{$I+}
    WriteLn;
    WriteLn('Sortirovka 4isel:');
    quicksort(data,1,max);
    WriteLn;
    For i:=1 to max do
      WriteLn(data[i]:8);
      Writeln('Press any key for exit');
      readkey;
  end.

Как видите программа сортировки написана, но она еще должна выводить результаты работы как в пошаговом, так и в автоматическом режиме, плюс выводить число сравнений и сортировок. Надеюсь на вашу помощь



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[mss]

И чем же тебе помочь ?

[Stilet]

выводить результаты работы как в пошаговом

Т.е.? Накидать Readln в каждый цикл?
Что имеется ввиду под этими режимами работы.

[CrownedClown]

"Пошаговый режим, это ввод переменных в ручную" -это уже сделал,
Мне необходимо, чтобы это программа еще выводила число сравнений и перестановок(

[mss]

необходимо, чтобы это программа еще выводила число сравнений и перестановок

Ну и ?
Ты не знаешь где в ТВОЕМ (ли ?) коде в подпрограмме qsort фигурируют сравнения и перестановки ?
Или тебя напрягает добавить пару переменных (сч-к сравнени и сч-к перестановок) и инкрементировать каждую из них соответственно перед сравнением и перед перестановкой ?

[CrownedClown]

Хех, на счет МОЯ (ли?) можешь не сомневаться моя, корпел очень долго над ней, меня не напрягает, я просто не могу понять какой код еще надо написать для того, чтобы он считал, а куда и так понятно>_< Да даже если бы и напрягало мог бы хотя бы ссылку дать на материал где, написано про, подсчет каких-то действий. Словами кидаться каждый может... А я обращаю за помощью не потому, что лень, а из-за незнания материала так, как в моем учебном пособие не нашел, можешь считать глаза косые так, как не спал уже 2 ночь из-за сроков, к этому заданию... Живу дома и нету роскоши общажной жизни, где можно спросить и узнать на 2 года вперед...