Sharp PC-1500 - Page 76

A ll and more abo ut 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.
In put Display
Remarks
1
,..,., m
a= -
Dimension of factor A
2 2
I ENTER I
b=
Dimension of factor B
3 3
I EN TER: J
c -
Dimension
of factor C
4 4
I ENT ER 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 Li st I
10: "A": CLEAR
:CLS 300:T=T /( A* C>:U= U/
590:Q=F*G: L PR JNT
..
: WAIT 0
<A*B>
DFa*b=" ;O
20: INP UT
" 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: INPU T
" c =" ; C
330: FOR
J=0 TO 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 :L PRIN T
..
c- n , O<B - 1>
350:NEXT
J:NEXT
I
DF
b*c =" ;O
5 0: P=0: J=0
360: FOR
1= 0TO B-1
640:X = X/O
6 0: H=0:K=0
37 0: FOR
J = 0TO C-1
690 : 0=F*G*H :LPRINT
75:8S=S T RS <l + J)+
380 : X=X+ F( !, J >*F< J
.. DFe =" ;·o
•·, '' +S TR $ <J+ 1 >
'J )
?00 : P=P/0
+• ·, "+STR$
(K +l
390:N E XT
J!NEXT
I
? 10: O=Al:B*C - J:
)
40 0: W =W / B:X=X/A
LPRINT
'' OFt= '
1
;
. 76: At:='' x( '' +8 $ .. " >=
430:S=S - R:LPRINT
..
Q
..
Sa= "; S
?2 0:L PRINT " Uo. = "; S
.? ?: PRINT AS;
440:T= T -R: LPRJ NT
..
?3 0:LPRINT
" Ub = ";T
:90: IN PUT
E:CLS
Sb= '' ; T 740 : LPRIN T "IJc = ";U
110: Z=Z+ E*E
450:U=U-R:LP RINT
..
? 50: LPRINT
" Ua. *b=''
12 0:~(J , Kl= F< J,K!+
Sc =•· ; U ;u
E
460:U =U-R-s- r : 760:LP RIN T
" UQ *c ="
130:G<l,Kl= G<J , Kl+
LPRIN T
"Sa*b
="
;w
E ;u
770:LPR JN T
''U bl:c="
140:Q<K>=O<Kl+E
47
0:1.i=W - R- S-U;
;x
ISB:H =H +E:
LP RINT
" Sa*c ="
800:LPRJNT ' 'V e :: ";P
160: IF
K< >C-I LET
K
;w 810: F= S/P :L PRINT
..
=K+I: GO TO 75
480 : x=x-R- T -U:
F o.::";F
17 0: U= U •H*H
LP RI NT
" Sb '* c ;:;:"
820: F :T/P :LPRINT
..
180: O<J> =O(J l +H
; x F b= '' ; F
190:P : P+H
510:Z =Z -R 83 0: F: U/P:LPRINT
..
200: IF
J< >B -I LE T
J
520:P=Z-5-T-U-u- w- Fe="; F
=J+l :GQT O
60
X: LPRINT "S e:: " 840 :F=U/P:LPRINT
..
210 :S =S+ P*P ;P : L PRINT ' 'S t =
Fa *b= "jF
220: R=R+ P
"; z 850 : F= W/P:LPR INT
..
230 : IF
J<>A-ILET
I 530 : F=A-J :LP RIN T
..
Fo.*c=";F
=l +I :GOTO
50 D Fo = '' ; 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
OF b='' ; G
270:T= T+Q(ll *O <I> : 560:T=T/G
NE XT
I 570:H=C- l :L PRI NT
..
280:FQR
l=0TO
C-1 OFc="; H
290:U=U+Q(ll*Q<ll: 580:U =U /H STAT US
l
NEXT
I 1295
Do not sale this PDF !!!
- 10 -