sacar numeros al azar

[roman]

Hola Carlos,

Lo que no entiendo entonces es por qué no usar el algoritmo que ya incluye Delphi en su función Random.

// Saludos

[[Delphius]]

Empezado por Roman

Lo que no entiendo entonces es por qué no usar el algoritmo que ya incluye Delphi en su función Random

La función Random tiene una distribución uniforme, o en términos simples: plana. Esto quiere decir que todos los números tienen igual probabilidad de salir. Lo que la convierte en una función no muy aleatoria que digamos.
El generador multiplicativo tiene una distribución casi uniforme, pero tampoco es una distribuciòn normal (forma de compana). Pero es mejor que la función random() que viene incorporada en Delphi.

[[Delphius]]

Cuando dije:

Empezado por Delphius

el valor de "m" no solo da la condición de cuantos números deben generarse... sino que además, que impone el valor máximo que se permitirá. Si más no me equivoco para los interesados aquí... deberá tomar 20

Me expresé mal, "m" sólo impone el valor máximo, y no necesariamente la serie. Lo que pasa, es que en forma "indirecta"... el valor de "m" condiciona la serie. La particularidad de este generador es que si se cumplen ciertas condiciones, (disculpen.. en este momento no tengo mis apuntes de modelo y simulación a mano y no me acuerdo de como es el corolario), se puede garantizar que en la serie de "m" elementos... no habrá ningun repetido.

Es otro punto a favor por el cual usaría este método y no la simple Random.
Saludos,

[Joakin]

Muchas gracias y ahora veo que modificando el segundo form (con la variable s) puedo de esas 40 pedir que solo aparte algunas al azar y sin repetirse, que es lo que me interesaba. Muy bien y gracias

[Turboleta]

Edusus, siento no haberte respondido antes. Llevo un par de días sin entrar en el foro.

Respecto al contenido del conjunto YaUtilizados no se puede ver directamente. Sí puedes saber si un número está incluido en él.

Código Delphi [-]
 if num in YaUtilizados then ShowMessage('El número ' + IntToStr(num) + ' sí existe');

Respecto a elegir 5 numeros compredidos entre 1 y 20, te sirve el mismo algoritmo de mi post anterior cambiando el for de 1 a 20 por de 1 a 5.


Un saludo.

[Turboleta]

Edusus, con las prisas se me olvidó decirte que donde realmente puedes y debes ver los números es en el array NumOk.

Hasta otra.