prusetli.pas
{ ppc386 -va -vh *.pas }
{ COMIENZO DE DESCRIPCION
Programa de prueba para conjuntos representados
mediante listas. keywords: conjunto, lista
FIN DE DESCRIPCION }
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
{ $Id: prusetli.pas v1.2 2002/04/04 17:40 mstorti Exp jdelia$}
program prusetli;
uses u_setlis;
var
C1, C2, C3 : setLis;
a, i : integer;
begin
C1.ANULA;
C2.ANULA;
randomize;
for a := 1 to 10 do begin
i := random (20);
C1.INSERTA (i);
writeln (' ',i);
end; {for}
for a := 1 to 6 do begin
C2.INSERTA (random (10));
end;
C1.IMPRIME ('C1 ');
C2.IMPRIME ('C2 ');
C3.INTERSECCION (C1, C2);
C3.IMPRIME ('C1 interseccion C2 ');
C3.UNION (C1, C2);
C3.IMPRIME ('C1 union C2 ');
C3.DIFERENCIA (C1, C2);
C3.IMPRIME ('C1 menos C2 ');
end.
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}