sacar numeros al azar

[[seoane]]

El metodo que yo explique era para barajar una supuesta baraja de cartas representada por un array. De forma que cada posicion del array corresponde al lugar que ocuparia dentro de la baraja, es decir, Baraja[1] nos diria cual es la primera carta, Baraja[2] la segunda, etc ... Aclaro esto porque creo que aunque para este fin el metodo es bastante eficiente, para otros fines, como puede ser ir sacando uno a uno numeros al azar sin saber previamente cuantos, el metodo de Turboleta puede se mas eficaz.

Aclarado esto, para poder visualizar el resultado solo tienes que recorrer el array elemento a elemento.

Código Delphi [-]
var
  Baraja: array[1..40] of Integer;
  i,j,k: Integer;
  s: string;
begin
  // Colocamos todas las cartas por orden
  for i:= 1 to 40 do
  begin
    Baraja[i]:= i;
  end;
  // Y ahora las barajamos
  Randomize;
  for i:= 1 to 40 do
  begin
    j:= Random(40)+1;
    k:= Baraja[i];
    Baraja[i]:= Baraja[j];
    Baraja[j]:= k;
  end;
  s:= IntToStr(Baraja[1]);
  for i:= 2 to 40 do
    s:= s + ',' + IntToStr(Baraja[i]);
  ShowMessage(s);
end;

[[Delphius]]

La soluciòn más correcta es que se emplee el generador multiplicativo, junto con el conjunto YaUtilizados que emplea Turboleta. No se si me explico: la idea es emplear el generador, y a medida que genera... ingresarlo en el conjunto.

Empezado por Roman

no sé es si alguno de los algoritmos que pone está ya hecho para evitar repeticiones

Pues no. El método es muy simple... no tiene en cuenta eso, pero una propiedad de este generador es que si se eligen cuidadosamente los valores de "m" y "a" se puede obtener una serie de números que no se repiten. Aunque también puede modificarse el código para que maneje el conjunto que emplea Turboleta.
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.
Yo probaría con (no estoy muy seguro):
m = 20
a = 7
semilla = 3

Saludos,

[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.