Zufallszahl ziehen ohne wiederholung

[himitsu]

Zitat von blink182:

hab auch mal eben noch was getestet, ist wahrscheinlich nicht so gut wie der oben gepostete code, da es nach 40 klicks eine endlosschleife gibt, aber das kannst du ja noch beheben

die Endlosschleife wär ja noch nichtmal das Schlimmste

for i:=0 to length(zufall) do hier eine Exception (wenn du mal die Bereichsprüfung anschaltes)

a:=random(39); die 40 (Index 39) gibt's nicht, da 0..38

zufall: array of integer; OK, kein Fehler, aber der Index is die Zahl-1, da braucht man nicht unbedingt ein Array of Integer ... Array of Boolean hätt's auch getan,
denn die zugehörige Zahl kann man sich ja aus dem Index errechnen.
PS: bei Array[1..40] of Boolean wär der Index direkt die Zahl
If MeinZahlenArray[gezogeneZahl] Then {zahl wurde gezogen}
oder gleich ein Set of 1..40

Delphi-Quellcode:

Var gezogeneZahlen: Set of 1..40;
  Zufallszahl: Integer;

gezogeneZahlen := [];  // init

If gezogeneZahlen <> [1..40] Then Begin
  Repeat
    Zufallszahl := Random(40) + 1;
  Until not (Zufallszahl in gezogeneZahlen);
  Include(gezogeneZahlen, Zufallszahl);
End Else Raise Exception.Create('Es gibt keine Zahlen mehr.');
MessageBox(0, PChar(Format('Die Zahl %d wurde soeben gezogen.',
  [Zufallszahl])), 'test', MB_OK);

Delphi-Quellcode:

Var gezogeneZahlen: Set of 1..40;
  Zufallszahl, i: Integer;

gezogeneZahlen := [];  
For i := 1 to 15 do Begin
  Repeat
    Zufallszahl := Random(40) + 1;
  Until not (Zufallszahl in gezogeneZahlen);
  Include(gezogeneZahlen, Zufallszahl);
  MessageBox(0, PChar(Format('Die %d. Zahl ist eine %d.',
    [i, Zufallszahl])), 'test', MB_OK);
End;