prushaci1.pas

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

{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
{ $ Id: prushaci1.pas 2003/06/29 16:25 jdelia  Exp jdelia   $}
program prushaci1;
  uses u_shasci;
var
  dic : sethasci;
begin
  dic.ANULA;
  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.
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}