1. Forum
  2. Usenet
  3. COMP.LANG.BASIC.MISC

  • Computer guesses your number

    From F. W.@21:1/5 to All on Wed Mar 29 15:29:36 2023
    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!"

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)