Форум: "Основная";
Поиск по всему сайту: 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.018 c
1-32758           Random                2002-03-30 18:30  2002.04.11  
Указатели


1-32738           P.                    2002-03-29 18:15  2002.04.11  
Form


6-32928           Hecker                2002-01-29 13:50  2002.04.11  
Hello All !!! кто сталкивался со следующей проблемой?


3-32672           grabovsky             2002-03-20 16:33  2002.04.11  
увеличение строк в StringGrid


6-32924           Di_wind               2002-01-27 21:43  2002.04.11  
Winroute