Ver Mensaje Individual
  #1 (permalink)  
Antiguo 12/12/2010, 09:50
maria_b
 
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