Thema: Delphi Lottozahlen

Einzelnen Beitrag anzeigen

Benutzerbild von Garfield
Garfield

Registriert seit: 9. Jul 2004
Ort: Aken (Anhalt-Bitterfeld)
1.335 Beiträge
 
Delphi XE5 Professional
 
#9

Re: Lottozahlen

  Alt 29. Jan 2006, 16:29
Zitat von leddl:
Wie du jetzt auf deine 12.000 kommst, weiß ich nich. Warum überhaupt minus 1000?
Passt doch.

Random(48 ) ergibt Real im Bereich von 0 <= X < 48. Der ganzahlige Anteil liegt dann bei 0 bis 47. Bei der Addition mit 1 ergibt sich ein Zahlenbereich von 1 bis 48. Die 49 kommt nicht vor.

Folge dessen ist, dass die erste Summe 0 ist und sich trotz unterschiedlicher Terminierung im ersten Source keine Exception ergibt, weil das nicht existierende ListBox1.Items[49] gar nicht angesprochen wird.

So ergibt sich 48 Zahlen mal 1000 gleich 48000, addiert mit den 12000 sind es 60000.

Nachtrag:

Zitat von leddl:
Warum überhaupt minus 1000?
Vermutlich, weil jede Zahl mindestens 1000 vorhanden ist. Ist im realen Lotto aber absolut unlogisch.
Gruss Garfield
Ubuntu 22.04: Laz2.2.2/FPC3.2.2 - VirtBox6.1+W10: D7PE, DXE5Prof
  Mit Zitat antworten Zitat