mirror of
https://github.com/coding-horror/basic-computer-games.git
synced 2025-12-05 20:40:25 -08:00
d26dbf036a
Spaces tend to cause annoyances in a Unix-style shell environment. This change fixes that.
35 lines
779 B
QBasic
35 lines
779 B
QBasic
10 PRINT TAB(33);"KINEMA"
|
|
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
|
|
30 PRINT: PRINT: PRINT
|
|
100 PRINT
|
|
105 PRINT
|
|
106 Q=0
|
|
110 V=5+INT(35*RND(1))
|
|
111 PRINT "A BALL IS THROWN UPWARDS AT";V;"METERS PER SECOND."
|
|
112 PRINT
|
|
115 A=.05*V^2
|
|
116 PRINT "HOW HIGH WILL IT GO (IN METERS)";
|
|
117 GOSUB 500
|
|
120 A=V/5
|
|
122 PRINT "HOW LONG UNTIL IT RETURNS (IN SECONDS)";
|
|
124 GOSUB 500
|
|
130 T=1+INT(2*V*RND(1))/10
|
|
132 A=V-10*T
|
|
134 PRINT "WHAT WILL ITS VELOCITY BE AFTER";T;"SECONDS";
|
|
136 GOSUB 500
|
|
140 PRINT
|
|
150 PRINT Q;"RIGHT OUT OF 3.";
|
|
160 IF Q<2 THEN 100
|
|
170 PRINT " NOT BAD."
|
|
180 GOTO 100
|
|
500 INPUT G
|
|
502 IF ABS((G-A)/A)<.15 THEN 510
|
|
504 PRINT "NOT EVEN CLOSE...."
|
|
506 GOTO 512
|
|
510 PRINT "CLOSE ENOUGH."
|
|
511 Q=Q+1
|
|
512 PRINT "CORRECT ANSWER IS ";A
|
|
520 PRINT
|
|
530 RETURN
|
|
999 END
|