Поиск презрительно ничего не нашел...
Плиз дайте реализацию этого кода в виде кода на паскале или на псевдокоде.
Вообще это помоему разновидность быстрой сортировки если я не ошибаюсь...нашел токо бинарный поиск
procedure qsort(var a: array of integer; lt, rg: integer);
var
med, i, j, X: integer;
begin
med := (lt + rg) div 2; { <--- вот поэтому она бинарная }
X := a[med];
i := lt;
j := rg;
while i <= j do begin
while (a[i] < X) do inc(i);
while (a[j] > X) do dec(j);
if (i <= j) then begin
swap(a[i], a[j]); { <--- это напишешь сам }
inc(i);
dec(j);
end;
end;
if (lt < j) then qsort(a, lt, j);
if (i < rg) then qsort(a, i, rg);
end;
Спасибо за помощь! Да swap в принципе ясно как написать...
ну вообще то, пример, написанный выше является сортировкой оара. Это немного другое, как я понимаю... нужна попарная сорторовка.. если это устроило(любая сортировка) то норм, а иначе.. алгоритм попарной сортироки: сравниваются 1 и 2 элементы,3 и 4 элементы... затем 2 и 3, 4 и 5...этот процесс повторяется, пока перестановкав 1 и во 2 случае не прекратится.