Cita:
Empezado por chechu
randomize;
u:= random(random(1));
if (u < 0.1) then
N:=0
else
if (0.1<= u < 0.2)then
N:=1
else
if (0.2<= u < 0.45)then
N:=2
else
if (0.45<= u < 0.75)then
N:=3
else
if (0.75<= u < 1)
N=4;
|
Si tu resultado final va a ser un número al azar entre 0 y 4... porqué no haces directamente:
Código Delphi
[-]
uses
Math;
...
begin
Randomize;
N := RandomRange(0, 5);
end;
Cita:
Empezado por chechu
gracias por la sugerencia lo del random doble no me daba error solo queria asegurar la aleatoriedad
|
Con eso lo único que logras es que la semilla cambie una vez mas, pero la serie seguirá siendo cíclica!
Saludos!