{*****************************************************}{ }{ Practica del Quicksort (Metodos de ordenacion) }{ Copyright (c) 2000 por Raul Zambrano }{ }{*****************************************************}
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
i:=i+1;
while a[j]>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<j then
partir(primero,j);
if i<ultimo then
partir(i,ultimo);
end;
begin
partir (1,n);
end;
begin
clrscr;
k:=0;
write ('Este es el vector original: '); repeat
begin
write (lista[k],' ');
k:=k+1;
end;
until k=11;
writeln;
rapido (lista,10);
k:=0;
write ('Este es el vector ordenado: '); repeat
begin
write (lista[k],' ');
k:=k+1;
end;
until k=11;
readln;
end.
Crear cuenta
Comentarios sobre la versión: Versión 1 (0)
No hay comentarios