Sharp PC-1500 - Page 28

All and more about Sharp PC-1 500 at http:/lwww.PC-1500.info
PROGRAM
QUADRATIC AND CUBIC EQUAT IONS
PROGRAM NO .
5
T
ITLE
PS - A-0
[ P1rogr am List I I Me mory Cont en ts I
10: "' A"': INPU r "A= "
400:C=JC:A =. 5* <C -E
A
y
;A,
1
' 8=";8, "C=
11
>:8 = -. S*<C+E):
a
;C
C=
J/3
B
b - b/(2a)
y
20:8=-B /2/ A:O = B*B
41 0:A=A BS A"C * SG N
y
-C/A A
c
c
30: IF D=0GOTO 90 420: 8= ABS 8~C* SG N
0
d a
40: IF D>0GO TO I I 0
0 :c =. S *J 3
y
5 0: Y= .fC - O> 430:8EEP 3: LPRJNT
E
60:LPRJNT
• ***
REA
" *RE AL ROOH :",
F
b
L *** "• B
A+8-F
?0 : L PRINT
"'! M AGIN 440:L PRINT " 1: REAL *
G
c
ARV", Y ", - .5*CA+B>-F
H
d
80 :END 450: U 'R lNT
"! M AGIN
90:LPRf NT "DOU BLE ARY", C*ABS <A -
I
..
' B
Bl
10 0:END 460:E ND
J
I J0: LP R INT
"REAL
0
,
470 :BEE P
3: IF 10" (
K
B+JD -8>>A85 D
120:LPRJNT
'! REAL"',
LPRINT
"T R IPLE
L
8-JO
ROOT ", -F:ENO
M
130:ENO
480:A =- A8 S <. S* tl"
210: "8" :JNPUT
"A::IA
(l/3J:l<SGN E
N
;O, "8=
0
;F, "C=" 490:LP RIN T
"REAL R
;G, "O ~ '"; H OO T ", 2¥A -F
0
220:F=F/O:G =G /O:H• 495:LPRI NT "DOUBLE
p
H/0 RO OT ", -A-F
240! I==~ 13 500:END
a
25 0:0=G/3 - F*F
260:E=H-F*G+2* FtFt
R
F
s
2? 0:C=4t0t 0 ~ 0•E*E
28 0: IF 10"<-8>>ABS
T
CGOTO 4 70
u
290: IF
C>0GOTO 400
30 0:A= 2 ~ .f C - 0) STATUS 1
v
310:8=ACS
(£/C 2t 0*
790
JC - 0 )))/3
w
320:D= ASN
l: E=ASN
x
. 5
y
330:G= A*SlN
<O - B>:
y
t-i =-A*S!N
(£+8)
z
340: J=- A'JSI N
CE- B>
350:G=G- F: H=H-F: J=
1-F
370:8EEP
3: LPRI NT
" REAL
ROOT",G
380: LPRJNT
~I, I
390: E NO
Do not sale this PDF !!!
- 22 -