Code-Beispiel

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

Lizenz:	Erster Autor:	Letzte Bearbeitung:
Freeware (proprietär)	Sundboy60	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 Sundboy60 angelegt.
Die aktuellste Version wurde am 24.11.2023 von Sundboy60 gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.