Форум: "Основная";
Поиск по всему сайту: 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.033 c
1-32752           michael_B             2002-03-30 17:48  2002.04.11  
Как отображать текст в TPanel или TLabel в несколько строк


14-32958          IronHawk              2002-02-28 18:32  2002.04.11  
Как с помощью одного QuickRep-a сделать 2,3,4 страницы разные ?


1-32853           atmospheric           2002-03-28 17:37  2002.04.11  
удаление Item из ListView ?


1-32837           CrazyAngel            2002-03-28 18:00  2002.04.11  
Как найти приложение , которое блокирует файл ?


1-32881           Dizer                 2002-03-29 16:32  2002.04.11  
Разница во времени