sacar numeros al azar

[alextmb]

hola amigo yo estoy en las mismas mira a ver si entrelos dos lo sacamos o alguien nos auxilia, tengo que hacer que en 40 images, que tengo en un arreglo llamado Carta asignarles un numero al azar del uno al 20 pero solo se pueden repetir una vez mira lo que he hecho

Código Delphi [-]
for a:=1 to 20 do
begin
   Repeat
      fin:=20
      Randomize;
      num:=random(20)+1;
      z:=true;
      for c:=1 to fin do
      begin
        if num=Carta[c].Tag then
        begin
          z:=false;
          fin:=0;
        end
      end;
    Until(z=true);
    Carta[a].Tag:=num;
end;

avisame que te parece

[[seoane]]

En un juego de cartas yo usaba este metodo para barajar. A lo mejor te sirve:

Código Delphi [-]
var
  Baraja: array[1..40] of Integer;
  i,j,k: Integer;
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;
end;

[edlm]

Alextmb, tu codigo casi no lo comprendo, ¿a ti te funciona?, analisando el de el amigo seoane ese me ha dejado una idea mas clara, debido a que talvez hacer que con un random obtengamos 20 numeros que no se repitan seria muy compicado, parece mejor la idea de desordenar un arreglo de 20 numeros para que el orden sea distinto cada vez, así como el lo hizo al barajear las cartas yo lo implementare asi si tienen algun comentario me avisan.

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