Sharp PC-1500 - Page 70

All and more about Sharp PC - 150 0 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
:CL S
A
a (No.
of factors)
:WAIT
0
20: INPUT
"Q .:::: II; A: B
INPUT ''n=' ' ; N
c
?0:E =0:L=0
D
I nput
?5:8 $=ST R$ Cl+!) +
", " +S T R$
<L+I) E E.l:ij
?6:A $="x(''+8$+'' )=
F
¢a. Fa
"
//: PRINT A$;
G
80:1NPUT D: CLS
H
90 :E=E+O:Z=Z+Ot0
I
..;
100: l F L<>N-JL ET
L
=L+l:
-5
J
210:S=S+E*E
K
22 0: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
25 0:S=S/N
430:S=S-R:LPRINT
"
0
¢e. ¢t
Sa "' "; S
p
..;
5l 0:Z= Z-R
Q
52 0:P =Z-S:LPRINT
"
Se=";P:LPRINT
R
X1, /(an)
"S t=";Z
s
'Exi
2
/n Sa, Va
530:F;A -J: L PRI NT
"
OFa =" ;F
T
5 40: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 In p ut message
810:F=S/P:LP R JNT
"
Fo.= " ;F
BS
ln p utme..age
89 0:E ND
STATUS I
415
Do not sale this PDF !!!
- 64 -