ProgrammieraufgabenHier wird regelmäßig eine neue Programmieraufgabe gestellt, die dann gelöst werden soll und in Zusammenarbeit mit den Moderatoren auch besprochen werden kann.
Glücksspiel
Diskussion: Glücksspiel im Forum Programmieraufgaben, in der Kategorie Code Kitchen; Anzeige
Hallo,
folgende Aufgabe stammt von mastermix252,Fragen etc bitte an ihn.
Zitat:
Aufgabe:
Es soll ein Programm geschrieben werden das ...
Anzeige Hallo,
folgende Aufgabe stammt von mastermix252,Fragen etc bitte an ihn.
Zitat:
Aufgabe:
Es soll ein Programm geschrieben werden das einen einfachen Spielautomaten der nach dejem Tipp nur Zahlen zwischen 1 und 3 zieht. Bei einen richtigen Tipp soll sich ein Kapital um einen Einsatz erhöhrem, bei einem Falschen Tipp verringern.
Folgende Bedingungen hat das Programm zu erfüllen
- nach Übernahme der Werte durch den OK Button können diese erst wieder geändertwerden, wie ein Spieler kein Kapital mehr hat oder das Spiel mit aufhören beendet wurde
- die unterschiedlichen Positionen der sich bewegenden Labels sind in Arrays zu speichern (Zahlen 1-3 siehe Bild)
- Überprüfung der Eingegebenen Werte "Startkapital" und "Einsatz". Darf auf jeden fall nicht unter NULL sein
- die Zeitlupe und deren Eingaben "Faktor" muss nicht implementiert werden
rand() % 2 liefert nur 0 oder 1, daher kommen bei dir nur 1 und 2 als Gewinnzahlen in Frage. Desweiteren kann man sich das Array sparen und die Zahl so berechnen:
hi
hatte ich mir zu erst auch gedacht aber in der Aufgabe stand:
"- die unterschiedlichen Positionen der sich bewegenden Labels sind in Arrays zu speichern (Zahlen 1-3 siehe Bild)"
Original von Oli_G
hi
hatte ich mir zu erst auch gedacht aber in der Aufgabe stand:
"- die unterschiedlichen Positionen der sich bewegenden Labels sind in Arrays zu speichern (Zahlen 1-3 siehe Bild)"
OLI G
Naja, dass ist ja darauf bezogen, wenn man das graphisch mit Bewegung usw. macht, nicht jedoch bei deiner Implementierung, so wie ich das verstehe.
AppTitle "Glücksspiel"
Graphics 640,480, 32,1 ;Grafik-Modus, um alles lesen zu können.
Print "Willkommen beim Glücksspiel!"
Print "Wie hoch soll dein Startkapital sein?"
SKapital = Input()
Print "Gut. Dein Startkapital beträgt " + SKapital + " Euro." ;Kapital abfragen. -> Spielereingabe.
Print ""
.againES
Print "Wie hoch soll dein dauerhafter Einsatz sein?"
Print ""
Einsatz = Input()
If Einsatz > SKapital Then Print "Dein Einsatz ist höher, als dein Kapital. Bitte niedrigeren Einsatz eingeben." Goto againES ;Zu hoch?
If Einsatz < SKapital Then Goto AgainGAME
.AgainGAME
While (SKapital > 0) ;Noch genug Geld vorhanden?
SeedRnd MilliSecs()
Zufall = Rand(1,3)
Print ""
Print ""
Print "Nun rate bitte die zufällige Zahl, die 1, 2 oder 3 sein kann."
Zahl = Input("Rate die Zahl bitte jetzt: ";)
If Zahl <> Zufall Then Print "Nein, das war falsch. Richtig war: " + Zufall + ". - " + Einsatz + " Euro." SKapital = SKapital - Einsatz
If Zahl = Zufall Then Print "Ja, das war richtig. + " + Einsatz + " Euro." SKapital = SKapital + Einsatz
Print "Dein Kapital beträgt momentan " + SKapital + " Euro."
Wend
Print ""
Print ""
Print "Du hast kein Geld mehr, und somit verloren." ; Spieler hat verloren (Zu wenig Geld)
Print "Bitte spiel bald wieder!"
WaitKey ;Auf Tastendruck warten.
End