pru_ppi.pas

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

  Prueba implementaci\'on de pilas de enteros por punteros.
  keywords: pila, punteros

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

program pru_ppi ;

uses u_pilapi ;

type
  pila = pilapi;

var
  P  : pila    ;
  x :  tipo_elemento ;
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
begin

   writeln ;
   P.ANULA;

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

   P.METE (4);
   P.METE (3);
   P.METE (2);
   P.METE (1);

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

   { devuelve el tope de la pila '}
   x := P.TOPE ;
   writeln ('devuelve el tope de la pila ; x = ', x) ;

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

   P.ANULA;   
   P.METE (4);
   P.METE (3);
   P.METE (2);
   P.METE (1);
   { elimina el elemento tope de la pila '}
   P.SACA;
   P.IMPRIME ('Debe imprimir: 2 3 4');
   
end.
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}