Ordenación Quicksort
 

Poner la ordenación de forma descendente este algoritmo, o quizás mejor, elegir la más conveniente.

Código Delphi [-]
Globales>> iLo, iHi: Integer

Código Delphi [-]
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;

Usage:

Código Delphi [-]
 Var

   intArray : array of integer;

 begin
   SetLength(intArray,10) ;
 
   //Add values to intArray
   intArray[0] := 2007;
   ...
   intArray[9] := 1973;
 
   //sort
   QuickSort(intArray, Low(intArray), High(intArray)) ;

Cómo hacer esto y si se puede mejorar.
Gracias.

¿Qué problema tienes?

Hola BEPAI.

Código Delphi [-]
...
    while A[Lo] > Pivot do Inc(Lo);
    while A[Hi] < Pivot do Dec(Hi);
...

Saludos :)

Gracias ecfisa,

Código Delphi [-]
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;

Casimiro Notevi
No entiendo como funciona.:mad:

Hola BEPAI.
Te pongo unos enlaces que explican el funcionamiento:

• QuickSort
• Sorting algorithms/Quicksort

Vas a encontrar muchos mas en la web.

Saludos :)

qP:-)^\||/^\||/ gracias