Pop-Up Thingie
Sidebar
>>> Magnum BBS <<<
Home
Forum
Files
Dark
Log in
Username
Password
Sidebar
Forum
Usenet
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)
Who's Online
Recent Visitors
Keyop
Fri Nov 8 18:24:46 2024
from
Huddersfield, West Yorkshire
via
SSH
Keyop
Fri Nov 8 18:24:27 2024
from
Huddersfield, West Yorkshire
via
SSH
Keyop
Fri Nov 8 17:50:39 2024
from
Huddersfield, West Yorkshire
via
SSH
Keyop
Fri Nov 8 17:44:22 2024
from
Huddersfield, West Yorkshire
via
SSH
Keyop
Fri Nov 8 17:34:56 2024
from
Huddersfield, West Yorkshire
via
SSH
Makary
Fri Nov 8 08:17:39 2024
from
Kaliszcity
via
SSH
Keyop
Thu Nov 7 23:22:13 2024
from
Huddersfield, West Yorkshire
via
SSH
Electricfalcon
Thu Nov 7 23:14:40 2024
from
England
via
Telnet
System Info
Sysop:
Keyop
Location:
Huddersfield, West Yorkshire, UK
Users:
365
Nodes:
16 (
2
/
14
)
Uptime:
04:00:51
Calls:
7,784
Calls today:
6
Files:
12,914
Messages:
5,750,425