prushaci2.pas

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

  Prueba operaciones sobre conjuntos representados mediante
  tablas de dispersi\'on, ya sea lineal (redisp1) o bien 
  pseudo-aleatoria (redisp2). 
  keywords: tabla de dispersion
  FIN DE DESCRIPCION }

{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
{ $ Id: prushaci2.pas 2002/04/05 16:35 jdelia  Exp jdelia   $}

program prushaci2 ;

   uses u_shasc2 ;

var
   conj : sethasci;

begin

   conj.ANULA;
   conj.ALEINI; {dado B (potencia de 2) calcula las ctes d_i}
   conj.INSERTA (1);
   conj.INSERTA (2);
   conj.INSERTA (3);
   conj.INSERTA (4);
   conj.INSERTA (5);
   conj.SUPRIME (2);
   conj.IMPRIME_TODO ('conj: ');
   conj.INSERTA (6);
   conj.IMPRIME_TODO ('conj: ');

   conj.INSERTA (1+8);
   conj.INSERTA (1+2*8);
   conj.INSERTA (1+3*8);
   conj.IMPRIME ('conj: ');
   writeln;

   writeln (conj.MIEMBRO (1) );
   writeln (conj.MIEMBRO (2) );
   writeln (conj.MIEMBRO (3) );

   conj.SUPRIME (2);
   conj.IMPRIME ('conj: ');

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