info
Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Computer guesses your number
1 view
Skip to first unread message
F. W.
Mar 29, 2023, 9:29:38 AM3/29/23
to
10 Rem *** Computer guesses your number ***
20 Print "Welcome to the guessing game!"
25 untergrenze = 1 : obergrenze = 0 : versuch = 0 : anzahl = 0
30 Input "To what maximal number will you guess";obergrenze
40 Do
42 versuch = untergrenze + Int((obergrenze - untergrenze) / 2)
43 anzahl = anzahl + 1
46 Print "Zwischen ";untergrenze;" und ";obergrenze
50 Print "I guess ";versuch
60 Input "g(reater, s(maller, i(t is it!";antwort$
63 Select Case antwort$
64 Case "g": untergrenze = versuch : Print "Okay, greater..."
65 Case "s": obergrenze = versuch : Print "Okay, smaller..."
66 End Select
70 If antwort$ = "i" Then 90
80 Loop Until antwort$ = "i"
90 Print "I needed ";anzahl;" tries. I remain a math-champion!"
20 Print "Welcome to the guessing game!"
25 untergrenze = 1 : obergrenze = 0 : versuch = 0 : anzahl = 0
30 Input "To what maximal number will you guess";obergrenze
40 Do
42 versuch = untergrenze + Int((obergrenze - untergrenze) / 2)
43 anzahl = anzahl + 1
46 Print "Zwischen ";untergrenze;" und ";obergrenze
50 Print "I guess ";versuch
60 Input "g(reater, s(maller, i(t is it!";antwort$
63 Select Case antwort$
64 Case "g": untergrenze = versuch : Print "Okay, greater..."
65 Case "s": obergrenze = versuch : Print "Okay, smaller..."
66 End Select
70 If antwort$ = "i" Then 90
80 Loop Until antwort$ = "i"
90 Print "I needed ";anzahl;" tries. I remain a math-champion!"
0 new messages