Groups | Search | Server Info | Login | Register

Groups > comp.lang.basic.misc > #510

Computer guesses your number

Show all headers | View raw

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!"

Back to comp.lang.basic.misc | Previous | Next | Find similar

Thread

Computer guesses your number "F. W." <me@home.com> - 2023-03-29 15:29 +0200

csiph-web