conjchar.pas

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

  Programa de prueba para conjuntos de caracteres
  por arreglos de bits. keywords: conjunto

FIN DE DESCRIPCION }
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
{ $Id: conjchar.pas v1.2 2002/04/05 11:50 mstorti Exp jdelia$}
 
program conjchar;

uses u_setvbi ;

var
  A, B, C: setvbi;
  e      : char;
begin {Ejemplo de utilizacion.}
  A.ANULA;
  A.INSERTA ('a');
  A.INSERTA ('d');
  A.INSERTA ('f');
  A.INSERTA ('f');
  A.INSERTA ('j');
  A.IMPRIME ('A: ');

  B.INSERTA ('c');
  B.INSERTA ('f');
  B.INSERTA ('a');
  B.IMPRIME ('B: ');

  C.UNION (A,B);
  C.IMPRIME ('A UNION B: ');

  C.INTERSECCION (A,B);
  C.IMPRIME ('A INTERSECCION B: ');

  C.DIFERENCIA (A,B);
  C.IMPRIME ('A - B: ');

  C.DIFERENCIA (B,A);
  C.IMPRIME ('B - A: ');

  e := 'c';

  writeln (e,' esta en A: ', A.MIEMBRO (e));
  writeln (e,' esta en B: ', B.MIEMBRO (e));
  C.UNION (A,B);
  writeln (e,' esta en A U B: ', C.MIEMBRO (e));
  C.INTERSECCION (A,B);
  writeln (e,' esta en A int B: ', C.MIEMBRO (e));

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