Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » Sonstiges

Möglichkeiten der Lotto-Spiele 5aus35, 5aus45 und 6aus49

Lizenz:Erster Autor:Letzte Bearbeitung:
Freeware (proprietär)MitgliedSundboy60 24.11.2023

Im Beispielprogramm werden die Möglichkeiten
für die Lotto-Spiele 5aus35, 5aus45 und 6aus49 berechnet.
Hinweis: Bei 6aus49 plus Superzahl 1aus10 muss das
Ergebnis von 6aus49 nur mit 10 multipliziert werden!

'' Datei: 3xLotto.bas
'' (p) Sundboy60, 1985 bis 2023, letzte Aenderung 24.11.2023
'' -------------------------------------------------------------------
    DATA 5, 35, 5, 45, 6, 49
    DIM AS INTEGER A, Z
    WIDTH 238, 62 : COLOR 10 : LOCATE 2, 2, 0
    ? !"Berechnung der M\148glichkeiten f\129r\10\9die Lotto-Spiele..."
    FOR I AS INTEGER = 1 TO 3
        DIM AS ULONGINT M = 1
        READ A, Z : ? !"\10\9" & A & " aus " & Z;
        FOR D AS INTEGER = 1 TO A : M * = (Z - D + 1) / D : NEXT
        ? USING !" = ######## M\148glichkeiten."; M
    NEXT
    ? !"\9(Eine Ziehung, ohne Superzahl!)"
    LOCATE , , 1 : ? !"\10 Programmende [TASTE] "; : GETKEY : END
Zusätzliche Informationen und Funktionen
  • Das Code-Beispiel wurde am 12.07.2023 von MitgliedSundboy60 angelegt.
  • Die aktuellste Version wurde am 24.11.2023 von MitgliedSundboy60 gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen