mirror of
https://github.com/inexorabletash/jsbasic.git
synced 2024-11-30 01:49:29 +00:00
51 lines
566 B
Plaintext
51 lines
566 B
Plaintext
10 PRINT "V,D,T"
|
|
|
|
20 INPUT "What do you want to solve? ( V,D,T,)"; A$
|
|
|
|
30 IF A$ = "V" THEN GOTO 60
|
|
|
|
40 IF A$ = "D" THEN GOTO 70
|
|
|
|
50 IF A$ = "T" THEN GOTO 80
|
|
|
|
60 PRINT " V= D/T"
|
|
|
|
61 PRINT "Distance=": INPUT D
|
|
|
|
62 PRINT "Time =":INPUT T
|
|
|
|
63 LET V = D/T
|
|
|
|
64 PRINT "Velocity ="
|
|
|
|
65 PRINT V
|
|
|
|
66 END
|
|
|
|
70 PRINT " D= V*T"
|
|
|
|
71 PRINT "Velocity=": INPUT V
|
|
|
|
72 PRINT "Time =":INPUT T
|
|
|
|
73 LET D = V*T
|
|
|
|
74 PRINT "Distance ="
|
|
|
|
75 PRINT D
|
|
|
|
76 END
|
|
|
|
80 PRINT " T= D/V"
|
|
|
|
81 PRINT "Distance=": INPUT D
|
|
|
|
82 PRINT "Velocity=":INPUT V
|
|
|
|
83 LET T = D/V
|
|
|
|
84 PRINT "Time ="
|
|
|
|
85 PRINT T
|
|
|
|
86 END |