Здравствуйте! В разделе FAQ нашла исходники методов сортировок, и в книгах прочитала про них (пирамидальная и сортиртировка подсчетом). Возник вопрос - а как отсортировать этими методами сортировок массив по убыванию элементов? Я не поняла каким образом это делается... не подскажите? Благодарю.
volvo
26.04.2009 4:55
Начнем с сортировки подсчетом: в реализации отсюда достаточно изменить строку, заполняющую отсортированный массив в процедуре 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
В пирамидальной меняла-меняла знаки, а так как нужно было и не делала... Большое спасибо.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.