prusha.pas

{ COMIENZO DE DESCRIPCION

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

FIN DE DESCRIPCION }

{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
{ $Id: pruarbp.pas,v 1.1 2002/04/25 19:49:37 mstorti Exp mstorti $  }

program prusha;

uses u_shashi;

type
   diccionario = sethashi;

var
   d : diccionario;
   n,k : integer;
begin
   d.anula;
   for k:=1 to 100 do
   begin
      n := RANDOM(10000);
      writeln('inserta ',n);
      d.inserta(n)
   end;
		
   d.imprime('diccionario: ');
end.
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}