Foros del Web » Programación para mayores de 30 ;) » Programación General »

Free Pascal - random

Estas en el tema de Free Pascal - random en el foro de Programación General en Foros del Web. Hola a todos: Necesito una ayuda con este problema, que debo realizarlo con la función random sin argumentos: Realizar un problema que elija el número ...
  #1 (permalink)  
Antiguo 12/12/2010, 09:50
 
Fecha de Ingreso: diciembre-2010
Mensajes: 1
Antigüedad: 13 años, 4 meses
Puntos: 0
Pregunta Free Pascal - random

Hola a todos:

Necesito una ayuda con este problema, que debo realizarlo con la función random sin argumentos:

Realizar un problema que elija el número 1 aproximadamente el 45% de las veces, el número 2 el 35 % de las veces, el número 3 el 15 % de las veces y el 4 el 5% de las veces. El libro hace la sugerencia de que considere las sumas parciales.

No sé si estoy en lo cierto planteándolo de esta manera:

if (random >0) and (random <=45) then Writeln ('el numero es 1');
if (random> 0.45) and ( random <= 0.8) Writeln ('el numero es 2');
if (random> 0.8) and ( random <= 0.95) Writeln ('el numero es3');
else (random> 0.95) and ( random <= 1) Writeln ('el numero es 4');

¿Qué puedo agregarle para que finalice el programa?

Gracias espero su ayuda

Etiquetas: free, pascal, random
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 15:53.