Sharp PC-1500 - Page 41

All and more about Sharp PC-1500 at http://www.PC-1500.info
PR OGRAM
MATRIX PRODUCT
PROGRAM NO .
3
TITLE
PS- A- 12
I Program List I
I
Memory Cont ents I
10: "A"; CLEA R :
WA I T 0:CLS
A
20:PRINT ··n =
L="
Elements of matrix 8
22:C URSOR 3: INPU T
B
( In put data)
M:CURSOR J 0:
IN PUT
L
23:M=M - t : L= L- J
c
25: I) IM A<M,L )
30:FOR
1=0TO
M:
D
F OR J=0TO
L
E
40 :A$="o.<"•STR$
(
F
I+!)+ ", "+ST R$
(J+J )+ " > ="
G
50:CL S
:PRINT A$;
H
60:JNPUT A<J,J)
v
7 0:N E XT J :NEXT
j
I
80: CLS :PRINT " L= J
v
" ; L+J : CU RSOR
8
K
v
90: INPUT
11
N=
1
'
;N : N
=N - J
Columns for matrix
100:0J M C< M,N)
L
A/Rows for matrix B
l J 0: FO R 1= 0TO
L
Ruw s of matrix A
120 :FOR
J=0 TO N
M
1 30:A$ = ''b < ''•STR$ (
Columns of matrix
l · ~l )+", "+STRS
N
B
CJ + !)+"> ="
!40 : CLS :PRINT A$;
0
!50:JNP UT
B
p
160:FOR K=0TO
M
I 70: C (K, J >=C< K, J ) +
Q
A<K, l)*B
R
J80 :N EXT K!NEXT J:
s
NEXT I
190:FOR 1=0TO
n:
T
FOR J= 0 TO N
u
200:A$ .:'' c( '' +S T R$
(
v
l+ J )+ ", "+STR$
<J•I> +" ) .:: "
w
2J0:LPRINT A$ ; C ( l,
x
J>
220:NEXT J : NE XT
I
y
230:END
z
AS Input messa&c
A IU .,L)
Elements of ma trix A
(Input
data)
ClM .NJ
E lement s of product
STATUS I
matrix
4<16
Do not sale this PDF !!!
- 35 -