prueba_lci.pas
{ ppc386 -va -vh *.pas }
{ COMIENZO DE DESCRIPCION
Prueba implementaci\'on de listas de enteros por cursores
para la versi\'on ``u_listci'' sin celda de encabezamiento.
FIN DE DESCRIPCION }
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
{$Id: prueba_lci.pas 2002/04/04 17:40 mstorti Exp jdelia $}
program prueba_lci ;
uses u_listci ;
var
L1, L2 : listci ;
p1, p2 : posicion ;
p, q : posicion ;
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
begin
INICIALIZA_NODOS (espacio) ;
writeln ;
writeln ('PRIMERA LISTA:');
L1.ANULA;
p1 := L1.PRIMERO ;
L1.INSERTA (7, p1);
L1.INSERTA (5, p1);
L1.INSERTA (3, p1);
L1.INSERTA (1, p1);
L1.IMPRIME ('Debe imprimir: 1 3 5 7 ');
p := L1.LOCALIZA (3);
p := L1.LOCALIZA (5);
L1.INSERTA (6, p);
L1.IMPRIME ('Debe immprimir: 1 3 5 6 7');
p1 := L1.LOCALIZA (3);
L1.SUPRIME (p1);
L1.IMPRIME ('Debe immprimir: 1 5 6 7');
writeln ;
writeln ('SEGUNDA LISTA:');
L2.ANULA;
p2 := L2.PRIMERO ;
L2.INSERTA (8, p2);
L2.INSERTA (6, p2);
L2.INSERTA (2, p2);
L2.IMPRIME ('Debe immprimir: 2 6 8');
p := L2.LOCALIZA (6);
L2.INSERTA (4, p);
L2.IMPRIME ('Debe immprimir: 2 4 6 8');
p := L2.LOCALIZA (6);
q := L2.ANTERIOR (p);
writeln ('Debe imprimir: 4') ;
writeln ( L2.RECUPERA (q) ) ;
end.
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}