Advertisement
MATHEMATICS AND GEOMETRY~
rumrsvn
595
Bytes
100
'******************************************
110 · Intersection point of two straight lines
120
'******************************************
130 CLS
140
F'RINT
150 PRINT "y=a
x
+ b"
160 PRINT "y=a'x +
b'"
170 LOCATE 8,0:PRINT "IntersEKtion"
180 LOCATE 13,1:PRINT"point"
190 LOCATE 0,5:INPUT
"a
=";A
200 LOCATE 7,5:INPUT "b
=
11
58
210 LOCATE
0 , 6:
INPUT "a ·
:::2" J C
220 LOCATE 7,6:INPUT "b'~";D
230 IF A:C AND B=D THEN LOCATE 11,2:PRINT USING"
y==4HHtx+##";A,B:GOTO 280
240
IF A=C THEN LOCATE 11,3:PRINT "Nothing":GOTO
280
250 X=-<B-0)/(A-C>
260 Y=<A*D-C*Bl/(A-C>
270 LOCATE 9,3:PRINT USING "(##.#@##.#)";X,",",Y
280 LOCATE 14,~:PRINT "again"
290
LOCATE 14,6:PRINT ".anykey";
3(2)(2) IF IN.<.EY$="" THEN 280
310
GOTO 130
Advertisement
