RandG

[Gugao]

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