prushaci2.pas

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

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

{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
{ $ Id: prushaci2.pas 2003/06/30 16:35 jdelia  Exp jdelia  $}
program prushaci2 ;
   uses u_shasc2 ;
var
   dic : sethasci;
begin
   dic.ANULA;
   dic.ALEINI; {dado B (potencia de 2) calcula las ctes d_i}
   dic.INSERTA (1);
   dic.INSERTA (2);
   dic.INSERTA (3);
   dic.INSERTA (4);
   dic.INSERTA (5);
   dic.SUPRIME (2);
   dic.IMPRIME_TODO ('dic: ');
   dic.INSERTA (6);
   dic.IMPRIME_TODO ('dic: ');

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

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

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

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