Groups | Search | Server Info | Login | Register

Groups > alt.lang.basic > #847

Re: Computer guesses your number

Show all headers | View raw

On 3/29/2023 8:27 AM, F. W. wrote:
> 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!"
> 
> FW

What language is this program in?

Back to alt.lang.basic | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Computer guesses your number "F. W." <me@home.com> - 2023-03-29 15:27 +0200
  Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2023-12-26 19:28 -0600
    Re: Computer guesses your number "Auric__" <not.my.real@email.address> - 2023-12-27 23:17 +0000
      Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2023-12-27 18:37 -0600
        Re: Computer guesses your number "Auric__" <not.my.real@email.address> - 2023-12-29 06:21 +0000
          Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2023-12-29 18:26 -0600
            Re: Computer guesses your number "Auric__" <not.my.real@email.address> - 2023-12-31 19:18 +0000
              Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-02 20:47 -0600
                Re: Computer guesses your number Gordon Henderson <gordon+usenet@drogon.net> - 2024-01-03 15:17 +0000
                Re: Computer guesses your number "Auric__" <not.my.real@email.address> - 2024-01-03 21:16 +0000
                Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-03 23:20 -0600
                Re: Computer guesses your number "Auric__" <not.my.real@email.address> - 2024-01-04 22:09 +0000
                Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-05 20:41 -0600
                Re: Computer guesses your number "Auric__" <not.my.real@email.address> - 2024-01-06 19:30 +0000
                Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-07 16:41 -0600
                Re: Computer guesses your number "Auric__" <not.my.real@email.address> - 2024-01-08 03:21 +0000
                Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-26 19:03 -0600
                Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-26 23:16 -0600
                Re: Computer guesses your number "Auric__" <not.my.real@email.address> - 2024-01-27 05:41 +0000
  Re: Computer guesses your number Gordon Henderson <gordon+usenet@drogon.net> - 2023-12-30 21:32 +0000
    Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2023-12-30 20:20 -0600
      Re: Computer guesses your number Gordon Henderson <gordon+usenet@drogon.net> - 2023-12-31 08:02 +0000
        Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-02 20:07 -0600
          Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-02 20:35 -0600
            Re: Computer guesses your number Gordon Henderson <gordon+usenet@drogon.net> - 2024-01-03 15:10 +0000
              Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-03 23:22 -0600

csiph-web