random - Foros Club Delphi

Paypal

FTP

CCD

		Foros Club Delphi > Principal > Varios
random

Herramientas

Buscar en Tema

Desplegado

24-11-2005

Thales

Miembro

Registrado: ago 2005

Posts: 48

Poder: 0

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

« Tema Anterior | Próximo Tema »

Normas de Publicación
no Puedes crear nuevos temas no Puedes responder a temas no Puedes adjuntar archivos no Puedes editar tus mensajes El código vB está habilitado Las caritas están habilitado Código [IMG] está habilitado Código HTML está deshabilitado

Saltar a Foro

La franja horaria es GMT +2. Ahora son las 11:23:09.