Sharp PC-1500 Applications Manual page 70

All and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM
PROGRAM NO.
3
Tl T LE
ONE-WAY LAYOUT
PS- B-9
[ Program L ist]
[ Memory Contents ]
10: "A": CLEAR
:CLS
A
a (No. of facto rs)
:WAIT
0
20: INPUT
"Q.::::
II; A:
B
INPUT
''n='' ;
N
c
?0:E=0:L=0
D
Input
?5:8$=STR$ Cl+!) +
", "+STR$
<L+I)
E
E.l:ij
?6:A$= "x (''+8$+ '' )=
F
¢a. Fa
"
//: PRINT A$;
G
8 0:1NPUT D: CLS
H
90 :E=E+O:Z=Z+Ot0
I
..;
100: l F L<>N-JLET
L
=L+l:
-5
J
210:S=S+E*E
K
220:R=R+E
L
..;
230: IF l<>A- ILET
J
=l+J : GOTO
70
M
240 :R=R*R/CA*N>
N
No. of replications
250:S=S/N
430:S=S-R:LPRINT
"
0
¢e. ¢t
Sa"'" ; S
p
..;
5l 0:Z=Z-R
Q
520:P=Z-S:LPRINT
"
Se= ";P:LPRINT R
X1,
/ (an)
"St=";Z s
'Exi
2
/n Sa, Va
530:F;A-J: LPRI NT
"
OFa=" ;F
T
540:S=S/F u
690:0=A* <N- l>:
v
LPRJNT
11
0Fe =
11
;
w
.
0
/00:P=P/O
x
/1 0:0=A*N-J:LPRJNT
y
"DFt=";O
:E
1 ..
s
/,20:LPRINT
1 'Ua.=
11
;
S
z
:X
IJ ' t
800 :LPR JN T
11 Ue ="; P
AS Input message
810:F=S/P:LPRJNT "
Fo.= " ;F
BS
lnputme..age
890:END
STATUS
I
415
Do not sale this PDF !!!
- 64 -