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
Zharous
Sun Sep 1 00:00:41 2024
from
Tempe, Az
via
Telnet
Bob Smith
Sat Aug 31 23:43:54 2024
from
Here
via
SSH
Keyop
Sat Aug 31 23:15:52 2024
from
Huddersfield, West Yorkshire
via
SSH
Zharous
Sat Aug 31 21:20:52 2024
from
Tempe, Az
via
Telnet
Keyop
Sat Aug 31 00:36:57 2024
from
Huddersfield, West Yorkshire
via
SSH
Bob Worm
Fri Aug 30 22:17:42 2024
from
Wales, Uk
via
Telnet
Bob Worm
Fri Aug 30 21:13:25 2024
from
Wales, Uk
via
Telnet
Zharous
Fri Aug 30 19:16:45 2024
from
Tempe, Az
via
Telnet
System Info
Sysop:
Keyop
Location:
Huddersfield, West Yorkshire, UK
Users:
335
Nodes:
16 (
2
/
14
)
Uptime:
149:44:52
Calls:
7,411
Calls today:
1
Files:
12,670
Messages:
5,613,270