mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-24 11:06:58 -05:00
47 lines
1.3 KiB
QBasic
47 lines
1.3 KiB
QBasic
|
10 G=6
|
||
|
|
20 N=100
|
||
|
|
30 REM-TRAP
|
||
|
|
40 REM-STEVE ULLMAN, 8-1-72
|
||
|
|
50 PRINT "WANT INSTRUCTIONS (1 FOR YES)";
|
||
|
|
60 INPUT Z
|
||
|
|
70 IF Z<>1 THEN 180
|
||
|
|
80 PRINT "I AM THINKING OF A NUMBER BETWEEN 1 AND";N
|
||
|
|
90 PRINT "TRY TO GUESS MY NUMBER. ON EACH GUESS,"
|
||
|
|
100 PRINT "YOU ARE TO ENTER 2 NUMBERS, TRYING TO TRAP"
|
||
|
|
110 PRINT "MY NUMBER BETWEEN THE TWO NUMBERS. I WILL"
|
||
|
|
120 PRINT "TELL YOU IF YOU HAVE TRAPPED MY NUMBER, IF MY"
|
||
|
|
130 PRINT "NUMBER IS LARGER THAN YOUR TWO NUMBERS, OR IF"
|
||
|
|
140 PRINT "MY NUMBER IS SMALLER THAN YOUR TWO NUMBERS."
|
||
|
|
150 PRINT "IF YOU WANT TO GUESS ONE SINGLE NUMBER, TYPE"
|
||
|
|
160 PRINT "YOUR GUESS FOR BOTH YOUR TRAP NUMBERS."
|
||
|
|
170 PRINT "YOU GET";G;"GUESSES TO GET MY NUMBER."
|
||
|
|
180 X=INT(N*RND(0))+1
|
||
|
|
190 FOR Q=1 TO G
|
||
|
|
200 PRINT
|
||
|
|
210 PRINT "GUESS #";Q;
|
||
|
|
220 INPUT A,B
|
||
|
|
230 IF A<>B THEN 240
|
||
|
|
235 IF X=A THEN 400
|
||
|
|
240 IF A <=B THEB 260
|
||
|
|
250 GOSUB 360
|
||
|
|
260 IF X<A THEN 300
|
||
|
|
270 IF X<=B THEN 320
|
||
|
|
280 PRINT "MY NUMBER IS LARGER THAN YOUR TRAP NUMBERS."
|
||
|
|
290 GOTO 330
|
||
|
|
300 PRINT "MY NUMBER IS SMALLER THAN YOUR TRAP NUMBERS."
|
||
|
|
310 GOTO 330
|
||
|
|
320 PRINT "YOU HAVE TRAPPED MY NUMBER."
|
||
|
|
330 NEXTQ
|
||
|
|
340 PRINT "SORRY, THAT'S";G;"GUESSES. NUMBER WAS";X
|
||
|
|
350 GOTO 410
|
||
|
|
360 R=A
|
||
|
|
370 A=B
|
||
|
|
380 B=R
|
||
|
|
390 RETURN
|
||
|
|
400 PRINT "YOU GOT IT!!!"
|
||
|
|
410 PRINT
|
||
|
|
420 PRINT "TRY AGAIN."
|
||
|
|
430 PRINT
|
||
|
|
440 GOTO 180
|
||
|
|
450 END
|