Otros Source code. Quicksort....... en Object Pascal, of course

Pascal, Object Pascal -> Delphi

EL MEJOR LENGUAJE DEL MUNDO, HABIDO Y POR HABER !!!

procedure QuickSort(var A: array of Integer; iLo, iHi: Integer) ;
var
Lo, Hi, Pivot, T: Integer;
begin
Lo := iLo;
Hi := iHi;
Pivot := A[(Lo + Hi) div 2];
repeat
while A[Lo] < Pivot do Inc(Lo) ;
while A[Hi] > Pivot 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;


Yeah !!!

Iniciado por Suspiciousman

El mensaje está oculto porque el usuario está en tu lista de ignorados.

Si, ahora solo debes a aprender que el código activo no funciona en formularios de texto.

Si este confunde el BBcode con el BBking