sacar numeros al azar

[edlm]

hola, quiero saber si se puede sacar 20 numeros al azar sin que se repitan, es decir con la funcion random dentro de un for puedo obtener numeros al azar pero con frecuencia estos numero se repiten, habrá alguna forma para evitarlo o tendra que hacerse con sentecias de If, si aguien sabe de alguna forma para hacerlo agradeceria el consejo.

Gracias

[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

[silem23]

Increible que este tema aun sigue vigente, muchas gracias a todos los que en su momento se tomaron el tiempo para responder el hilo que me ha sido de mucha ayuda saludos

[Casimiro Notevi]

Todos los hilos siguen vigentes, fíjate que es del 2006, pero no acostumbramos a cerrarlos por si surgen nuevas propuestas, ideas, etc. o como tu caso, aunque sea para agradecir de que te ha sido de ayuda.
Saludos.