Sharp CE-122 - Page 20

18
< Example of program list >
(1) Phythagorean theorem (2) Quadratic equation
10: "A"S INPUT "A
10:
TNPUT
Fis
B
="SAs"B="SB;
20: C=J 0 AtA+ Bako "C=H"5C
rt c 20: B=-B/2/A
SORE 30: D=B+B-C-A
40: IF D=0G0TO 1
00
SOrIF
D>OGOTO
1
|
(pater
to
title
“QUADRATIC
20
60: Y=I(~D» EQUATION” (Program No.
Lae *eREA P4—A-—8) of applications
80:PRINT "IMAGI manual)
NARY"s
90: END
100:PRINT "EQUAL
120:PRINT "REAL"
sB+iD
130:PRINT "REAL"