prueba_lai.pas

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

  Prueba implementaci\'on de listas de enteros por 
  arreglos, para la versi\'on ``u_listai''.
  keywords: lista, arreglos

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

program prueba_lai ;

uses  u_listai ;

var
  L1, L2 : listai   ;
  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: 4 6 ');

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