pru_cpi.pas

{ ppc386 -va -vh *.pas }
{ COMIENZO DE DESCRIPCION

  Prueba implementaci\'on de colas de enteros por punteros.
  keywords: cola, punteros

FIN DE DESCRIPCION }
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
{ $ Id: pru_cpi       2002/04/04 17:40 mstorti Exp jdelia  $ }

program pru_cpi ;

uses u_colapi ;

type
  cola = colapi;

var
  C  : cola    ;
  x :  tipo_elemento ;
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
begin

   writeln ;
   C.ANULA;

   { verifica se la cola esta vacia }
   if ( C.VACIA ) then
      writeln ('la cola esta vacia')
   else begin
      writeln ('la cola NO esta vacia')
   end ; {if}

   C.PONE (4);
   C.PONE (3);
   C.PONE (2);
   C.PONE (1);

   { verifica si la cola esta vacia }
   if ( C.VACIA ) then
      writeln ('la cola esta vacia')
   else begin
      writeln ('la cola NO esta vacia')
   end ; {if}

   { devuelve el frente de la cola '}
   x := C.FRENTE ;
   writeln ('devuelve el frente de la cola ; x = ', x) ;

   C.IMPRIME ('Debe imprimir: 4 3 2 1');

   C.ANULA;   
   C.PONE (4);
   C.PONE (3);
   C.PONE (2);
   C.PONE (1);
   { quita el elemento al frente de la cola '}
   C.QUITA;
   C.IMPRIME ('Debe imprimir: 3 2 1');
   
end.
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}