prusha.pas

{ COMIENZO DE DESCRIPCION

Prueba diccionario con tabla de dispersion abierta.
keywords: tabla de dispersion

FIN DE DESCRIPCION }

{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
{ $Id: prusha.pas 2003/06/28 19:49:37 mstorti Exp jdelia  $ }
program prusha;
uses u_shashi;
const
  n = 30 ;
type
  diccionario = sethashi;
var
  d   : diccionario;
  i, k: integer;
begin
  randomize ;
  d.ANULA ;
  for  k := 1 to (n) do begin
    i := RANDOM (n);
    writeln ('inserta ', i);
    d.INSERTA (i)
  end;
  d.IMPRIME ('diccionario: ')
end.
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}