prueba_lpi.pas

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

  Prueba implementaci\'on de listas de enteros por punteros,
  para la versi\'on ``u_listpi'', es decir, sin puntero
  a la celda final. keywords: lista, punteros

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

program prueba_lpi ;

uses u_listpi ;

var
  L1, L2 : listpi   ;
  p1, p2 : posicion ;
  p      : posicion ;

{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
begin

  writeln ;
  writeln ('PRIMERA LISTA:');
  L1.ANULA;
  p1 := L1.PRIMERO ;
  L1.INSERTA (4, p1);
  L1.INSERTA (3, p1);
  L1.INSERTA (2, p1);
  L1.INSERTA (1, p1);
  L1.IMPRIME ('Debe imprimir: 1 2 3 4');
  p := L1.LOCALIZA (3);
  p := L1.LOCALIZA (6); 

  p := L1.LOCALIZA (3);
  L1.SUPRIME (p);
  L1.IMPRIME ('Debe imprimir: 1 2 4');

  writeln ;
  writeln ('SEGUNDA LISTA:');
  L2.ANULA;
  p2 := L2.PRIMERO ;
  L2.INSERTA (6, p2);
  L2.INSERTA (5, p2);
  L2.INSERTA (4, p2);
  L2.IMPRIME ('Debe imprimir: 4 5 6');
  p := L2.LOCALIZA (3);
  p := L2.LOCALIZA (5);
  L2.SUPRIME (p);
  L2.IMPRIME ('Debe imprimir 1 2 4');

end.
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}