Sharp PC-1500 Applications Manual page 28
Hide thumbs
Also See for PC-1500:
- Technical reference manual (182 pages) ,
- Instruction manual (169 pages) ,
- Service manual (37 pages)
Advertisement
All
and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM
QUADRATIC AND CUBIC
EQUATIONS
PROGRAM
NO.
5
T
ITLE
PS-
A-0
[
P1
rogram List
I
I
Memory
Contents
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=ABS A"C*SGN
y
-C/A
A
c
c
30:
IF
D=0GOTO
90
420:
8 =ABS
8~C*SGN
0
d
a
40:
IF D>0GO
TO
I
I
0
0 :c=.
S*J3
y
50:
Y=.fC-
O>
430:8EEP
3
:
LPRJNT
E
60:LPRJNT • ***REA
"*REAL
ROOH:",
F
b
L
***"•
B
A+8-F
?0
: LPRINT
"'!
M
AGIN
440 :LPRINT "1:REAL
*
G
c
ARV", Y
",
-
.5*CA+B>-F
H
d
80
:END
450:
U
'R
lNT
"!
M
AGIN
90:LPR
f
NT
"DOUBLE
ARY",
C*ABS
<A-
I
..
'
B
Bl
100:END
460:END
J
I
J0:
LPRINT
"REAL
0
,
470:BEEP 3: IF 10"
(
K
B+JD
-
8>>A85
D
120:LPRJNT
'!
REAL"',
LPRINT
"TRIPLE
L
8-JO
ROOT
", -F:ENO
M
130:ENO
480:A=-A8S
<.
S*tl"
210: "8
"
:JNPUT
"A::IA
(l/3J:l<SGN
E
N
;O,
"
8
=
0
;F, "C="
490
:LPRIN
T
"REAL R
;G,
"O
~
'";
H
OOT",
2¥A-F
0
220:F=F/O
:
G=G
/O:H•
495:LPR
I
NT
"DOUBLE
p
H/0
ROOT",
-A-F
24
0!
I==~
13
500:EN
D
a
250:0=G/3-
F*F
260:E=H- F*G+2*FtFt
R
F
s
2?0:C=4t0t0~0•E*E
280:
IF
10"<-8>>ABS
T
CGOTO 470
u
290: IF
C>0GOTO 400
300:A=
2
~
.f
C
-
0)
STATUS
1
v
3
10: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:
LPRINT
"
REAL
ROOT",G
380:
LPRJNT
~I,
I
390
: ENO
Do not
sale
this
PDF
!!!
-
22
-
Advertisement
