prushaci1.pas

{ ppc386 -va -vh *.pas }
{ COMIENZO DE DESCRIPCION
  Prueba operaciones sobre conjuntos almacenados mediante
  tablas de dispersi\'on cerradas, con resoluci\'on lineal
  de colisiones.
  keywords: tabla de dispersion
  FIN DE DESCRIPCION }

{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
{ $ Id: prushaci1.pas 2002/04/05 16:25 jdelia  Exp jdelia   $}
 
program prushac1;

  uses U_shasci;

var
  conj : sethasci;

begin

   conj.ANULA;
   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.
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}