Casio FP-200 - Page 105

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
117 •