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

[delphi.com.ar]

Básicamente el código que te he mostrado hace eso, algo un poco mas completo:

Código Delphi [-]
var
  R: Integer;
begin
  Randomize;
  R := 0;
  repeat
    inc(R);
  until RandG(0, 1) > 2;
  ShowMessageFmt('Cantidad de Intentos: %d', [R]);
end;

[Gugao]

Muchas gracias ya te comentaré como me fué.