Sharp PC-1500 Applications Manual page 76
Hide thumbs
Also See for PC-1500:
- Technical reference manual (182 pages) ,
- Instruction manual (169 pages) ,
- Service manual (37 pages)
Advertisement
All
and more about Sharp
PC-1
500
at
http://www.PC-1500.info
PROGRAM
THREE -WAY
LAYOUT
PROGRAM
NO.
3
T
I
T
L
E
·(WITH NO REPLICATIONS)
P5-
B-12
[
Key
Operation
Procedure
I
!step
No.
Input
Display
Remarks
1
,..,.,
m
a=
-
Dimension of
factor
A
2
2
I
ENTER
I
b=
Dimension of factor B
3
3
I
ENTER:
J
c
-
Dimension of factor C
4
4
I
ENTER
I
X(l,1
,
l)=?
5
2
.0
I
ENTER
I
X(l,1,2)=?
Repeated data
i11£ul.
.
.
.
.
.
.
.
.
.
.
•
.
27
1.0
I
ENTER
I
X(2,
3
,
4)=?
28
1.0
I
ENTER
I
>
Printout
[
Program
List
I
10:
"
A": CLEAR
:
CLS
300:T=T/( A*C>:U=U/
590:Q=F*G:
LPR
JNT
..
:
WAIT 0
<A*B>
DFa*b="
;O
20:
INPUT
"a.=";A:
310:
U=U/C
600
:V=U/O
INPUT
''b="
;B
320:FQR
1=0TO
A-
1
610:
Q=F*H
:LPRINT
..
30:
INPUT
"
c="
;
C
330:
FOR
J=0TO
C-1
OFo.'~c
="i
O
40;DJM
F
<B-1,C-
1)
340:W=W+G<I,
J>*G<l
620:1.J=W/0
,G<A-J
,
C-
1>.0<
'
J)
630:0=G*H:LPRIN
T
..
c-
n
,
O<B-
1>
350:NEXT
J:NEXT
I
D
Fb*c="
;
O
50:
P=0
:
J=0
360:
FOR
1=0TO B-1
640:X=X/O
60:
H=0:K=0
3 70:
FOR
J
=0TO
C-1
690
:
0=F*G*H
: LPRI NT
75:8S=S TRS
<l
+
J)+
380
:
X=X+F
(
!,
J
>*F<
J
.. DFe
=
"
;·o
•·,
''
+S
TR$
<J+
1
>
'J
)
?00
:
P=P/0
+•·,
"+STR$
(K+l
390:NEXT
J!NEXT
I
?
10:
O=Al:B*C-
J:
)
400:
W
=W/
B:X=X/A
LPRINT
''
OFt=
'
1
;
.76:
A
t:
= ''
x(
''
+8$ ..
"
>=
430:S=S-
R:LPR
I NT
..
Q
..
Sa=";
S
?2
0:LPRINT
"
Uo.=
";
S
.
?
?:
PRINT
AS;
440:T=
T-R:
LPRJ
NT
..
?30:LPRINT
"
Ub=";T
:
9 0:
INPUT
E:CLS
Sb=
''
; T
740
:
LPRIN
T
"IJc=
";U
110:
Z=Z+E*E
450:U=U-R:LPRINT
.
.
?50:
LPRINT
" Ua.*b=''
120:~(J,
Kl=F<
J,K!+
Sc=•·
;
U
;u
E
460:U=U-R-s-
r
:
760:LPRIN
T
"UQ*c="
130:G<l,Kl=G<J
,
Kl+
LPRIN
T "Sa*b="
;w
E
;u
770:LPR
JN
T
''Ubl:c="
140:Q<K>=O<Kl+E
47 0:1.i=W-
R-
S-U;
;x
ISB
:H=H+E:
LPRINT
"
Sa*c="
800:LPRJNT
''Ve
::
";P
160: IF K<
>C-I
LET
K
;w
810:
F=S/P:LPRINT
..
=K+I:
G
OTO
75
480
: x=x-R-
T-U:
Fo.::";F
17
0:
U=U•H*H
LPRI
NT
" Sb'*c
;:;:"
820:
F:T/P:LPRINT
..
180:
O<J>
=O(J
l
+H
;
x
Fb=
''
;
F
190:P:
P+H
510:Z=Z-R
830:
F:
U/P:LPRINT
..
200:
IF
J<
>B-I
LE
T
J
520:P=Z-5-T-U-u-w-
Fe=";
F
=J+
l
:GQTO
60
X:
LPRINT
"S
e::
"
840:
F=U/P:LPRINT
..
210:S=S+ P*P
;P:
LPRINT
''St
=
Fa*b=
"jF
220:
R=R+P
"; z
850:
F=W/P:LPR
INT
..
230
:
IF J<>A-ILET
I
530:
F=A-J
:
LPRIN
T
..
Fo.*c=";F
=l
+I :GOTO 50
DFo= ''
;
F
860:F=X/P
:LPRJNT
..
240
:R=R*R/(A*B*C>
540:5=S/F
Fb*c=";F
250:S=S,<B•C>
550:6=8-
l:
LPR
IN
T
..
890:END
260
:FQR
1=0TO
B-
1
OFb=''
; G
270:T=
T+Q(ll *O<I>
:
560:T=T/G
NEXT
I
570:H=C-
l :LPRI
NT
..
280:FQR
l=0TO
C-
1
OFc=";
H
290:U=U+Q(ll*Q<ll:
580:U=U/H
STATUS
l
NEXT
I
1295
Do not sale this PDF
!!!
-
10
-
Advertisement
