Быстрая сортировка(Хоара)
Необходимо написать процедуру с методом быстрой сортировки(Хоара) массива по условию: Дан массив C(N). Преобразовать массив, упорядочив первую его половину элементов по возрастанию, а вторую по убыванию.(Известно, что N-четное).
Есть пример, но он только для сортировки по возрастанию, как адаптировать к моему условию? Ведь мне нужно разделить массив на две части и применить сортировку по возрастанию и по убыванию этим методом.
Есть пример, но он только для сортировки по возрастанию, как адаптировать к моему условию? Ведь мне нужно разделить массив на две части и применить сортировку по возрастанию и по убыванию этим методом.
Код:
Type
arrType = Array[1 .. n] Of Integer;
Procedure HoarFirst(Var ar: arrType; n: integer);
Procedure sort(m, l: Integer);
Var i, j, x, w: Integer;
Begin
i := m; j := l;
x := ar[(m+l) div 2];
Repeat
While ar[i] < x Do Inc(i);
While ar[j] > x Do Dec(j);
If i <= j Then Begin
w := ar[i]; ar[i] := ar[j]; ar[j] := w;
Inc(i); Dec(j)
End
Until i > j;
If m < j Then Sort(m, j);
If i < l Then Sort(i, l)
End;
Begin
sort(1, n)
End;
arrType = Array[1 .. n] Of Integer;
Procedure HoarFirst(Var ar: arrType; n: integer);
Procedure sort(m, l: Integer);
Var i, j, x, w: Integer;
Begin
i := m; j := l;
x := ar[(m+l) div 2];
Repeat
While ar[i] < x Do Inc(i);
While ar[j] > x Do Dec(j);
If i <= j Then Begin
w := ar[i]; ar[i] := ar[j]; ar[j] := w;
Inc(i); Dec(j)
End
Until i > j;
If m < j Then Sort(m, j);
If i < l Then Sort(i, l)
End;
Begin
sort(1, n)
End;