| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Devilkevin
aka Kerstin
Anmeldungsdatum: 11.11.2004
Beiträge: 2532
Wohnort: nähe Mannheim
|
 Verfasst am: 17.12.2004, 21:56 Titel: Frage zu einem Lotto Programm |
 |
|
Hi, ich habe ein Frage zu nem Lotto Programm das 6 Zahlen + 1 Superzahl auswürfelt ! Das Problem ist das manchmal 2 gleiche Zahlen kommen also z.b 1,2,3,4,5,6, und die Superzahl ist das wieder ne 2
Das Programm siet so aus :
| Code: |
RANDOMIZE TIMER
a = int(rnd*49)+1
b = int(rnd*49)+1
c = int(rnd*49)+1
d = int(rnd*49)+1
e = int(rnd*49)+1
f = int(rnd*49)+1
g = int(rnd*49)+1
PRINT a
PRINT b
PRINT c
PRINT d
PRINT e
PRINT f
PRINT g
Wie verhindert man das zweimal die gleiche Zahl gewürfelt wird ?
|
_________________
www.piratenpartei.de |
|
| Nach oben |
|
 |
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
| Verfasst am: 17.12.2004, 23:08 Titel: So... |
|
|
Hallo.
| Code: | CLS
DIM ZAHL(1 TO 7) AS INTEGER
FOR i% = 1 TO 7
DO
'Zufallszahl erzeugen
RANDOMIZE TIMER * i% * TIMER * 10
temp% = INT(RND * 49) + 1
'Als nächstes testen, ob sie lottogerecht ist
IF temp% < 50 THEN
raus% = 1
ELSE :
raus% = 0
END IF
'Und nun noch testen, ob es sie schon mal gab und wenn ja, die DO Schleife nochmal durchlaufen
FOR u% = 1 TO 7
IF ZAHL(u%) = temp% THEN raus% = 0: EXIT FOR
NEXT u%
LOOP UNTIL raus% = 1
ZAHL(i%) = temp%
NEXT i%
'Jetzt können die Zahlen angezeigt werden.
FOR i% = 1 TO 7
PRINT ZAHL(i%)
NEXT i% |
Die siebte wäre die Superzahl.
Der Code funktioniert und ist getestet.
Viele Grüße!
Sebastian
_________________
Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!
Zuletzt bearbeitet von Sebastian am 18.12.2004, 00:00, insgesamt einmal bearbeitet |
|
| Nach oben |
|
|
Skilltronic
Anmeldungsdatum: 10.09.2004
Beiträge: 1148
Wohnort: Köln
|
| Verfasst am: 17.12.2004, 23:59 Titel: |
|
|
Oder so:
| Code: | CLS
DIM a%(49)
RANDOMIZE TIMER
FOR zahl = 0 TO 6
DO
z% = FIX(RND * 49) + 1
LOOP UNTIL a%(z%) = 0
a%(z%) = 1
IF zahl = 6 THEN PRINT "Zusatzzahl:"
PRINT z%
NEXT
|
Gruss
Skilltronic |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
