[Delphi] Сортировка массива

[koshkarjov]

Здравствуйте! Пишу программу, реализующую различные методы сортировок.
Застрял на методе быстрой сортировки, а именно при добавлении в процедуру подсчета числа сравнений и перестановок.

Компилятор выводит вот такие ошибки:

[Error] UnitMain.pas(193): Types of actual and formal var parameters must be identical
[Error] UnitMain.pas(194): Types of actual and formal var parameters must be identical
[Error] UnitMain.pas(258): Not enough actual parameters
[Error] UnitMain.pas(298): Types of actual and formal var parameters must be identical
[Fatal Error] T20_P1.dpr(5): Could not compile used unit 'UnitMain.pas'

Думаю, что я запутался где то в описании переменных...

Код программы можно посмотреть тут. (в сообщение не влез, т.к. превышен лимит символов). Сам проект также прикладываю: sort.rar

Заранее благодарен за помощь!

[Stilet]

procedure QuickSort (a: TArrayOfInteger; var Cmp, Sw, Left, Right: Integer; toShow: Boolean);

Сколько параметров?

if left<j then QuickSort(a, left, j, toShow);

А тут сколько?
Найди отличия

[koshkarjov]

Тогда получается так (sort.rar).
Теперь возникают ошибки при вызове функции:

[Hint] UnitMain.pas(180): Value assigned to 'N' never used
[Error] UnitMain.pas(257): Not enough actual parameters
[Error] UnitMain.pas(297): Types of actual and formal var parameters must be identical
[Fatal Error] T20_P1.dpr(5): Could not compile used unit 'UnitMain.pas'

Я так понимаю проблема опять в том, что я не все параметры передаю туда?

UPD: Исправлено, смотреть следующее сообщение.

[koshkarjov]

Исправил программу. Вроде все работает.
Единственное, что непонятно, почему при выводе массив чисел выглядит так:

Дожно же выводить только 4 элемента. Почему идет повтор?

Код программы тут.

[Sciv]

Еще б примерно представить, как должно выглядеть, чтоб понять, что в коде искать.

UPD. Сорри, строчку снизу не заметил...

[Sciv]

Судя по трассировке, у Вас в методе QuickSort вот тут цикл проходит в два раза больше, чем нужно (чем элементов в массиве)6

      for i:=0 to High(a) do
         FormMain.MemoLog.Lines.Add(IntToStr(a[i]));

Так что проверяйте, где у Вас High(a) так увеличивается.

UPD. Хотя сдается мне, что должно быть так:

for i:=0 to N-1 do

[koshkarjov]

Сообщение от Sciv

Хотя сдается мне, что должно быть так:

for i:=0 to N-1 do

Если я правильно понял, то так?

procedure QuickSort(a: TArrayOfInteger; var Cmp, Sw : Integer; Left, Right: Integer; toShow: Boolean);
var
  i,j,sred,temp,N:integer;
begin
   Cmp:=0;
   Sw:=0;
   N:=Length(a);
   i:=left; j:=right; //установка начальных границ подмассива
   sred:=a[(left+right) div 2]; //определение серединного элемента
   repeat
      while (a[i]<sred) do Begin i:=i+1; Inc(Cmp); End; //поиск слева элемента, большего опорного
      while (a[j]>sred) do Begin j:=j-1; Inc(Cmp); End; //поиск справа элемента, меньшего опорного
      if i<=j then
      begin //обмениваем элементы и изменяем индексы
         temp:=a[i]; a[i]:=a[j]; a[j]:=temp;
         i:=i+1; j:=j-1;
         Inc(Sw);
      end;
   until i>j;
   if left<j then QuickSort(a, Cmp, Sw, left, j, toShow); //обработка левой половины
   if i<right then QuickSort(a, Cmp, Sw, i, right, toShow); //обработка правой половины
   //если надо, выводим полученный массив, чтобы убедиться, что все работает как надо
   if toShow then
      for i:=0 to N-1 do
         FormMain.MemoLog.Lines.Add(IntToStr(a[i]));
end;

Все равно не работает

[Sciv]

Понятно... Предыдущий вариант (который с High(a)) работал лучше, возвращаем его обратно.

А увеличение данных у Вас берется из-за рекурсивного вызова QuickSort.
Вместо передачи в рекурсию ToShow сделайте так:

   
if left<j then QuickSort(a, Cmp, Sw, left, j, false); 
if i<right then QuickSort(a, Cmp, Sw, i, right, false);

[koshkarjov]

Sciv, спасибо! Теперь выводит корректно.

Но мне кажется, что число сравнений и перестановок (Cmp и Sw) не работает как надо. Например, при массиве чисел 10000, число сравнений=0, а число перестановок=1. Вроде же не должно так быть?

[Sciv]

Сообщение от koshkarjov

Но мне кажется, что число сравнений и перестановок (Cmp и Sw) не работает как надо.

Не работает, потому что они у Вас локально в процедурах обнуляются - в самом начале. Раз уж Вы объявили их как var в описаниях процедур - строчки

Cmp:=0;
Sw:=0;

вообще не нужны, а в случае рекурсии - еще и косячны. Убирайте этот код из всех сортировок