Método del Quickshort

program Quicksort;
uses crt;
type
    vector=array [1..10] of integer;
const
     lista:vector=(8,5,6,3,1,4,2,7,10,9);
var
   k:integer;
   longitud:integer;

procedure rapido (var a:vector;n:integer);
    procedure partir (primero,ultimo :integer);
    var
       i,j,central:integer;
       procedure intercambiar (var m,n:integer);
       var
          aux:integer;
       begin
            aux:=m;
            M:=n;
            N:=aux;
       end;
    begin
         i:=primero;
         j:=ultimo;
         central:=a[(primero+ultimo) div 2];
         repeat
               while a[i]central do
                                  j:=j-1;
               if i<=j then
                       begin
                            intercambiar (a[i],a[j]);
                            i:=i+1;
                            j:=j-1;
                       end;
         until i>j;
         if primero





	

	

		

			

				

					LaPolitecnica.Net © 2000-2002, Raúl Zambrano Maestre