Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Вниз

Срочно помогите!!! 


SuperIgor   (2002-03-28 21:28) [0]

Доброго времени суток!!!
Помогите мне срочно нужен алгоритм QuickSort(быстрая сортировка).
Если у кого завалялась программа пришлите на мыло!!!
Мне очень нужно до завтра. Заранее спасибо!!!!!!!!!!!!!!!!!!!!!!



=)   (2002-03-28 23:40) [1]

Удалено модератором



lipskiy   (2002-03-29 00:58) [2]

Что-то очень уж код длинный.
Вот покороче и для Дельфи (рекурсивная сортировка).
Сортирует строки, но легко переделать и под любой тип данных.

procedure TForm1.QSortString(var A: TStringList);

procedure QuickSort(var A: TStringList; iLo, iHi: integer);
var
Lo, Hi : integer;
Mid : string;
T : String;
begin
Lo := iLo;
Hi := iHi;
Mid := A[(Lo + Hi) div 2];
repeat
while A[Lo] < Mid do Inc(Lo);
while A[Hi] > Mid do Dec(Hi);
if Lo <= Hi then
begin
T := A[Lo];
A[Lo] := A[Hi];
A[Hi] := T;
Inc(Lo);
Dec(Hi);
end;
until Lo > Hi;
if Hi > iLo then QuickSort(A, iLo, Hi);
if Lo < iHi then QuickSort(A, Lo, iHi);
end;

begin
QuickSort(A, 0, A.Count-1);
end;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.041 c
1-32746           IGI                   2002-03-29 12:57  2002.04.11  
Файлы


1-32739           LazorenkoX            2002-03-30 00:09  2002.04.11  
Движок БД (file of XXX)


14-32969          oblom                 2002-03-05 14:36  2002.04.11  
задание в универе


3-32633           KaPaT                 2002-03-18 20:40  2002.04.11  
Помогите с легким вопросом!


3-32670           sniknik               2002-03-20 13:04  2002.04.11  
Значение BLOCKSIZE в таблице.