Версия для печати темы

Автор: Sensitive 26.04.2009 4:32

Здравствуйте!
В разделе FAQ нашла исходники методов сортировок, и в книгах прочитала про них (пирамидальная и сортиртировка подсчетом). Возник вопрос - а как отсортировать этими методами сортировок массив по убыванию элементов? Я не поняла каким образом это делается... не подскажите?
Благодарю.

Автор: volvo 26.04.2009 4:55

Начнем с сортировки подсчетом: в реализации http://ru.wikipedia.org/wiki/%D0%A1%D0%BE%D1%80%D1%82%D0%B8%D1%80%D0%BE%D0%B2%D0%BA%D0%B0_%D0%BF%D0%BE%D0%B4%D1%81%D1%87%D1%91%D1%82%D0%BE%D0%BC#Delphi достаточно изменить строку, заполняющую отсортированный массив в процедуре CountingSort:

{ For i:=1 to size do m[i]:=new_m[i]; }
For i:=1 to size do m[size-i+1]:=new_m[i];

Ну, а для HeapSort из нашего FAQ-а можно заменить знак операции сравнения на противоположный в двух местах в процедуре Sift:

  Procedure sift;
  Var i, j: Integer;
  Begin
    i := Left; j := 2*i; x := ar[i];
    While j <= Right Do Begin
      If j < Right Then { * }
        If ar[j] > ar[Succ(j)] Then Inc(j);

      If x <= ar[j] Then Break; { * }
      ar[i] := ar[j];
      i := j; j := 2 * i
    End;

    ar[i] := x
  End;

Вот и все... И первое и второе изменения проверены и работают: массив сортируется по убыванию...

Автор: Sensitive 28.04.2009 4:11

В пирамидальной меняла-меняла знаки, а так как нужно было и не делала...
Большое спасибо.