prueord2.pas

{ ppc386 -va -vh *.pas }
{ COMIENZO DE DESCRIPCION
  Prueba los m\'etodos de ordenaci\'on: burbuja, 
  inserci\'on, selecci\'on, Shell, monticulos y r\'apido.
  keywords: clasificacion

FIN DE DESCRIPCION }

{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
{ $ Id: prueord2.pas  2002/04/05 16:22 jdelia  Exp jdelia $}

program  prueord2 ;

uses u_orden2 ;

var
  x : obj ;

begin
  x.INI_VECTOR ;
  x.DIS_VECTOR (' vector pseudo-aleatorio ; x = ');
  x.ORD_BURBUJA ;
  x.DIS_VECTOR (' ordena por burbuja ');

  x.INI_VECTOR ;
  x.DIS_VECTOR (' vector pseudo-aleatorio ; x = ');
  x.ORD_INSERCION ;
  x.DIS_VECTOR (' ordena por insercion');

  x.INI_VECTOR ;
  x.DIS_VECTOR (' vector pseudo-aleatorio ; x = ');
  x.ORD_SELECCION ;
  x.DIS_VECTOR (' ordena por seleccion');

  x.INI_VECTOR ;
  x.DIS_VECTOR (' vector pseudo-aleatorio ; x = ');
  x.ORD_SHELL ;
  x.DIS_VECTOR (' ordena por Shell ');

  x.INI_VECTOR ;
  x.DIS_VECTOR (' vector pseudo-aleatorio ; x = ');
  x.ORD_MONTICULO ;
  x.DIS_VECTOR (' ordena por monticulos '); 

  x.INI_VECTOR ;
  x.DIS_VECTOR (' vector pseudo-aleatorio ; x = ');
  x.ORD_RAPIDO (1, n);
  x.DIS_VECTOR (' ordena por rapido '); 
end.
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----
 vector pseudo-aleatorio ; x = 
 4 1 2 3 4 1 3 2 0 2
 ordena por burbuja 
 0 1 1 2 2 2 3 3 4 4

 vector pseudo-aleatorio ; x = 
 4 1 2 3 4 1 3 2 0 2
 ordena por insercion
 0 1 1 2 2 2 3 3 4 4

 vector pseudo-aleatorio ; x = 
 4 1 2 3 4 1 3 2 0 2
 ordena por seleccion
 0 1 1 2 2 2 3 3 4 4

 vector pseudo-aleatorio ; x = 
 4 1 2 3 4 1 3 2 0 2
 ordena por Shell 
 0 1 1 2 2 2 3 3 4 4

 vector pseudo-aleatorio ; x = 
 4 1 2 3 4 1 3 2 0 2
 ordena por monticulos 
 0 1 1 2 2 2 3 3 4 4

 vector pseudo-aleatorio ; x = 
 4 1 2 3 4 1 3 2 0 2
 ordena por rapido 
 0 1 1 2 2 2 3 3 4 4
 -----+-----+-----+-----+-----+-----+-----+-----+-----+-----}