Sharp PC-1500 Applications Manual 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":CLEAR :CLS 700:P=P/O
: WAIT
0
'1 0: Q=A*8-l:LPRJNT A
a (No. of factors)
20: INPUT
"o=" ;A: "OF t
="; 0
B
b
(No. of factors)
INPUT
"b="; 8
'20:LPRINT
"Uo.:";S
40:0JM 0<8-1>
730,LPRINT
'
1 Ub= " ; 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
190 :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
220: 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 c l 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: LPRINT
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'ij
St
690:0=CA-ll' . l: C8- J):
AS
Input message
LPRJN T
"OF' e= .. ;
0
BS
Input message
°"'""
Calculation of Ez
1
·j
Do not sale this PDF!!!
- 67 -