prushaci2.pas
{ ppc386 -va -vh *.pas }
{ COMIENZO DE DESCRIPCION
Prueba operaciones sobre conjuntos representados mediante
tablas de dispersi\'on, ya sea lineal (redisp1) o bien
pseudo-aleatoria (redisp2).
keywords: tabla de dispersion
FIN DE DESCRIPCION }
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
{ $ Id: prushaci2.pas 2002/04/05 16:35 jdelia Exp jdelia $}
program prushaci2 ;
uses u_shasc2 ;
var
conj : sethasci;
begin
conj.ANULA;
conj.ALEINI; {dado B (potencia de 2) calcula las ctes d_i}
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.
{-----+-----+-----+-----+-----+-----+-----+-----+-----+-----}
Generated by GNU enscript 1.6.1.