|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| « Home |
Zahlenraten |
|
|
Beschreibung |
|
|
|
|
- Dieses Spiel ist aus der Gattung „Rate die geheime Zahl“. Mit maximal 6 Versuchen muss eine zufällig bestimmte Zahl zwischen 1 und 100 (inklusive) erraten werden. Nach jedem Versuch erfährt der Spieler, ob sein Tip zu hoch oder zu niedrig angesetzt war.
- Man sollte zuerst einige Strategien ausprobieren und über mehrere Spiele hinweg ermitteln, welche am erfolgreichsten ist. Wer Spaß daran hat, kann ja noch eine Wertung einbauen, etwa ein Highscore der wenigsten Versuche gemittelt über 10 Spiele; oder aber man gewinnt die Zahl als Geldbetrag, wenn man sie errät und verliert alles, wenn man sie nicht errät.
- Bitte mailt mir Eure Erweiterungsvorschläge!
|
|
Installation |
|
|
|
|
- Die Installation ist denkbar einfach: Tippe den folgenden Programmtext ab und fertig! Beachte dabei die allgemeinen Programmhinweise.
ratezahl()
Prgm
Local t,c,a,q
ClrIO
Disp "Rate die geheime Zahl (1-100)"
Disp "---------------------"
Loop
Disp ""
rand(100)»c
For t,1,6
Input string(t)&". Versuch:",a
If a=c Then
Text "***** Gewonnen ! *****"
Exit
Else
If a>c
Disp "zu groß"
If a<c
Disp "zu klein"
EndIf
EndFor
If t>6
Text "Verloren ! Die Zahl war "&string(c)
InputStr "Nochmal ? (J/N)",q
If q="n" or q="N"
Exit
EndLoop
DispHome
Return
EndPrgm
|
| | Stand: 28. März 2016 |
|
|