Keine doppelten Zufallszahlen mehr

[kurtm1]

@alzaimar: deine variante funzt eh

Zitat von alzaimar:

aha

Delphi-Quellcode:

Var
  l : Array [0..9] Of Integer;
  r,i : Integer;

Begin
  For i := 0 to 9 do 
    Repeat
      a[i] := Random (100);                        // Randomzahl einfügen
      j := 0;  
      while a[j]<>a[i] do inc (j);             // Die gleiche Zahl suchen
    Until i=j; // Wenn die gleiche Zahl an Pos i steht, ist sie eindeutig
// Hier sind in a[0..9] eindeutige Zufallszahlen.
End;

Diese Variante funktioniert dafür aber perfekt