sacar numeros al azar

[alextmb]

estoy de acuerdo contigo me complique mucho la vida. Pero bueno de los errores se aprende.

[edusus]

Pienso que la solución puede ser la siguiente.

begin
randomize;
x:= random(20)+ 1;
Label (1 to 20). caption:= x;
If Tlabel. any caption has repeated number do
begin
Replace that number for another;
end;
end;


No os enfadeis amigos, es una broma jajajaja

[Turboleta]

Tambien se puede podría hacer otra cosa.
1º declarar un array para contener lo números que van saliendo, sin repetir.
2º declarar una variable de tipo conjunto para poder controlar si y han salido antriormente.Poco más o menos así:

Código Delphi [-]
var NumOk: array [1..20] of integer;
     YaUtiliados: set of Byte; // de 0..255
     n, num: integer;
begin
    YaUtilizados:= [] // conjunto vacío; no hay números
    randomize;
    for n:= 1 to 20 do
       begin
          Repeat
             num:= random(20) + 1;
          Until not (num in YaUtilizados);// se comprueba si el número ya existe en el conjunto
               
          NumOk[n]:= num; // Si el núnero no ha sido utilizado anteriormente, se guarda en el array
          YaUtilizados:= YaUtilizados + [num]  // y a la vez se añade al conjunto
      end;

Bueno, es posible que haya alguna incorrección, pero básicamente esta es la idea. Así no tendrías ningún número repetido.

Espero te sirva la idea.

[[Delphius]]

Bueno, la mejor manera de obtener números "aletorios" (y sencilla) es emplear un generador de número aleatorios por el método multiplicativo de amplitud máxima.
Yo tuve que codificar estos algoritmos... es más.. tuve algunos inconvenientes y aquí me ayudaron a solucionarlos. En ese entonces, yo había subido el código... pero creo que a causa de la pérdida de algunos datos del disco del servidor se perdió ese hilo. Le paso un zip con el código. Veanlo...

Se puede conseguir que se generen números que no se repitan en la serie (amplitud máxima) si se consigue que exista una relación de números primos entre el valor m (módulo) y el a (multiplicativo).

[edusus]

Hola Turboleta,
he copiado tu código pero lo que no encuentro la forma de hacer es ver el contenido del conjunto yautilizados. Puedes decirme como hacer? y si no te importa otra pregunta. ¿Si lo que yo quiero es obtener por ejemplo 5 números aleatorios de un conjunto del 1 al 20, cómo lo podría hacer?
Muchas gracias por tu ayuda.

[roman]

El método de Turboleta es lo que yo hubiera pensado y alguna vez hecho. Sin embargo hay que ver que la propuesta de Seoane es muy interesante al no requerir de un doble ciclo. Habrá que revisar el código que amablemente nos ofrece Delphius. Lo que no sé es si alguno de los algoritmos que pone está ya hecho para evitar repeticiones.

// Saludos

[Joakin]

Amigos , aunque no hice yo la pregunta me interesa mucho el tema.
Copié la propuesta de seoane pero lo que no sé es como ver el resultado.
Con algún showmessage(), o en una label . Y como llamo a que se vea .
Si alguien me lo pudiera explicar me gustaría mucho saberlo. Gracias.