Sharp PC-1500 Applications Manual page 41
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-1500
at http://www.PC-1500.info
PROGRAM
MATR
IX PRODUCT
PROGRA
M
NO.
3
TITLE
PS- A-
12
I
Program
List
I
I
Memory
Contents
I
10
:
"A";
CLEAR
:
WA
I
T
0:CLS
A
20:PRINT
··n=
L="
Elements of
matrix 8
22:CURSOR
3:
INPU
T
B
(Input
data)
M:CURSOR
J 0:
INPUT
L
23:M=M-
t
:
L=L-
J
c
25:
I)
IM
A<M,L
)
30:FOR 1=0TO M:
D
FOR J=0TO
L
E
40
: A$="o.<"•STR$
(
F
I+!)+
"
,
"+STR$
(J+J
)+
"
>
="
G
50:CL
S
:PRINT
A$;
H
60:JNPUT
A<J,J)
v
70:NEXT
J
:NEXT
j
I
80:
CLS
:
PRINT
"
L=
J
v
"
;
L+J
: CURSOR
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:
FOR
1=0TO
L
Ruws of
matrix A
120
:FOR
J=0
TO N
M
130:A$=''b<''•STR$
(
Columns
of
matrix
l ·~l
)+",
"+STRS
N
B
CJ
+
!)+">="
!40:
CLS
:
PRINT A$;
0
!50:JNPUT
B
p
160:FOR
K=0TO
M
I 70:
C (K,
J
>=C<
K,
J
)
+
Q
A<K, l)*B
R
J80 :NEXT
K!NEXT
J:
s
NEXT I
190:FOR 1=0TO
n:
T
FOR
J=0
TO
N
u
200:A$.:
''
c(
''
+S TR$
(
v
l+
J )+
"
,
"+STR$
<J•I> +"
)
.::
"
w
2 J0:LPRINT A$
;
C
(
l,
x
J>
220:NEXT
J
: NEXT
I
y
230:END
z
AS
Input
messa&c
A IU.,
L
)
Elements of
matrix
A
(Input data)
ClM. NJ
Elements
of
product
STATUS
I
matrix
4<16
Do not
sale
this PDF !!!
- 35
-
Advertisement
