Thema: Delphi randomize problem

Einzelnen Beitrag anzeigen

Benutzerbild von Wolfgang Mix
Wolfgang Mix

Registriert seit: 13. Mai 2009
Ort: Lübeck
1.222 Beiträge
 
Delphi 2005 Personal
 
#29

Re: randomize problem

  Alt 3. Nov 2009, 16:06
Noch eine Idee, war hier schon einmal:

1. Erzeuge eine Liste aller Zahlen im Interval [1;49]
2. Ziehe eine beliebige Zahl aus der Liste, zeige sie an.
3. Lösche(!) nun dieses Element aus der Liste.
4. Führe die Schritte 2..4 insgesamt 6x aus
Fertig. Das ist genau das, was man beim Lotto (z.B.) macht.

oder mein Gedanke:
Erzeuge ein Array of integer von 1..49 und schreibe dort z.B. überall Nullen herein.
Ziehe eine Zahl (z.B 23) und überscchreibe dann Zahl[23} mit der Zufallszahl
Ziehe die nächste Zahl. Wenn es wieder 23 sein sollte, guckst Du im Array bei Zahl[23] nach,
ob sie nicht Null ist. Dann mußt Du halt noch einmal eine Zufallszahl erzeugen
.. usw, bis Du 6 verschiedene Zahlen hast.

Am Ende brauchst Du nicht einmal nach Größe sortieren, sondern im Array nur die Zahlen auslesen,
die nicht den Inhalt Null haben.


PS: Habe den Bug in Post #17 Lotto3.exe beseitigt, hier wurden MaxInt-Werte überschritten.

Gruß

Wolfgang
Wolfgang Mix
if you can't explain it simply you don't understand it well enough - A. Einstein
Mein Baby:http://www.epubli.de/shop/buch/Grund...41818516/52824
  Mit Zitat antworten Zitat