Sharp PC-1500 - LH5810 I;O Port Pin Assignments and Descriptions

A ll and more about Sharp PC -1 500 at http://www.PC-1500.info
PROGRAM
ROOT OF AN EQUATION
PROGRAM NO.
3
TI T LE
PS - A- I
I Prog ra m Li st I
[ Memory Contents I
10 : "A ": INPUT "S TA
Minute Value
RTING
POI NT= "; A
(input value) = h
v
2 0: INPUT
'"Ml NU TE=
B
f(x)
";A
c
Xo
30: INPU T '"IN fE RU A
L .:: '' ;W
D f (x +h )
40:G=U: F= U: Z=0
E
50: IF Z=0GOTO 70
.J
60: G= G-W:C=G:GO IO
F
80
G .J
70 :C=G:Z=l
H
80:GOSUB 300
90: F=F+ W: C=F
I
1 00: G OS UB
300
J
I l 0 : GOTO 50
J20:ENO
K
300 :X=C: GOSUB 5 00
L
3J0:Y=B:X=A+C
M
320:60SUB 500
330:0 =C:C=O-A*Y/ (8
N
-Y)
0
340: l F ABS (0-C>> =
JE-
SGOTO 30 0
p
3 50: BEEP 3:PR INT
"
0
A NS. :o "; C
R
360:RETt.JRN
500: B= ( ( X- 2) *X-· I ) *
s
X+2
T
5 J 0:RETURN
v
v
Starting Point
(input value)
STATUS
J
w
Inte rval (input
300
v al ue)
x x
y
f (x)
z Init ial Flag
Do not sale this PDF !!!
- 7 -