pruprique.pas

{ COMIENZO DE DESCRIPCION

Prueba colas de prioridad.
keywords: cola de prioridad

FIN DE DESCRIPCION }
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
{ $Id: pruprique.pas,v 1.1 2002/05/21 21:28:41 mstorti Exp mstorti $  }

program pru_pri_que ;

uses u_prique;

var
   C : cola_de_proridad;
   k,l : integer;
begin
   C.anula;
   { Inserta 100 elementos generados aleatoriamente de 1 a 2000. }
   write('inserta: ');
   for k:=1 to 100 do
   begin
      l := RANDOM(2000);
      write(l,' ');
      C.inserta(l);
   end;
   writeln;

   { Los imprime en orden, eliminandolo de a 1 }
   write('En orden: ');
   while not C.vacia do
      write(C.suprime_min,' ');
   writeln;
   
end. { pru_pri_que }