Lotto-Auswertung
--------------------------------------------------------------------------------
Problemlösung / Hilfe
Das nachstehende Programm ist das System VEW 609, 6 aus 9, 6 Zahlen aus 9 mit einer bestimmten
Garantie. Es wird von den Lottogesellschaften in einer Broschüre angeboten. Bei Gewinnen in den
verschiedenen Systemen ist die Auswetung sehr schwierig. Für die eigene und persönliche Auswertung kann
man sich ein solches Programm schaffen. Die Programmierung und Weitergabe solcher verschiedener
Programme ist nach dem Urheberrecht verboten. Siehe ablehnende Bescheide von 2 Lottogesellschaften.
Obwohl die Inhalte der Broschüren im ganzen Internet angeboten werden.
Gibt man hier die Zahlen in der Reihenfolge zu dem Programm von 1 bis 9 ein, so erhält man als Darstellung
das System.
Reihe 1 = 1,2,3,4,5,6
Reihe 2 = 1,2,3,4,7,8
Reihe 3 = 1,2,3,6,7,9
Reihe 4 = 1 2,4,5,8,9,
Reihe 5 = 1,2,5,6,7,8
Reihe 6 = 1,3,4,6,8,9
Reihe 7 = 1,3,5,7,8,9
Reihe 8 = 1,4,5,6,7,9
Reihe 9 = 2,3,4,5,7,9
Reihe 10 = 2,3,5,6,8,9
Reihe 11 = 2,4,6,7,8,9
Reihe 12 = 3,4,5,6,7,8
Will man dieses System mit einer anderen Zahlenreihe nutzen, so muss man für jede entsprechend Systemzahl
die direkt betreffende andere Zahl eingeben. Siehe folgendes Beispiel: Zahlenreihe: 2,17,18,22,27,29,38,45,49
Sieht man dann die Auswertung, so kann man nur mit ganz grossen Schwierigkeiten die gezogenen Zahlen
erkennen. Hier kann man nun einen Trick anwenden. Gehen wir davon aus, dass folgende Zahlen gezogen
wurden: 18,27,38,49. Dann die Zahlenreihe wie folgt eingeben: 0,0,18,0,27,0,38,0,49. Die (0) Nuller sind
Ersatz für nicht gezogene Zahlen. Dieser Trick ist aber nicht zufriedenstellend. Die Reihenfolge der Zahlenreihe
0,0,18,0,27,0,38,0,49. muss aber beibehalten werden. Nicht gezogene Zahlen immer 0. Gezogene Zahlen
18,27,38,49. farbig darstellen.
Folgendes Problem ist zu lösen: Bei dem Versuch Zahlenreihen auszuwerten sollen am Anfang der
Auswertung die gezogenen Zahlen eingegeben werden. Diese Zahlen sollen dann im System farbig dargestellt
werden. So auch in Verbindung mit mehreren Zahlenreihen. Auswertung siehe bei PRINT USING!
Wenn Sie mir helfen könnten, dieses Problem zu lösen, wäre ich Ihnen sehr dankbar. Beiderseitige Forderungen
sind ausgeschlossen. Die Lösungen gehen in meinen
Besitz über.
Das Programm 'lotto609.bas' kann so in QB4.5 oder QBasic1.1 übernommen werden. Oder Text in 'ab-edit' von
'http://ograhl.com/de/ab-edit/' mit dem Suffix '.bas' abspeichern und in QB4.5 oder QBasic übernehmen. Oder
ggf. die Programmiersprache und das das Programm bei mir anfordern.
Wenn Sie mir helfen bin ich Ihnen schon jetzt dankbar. Gruss Leo. [email protected]
Das Programm
============
CLS
INPUT 'Bitte 1. Zahl eingeben ', a1
INPUT 'Bitte 2. Zahl eingeben ', a2
INPUT 'Bitte 3. Zahl eingeben ', a3
INPUT 'Bitte 4. Zahl eingeben ', a4
INPUT 'Bitte 5. Zahl eingeben ', a5
INPUT 'Bitte 6. Zahl eingeben ', a6
INPUT 'Bitte 7. Zahl eingeben ', a7
INPUT 'Bitte 8. Zahl eingeben ', a8
INPUT 'Bitte 9. Zahl eingeben ', a9
INPUT 'Bitte 10. Zahl eingeben ', a10
INPUT 'Bitte 11. Zahl eingeben ', a11
INPUT 'Bitte 12. Zahl eingeben ', a12
CLS
LOCATE 10, 10: PRINT ' Auswertung System VEW 609 / 6 aus 9 / 12 Reihen'
LOCATE 11, 10: PRINT
LOCATE 13, 10: PRINT ' Zahl 1/': LOCATE 13, 24:
PRINT USING '####'; a1; a1; a1; a1; a1; a1; a1; a1; a2; a2; a2; a3
LOCATE 14, 10: PRINT ' Zahl 2/': LOCATE 14, 24:
PRINT USING '####'; a2; a2; a2; a2; a2; a3; a3; a4; a3; a3; a4; a4
LOCATE 15, 10: PRINT ' Zahl 3/': LOCATE 15, 24:
PRINT USING '####'; a3; a3; a3; a4; a5; a4; a5; a5; a4; a5; a6; a5
LOCATE 16, 10: PRINT ' Zahl 4/': LOCATE 16, 24:
PRINT USING '####'; a4; a4; a6; a5; a6; a6; a7; a6; a5; a6; a7; a6
LOCATE 17, 10: PRINT ' Zahl 5/': LOCATE 17, 24:
PRINT USING '####'; a5; a7; a7; a8; a7; a8; a8; a7; a7; a8; a8; a7
LOCATE 18, 10: PRINT ' Zahl 6/': LOCATE 18, 24:
PRINT USING '####'; a6; a8; a9; a9; a8; a9; a9; a9; a9; a9; a9; a8
LOCATE 19, 10: PRINT ' --- --- --- --- --- --- --- --- ---
--- --- ---'
LOCATE 20, 10: PRINT ' Zeile Nr/ 1 2 3 4 5 6 7 8 9
10 11 12'
END
Mein Computer-System:
Installiertes Betriebssystem: Windows XP
jonatan Gast |
