Advertisement
r P A R A B O L A - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Screen output
y
.--
.......
,
·.
,•
.
,
:
·.
,'
.
.
:
.
.
.
.
0
L....--➔------x
10
'* .......... * ...
* .. * .. .
20
30 · F'ar-abolas
40 '
50
'*-ll·*-ll·-ll·-ll·****-11·
60 CLEAR
70 ANGLE 0
80 IN IT ( IZI, IZI) , 1 , 1
90 CLS
100 DRAW (8,0)-(8,55)
110 DRAW <8,S5)-(63,55l
120 DRAW (68,0)-(68,63)
130
LOCATE
0,7:F'RINT "0";
140 LOCATE 0,1:F'RINT "y"
150
LOCATE
6, 7:
PRINT ":•:";
g
=9. 8
h
=50
Vo=500
X=16415.82
Y
=0.00
T
=95.99
V =500. 98
0 =70
160 LOCATE 9,0: INPUT "g=",G
170 LOCi:iTE 9,1:INF'UT "h==",H
180 LOCATE 9,2: INPUT "Vo=",V0
190 IF V0=0
THEN 240
200 LOCATE 9,3: INPUT
"0=",
TH
210 VX=COS(TH)*V0
220 VY=SINCTH)*V0
230 GOTO 270
240 LOCATE 9,2:F'RINT"
250 ·LOCATE 9,2: INPUT "V:-:==" ,VX
2b0 LOCATE 9,3: INPUT "Vy=",VY
270 SG== 1
1583
Bytes
280 IF VX<0 THEN VX=-VX:SG=-1:LOCATE 6,7:PRINT"
Advertisement
