Sharp PC-1500 - Page 73

All and more about Sharp PC-1500 at http://www.PC-1500.info
-
PROGRAM
TWO - WAY
LAYOUT
.
.
PROGRAM NO.
3
Tl
TL E (WITH NO REPLICATIONS) . P5 - B- 10
[ Program List ]
[ Memory Contents ]
J0: "A":C LEAR :CLS 700:P=P/O
: WAIT
0
'1 0: Q=A *8 -l:LP RJNT
A
a (No . of factors)
20: INPUT "o =" ;A: "OF t ="; 0
B
b (No. of factors)
INPUT " b="; 8
'2 0:LPRINT
"Uo.:";S
40:0JM 0<8-1>
730,LPRINT
'
1
U b= " ; T c
50:P=0:J =0
800:LPRINT
''Ue=" ; P
D
75:8$=STR$
CI+ I)+
810:F=S/P:LPRINT
"
", "+ STR$
CJ+ I> fQ :"- ;F
E
For input
76: A$= "x < ''+ 8 .t + •• }•
820:F=f/P:LPRINT
"
..
fb = .. ;F
F
<Pa Fa Fb
77:PRINT AS;
890:ENO
G
~
90: INPUT E:CLS
170:2=2+E'.l:E
H
!80:0CJ>=O<J>+E
I
.J
19 0:P=P+E
200: IF
J<>B- ILET ·J
STATUS
I
J
.J
=J+ I: GOTO 75
s's
K
210:S =5 +P*P
22 0: R=R+P
L
230: IF
J<>A - ILET I
=!+!:GOTO
50
M
240:R=R*R/CA*Bl
N
250:5 =5/8
260:FOR
1=0TO B- 1
0 ¢e ~ x
270:T = T+O cl l *OCJ):
p
!::c i.
Se Ve
NEXT I
300:T=T/A
Q
430: 5=5- R: LPRINT
"
:Er
2
i ./ab
Sa=" ;S
R
440: T =T -R:LPR INT
"
s
:l: r
2
i /b Sa Va
Sb= ";T
T :l:O(J)' /a Sb Vb
SJ0:2 =2-R
520:P=2 - 5-T:LPRI NT
u
"Se=" ;P: L PRINT
v
"St='';Z
530:F=A-l:LPRJNT
"
w
OFo.=";F
540:S = S/F x
550:G=B- l : LPRI NT
..
Ofb= ''; G
y
560: T=l/G
z
:EX'i j
St
690:0=CA
-ll '.l: C8 - J):
AS
Input message
LPRJN T "OF' e= .. ;
0
BS Input message
°"'""
Calcu la tion of Ez
1
·j
Do not sale this PDF!!!
- 67 -