|
Duda con la función RandG
Hola
Existe una función incluida en delphi llamada RandG (mean, StdDev) que genera números aleatorios con una distribución normal (gausiana) .
P:= RandG(0,1);
Necesito un programa que contabilice la cantidad de números aleatorios generados por RandG hasta que se supere un valor “L”
Solo llevo esto:
Repeat
P:= RandG(0,1);
until
P>L
Como puede verse, los números generados por RanG son con media 0 y desviación 1, es decir, se generan números alrededor de 0.
Si lo hago manualmente para L=2 y usando solamente:
P:= RandG(0,1);
Tuve que clicar 39 veces para conseguir un valor superior a 2
Necesito un programa que realice esto último automáticamente, es decir, que me asocie el valor 39 a una variable “R”.
Agradezco a la persona que me pueda ayudar
|