random - Foros Club Delphi

Paypal

FTP

CCD

		Foros Club Delphi > Principal > Varios
random

Marcar Foros Como Leídos

Herramientas

Buscar en Tema

Desplegado

24-11-2005

epuigdef

Miembro

Registrado: jul 2005

Posts: 196

Poder: 21

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

« Tema Anterior | Próximo Tema »

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Cambiar a Modo Hibrido Modo Hilado

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:46:54.