Numeros Aleatorio Irrepetibles en un Vector

[Casimiro Noteví]

Recuerda que la primera posición de un array es el cero, no el uno.

[ecfisa]

Hola martini002.

Pido disculpas, pero internet me ha andado lento como una endemoniada tortuga .
Dupliqué los mensajes y pensé en que había borrado solamente el duplicado pero borré ambos, luego se cortó.

De todos modos el código era algo parecido a este:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  v: array[1..6] of integer;
  c,n: Integer;
begin
  // Inicializar
  for c:= 1 to 6 do v[c]:= 0;
  Randomize;
  // Carga
  c:= 0;
  repeat
    n:= Random(6)+1;
    if v[n] = 0 then
    begin
      v[n]:= n;
      Inc(c);
    end;
  until c = 6;
  // Mostrar
  Edit1.Text:=IntToStr(v[1]);
  Edit2.Text:=IntToStr(v[2]);
  Edit3.Text:=IntToStr(v[3]);
  Edit4.Text:=IntToStr(v[4]);
  Edit5.Text:=IntToStr(v[5]);
  Edit6.Text:=IntToStr(v[6]);
end;

La comprobación

Código Delphi [-]
 if v[n] = 0 then

es para verificar que no haya sido asignado un valor a esa posición del arreglo, lo mismo podría haberse inicializado a cualquier valor arbirtrario no contemplado en el rango aleatorio y comprobar por ese valor.


Saludos.

Edito: Es una opción que no repite los números aleatorios dentro del arreglo pero no sé si es lo que te solicitaron por que no entendí muy bién la consigna.

[martini002]

Empezado por Casimiro Notevi

Recuerda que la primera posición de un array es el cero, no el uno.

Lei este comentario ayer y no le di mucha importancia,
es mas me dejo un poco pensativo...
Pero hasta hace un minuto atras pense toda la vida
que podia declarar el vector desde:

Código Delphi [-]
V:Array[1..N]of Integer;

pero no es asi,
realmente nunca habia tenido problema con esta
situasion, pero en este momento lo he comprobado.
lo habia declarado asi:

Código Delphi [-]
V:Array[1..N]of Integer;

y la primera tupla me la marca en 0 con:

Código Delphi [-]
  for i:=1 to N do
    VCartas[i]:=i;

0 2 3 4 .. N

luego de haberlo cargado con una secuencia
y debia empezar desde 1.

Probe declarar el vector desde 0

Código Delphi [-]
V:Array[0..N]of Integer;

y ha cargado correctamente desde 1 con:

Código Delphi [-]
  for i:=1 to N do
    VCartas[i]:=i;

1 2 3 4 .. N

Interesante para analizar,
gracias por el TIP Casimiro

Saludos