Sharp PC-1500 Anwenderhandbuch Seite 41

PROGRAMMN-NR.
PROGRAMMNAME: MATRIXPRODUKT
[ Programmlisting ]
1Q:
20:
"Q"S CLEAR :
WAIT @:CLS
PRINT "M=
Le"
*CURSOR 3: [INPUT
M: CURSOR 18:
INPUT L
:M=M-1:L=L-1
:DiM ACM) LD
:FOR 1=@T0 M:
FOR J=@TO L
PAS="aACT4+STRE 6
lela T+ S0RS
Cela pS
:CLS :PRINT AS;
68:
7B:
88:
3G:
18@:
119:
120:
138:
148:
159:
16a:
17@:
188:
19@:
208:
210:
228:
238:
INPUT ACI; JD
NEXT J: NEXT I
CLS :PRINT "L=
*sL+i: CURSOR &
INPUT "N="5N:N
=N-1
DIM CCM; Nd
FOR J=@TO L
FOR J=@TO N
O$="HC"FSTRE ¢
1+1)+", "+STR$
CJ+idt% oa"
CLS :PRINT A$;
INPUT B
FOR K=9TO MM
CCK, JO=CCKs J+
ACK; 1) xB
NEXT K:NEXT J:
NEXT I
FOR [=8TO M:
FOR J=8TO N
AS="CC"+STRF ¢
J+1)4+", "+STRS
(J+19409="
LPRINT AS$;CC]1,
ae)
NEXT J: NEXT I
END
STATUS 1
| Speicherinhalt ]
lemente von Matrix
(Eingabedaten)
Spalten fiir Matrix
A, Zeilen fiir
Matrix B
Zeilen von Matrix A
Spalten von Matrix B
lm] <}>[2 |<
$ | Eingabemeldung
ML) Elemente von Matrix
" | A (Eingabedaten)
Elemente der
Produktmatrix
z
Q
M,N