Keine doppelten Zufallszahlen mehr

[Flocke]

@Khabarakh: Deine Methode hat den Nachteil, dass die Werte immer denselben Abstand haben, also nicht wirkliche Zufallszahlen zwischen 1 und 100 sind, sondern z.B. 12, 22, 32, 42 usw.

Der Algorithmus von alzaimar war IMHO besser, allerdings hat er die Veränderung an der falschen Stelle eingebaut.

Delphi-Quellcode:

Const 
  Count = 100;  // <-- hier 100
Var 
  A : Array[0..Count-1] of Integer; 
  I, J, T : Integer; 
begin 
  For I := 0 to Count-1 do 
    A[I] := I;  // <-- hier lassen 
  For I := 0 to Count-1 do 
  begin 
    J := I+random(Count-I); 
    T := A[J]; 
    A[J] := A[I]; 
    A[I] := T; 
  end; 
  // und dann einfach nur die ersten 10 Elemente aus dem Array nehmen!
end;