random
 

tengo otro problema con el siguiente codigo:
lo que quiero es obtener un randomico entre 0 y 1 , segun eso evaluarlo de esta manera pero me da desde lo marcado con rojo que son tipos incompatibles sera el problema con el random? desde ya gracias


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;

Prueba cambiando el código por:

Código Delphi [-]
randomize;
u:= random(random(1));
if (u < 0.1) then
N:=0
else
if (u>=0.1) AND (u < 0.2)then
N:=1
else
if (u >=0.2) AND (u < 0.45)then
N:=2
else
if (u >= 0.45) and (u < 0.75)then
N:=3
else
if (u >= 1)
N=4;

Edu

funciona gracias
 

gracias por la ayuda edu

Puedes simplificar el código aún más:

Código Delphi [-]
  randomize;
  u:= random(random(1));
  if (u < 0.1) then
    N:=0
  else if (u < 0.2)then
    N:=1
  else if (u < 0.45)then
    N:=2
  else if (u < 0.75)then
    N:=3
  else if (u >= 1)
    N=4;

aunque no entiendo muy bien el porqué del doble uso de random

thales
 

gracias por la sugerencia lo del random doble no me daba error solo queria asegurar la aleatoriedad pero ya se lo saque

Otra cosa más que no te comenté antes: En el código anterior la variable N nunca llega a tomar el valor 4 porque el número aleatorio que generas siempre es menor que 1, así que el último if sobra.

Un saludo

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;

Con eso lo único que logras es que la semilla cambie una vez mas, pero la serie seguirá siendo cíclica!

Saludos!