3 :
4 REM MATRIZENMULTIPLIKATION
5 REM (W) VOLKER REICHARD
6 REM (C) 64'ER
7 :
10 DIMA(10,10),B(10,10),C(10,10)
20 :
30 INPUT"ZEILEN MATRIX A";Z1
35 INPUT"SPALTEN        ";S1:PRINT
40 INPUT"ZEILEN MATRIX B";Z2
45 INPUT"SPALTEN        ";S2
47 PRINT
50 :
55 IFS1<>Z2THENPRINT"PRODUKT NICHT BILDBAR!":END
60 :
62 PRINT"MATRIX A"
65 FORZI=1TOZ1:PRINT"ZEILE";ZI
70 FORSI=1TOS1
75 INPUTA(ZI,SI)
80 NEXTSI,ZI
85 :
90 PRINT:PRINT"MATRIX B"
95 FORZI=1TOZ2:PRINT"ZEILE";ZI
100 FORSI=1TOS2
105 INPUTB(ZI,SI)
110 NEXTSI,ZI
115 :
116 FORZ=1TOS2
118 FORY=1TOZ1
120 FORX=1TOS1
125 S(Y,Z)=A(Y,X)*B(X,Z)
130 C(Y,Z)=C(Y,Z)+S(Y,Z)
135 NEXTX,Y,Z
136 PRINT
137 :
140 PRINT"MATRIX A"
142 FORZI=1TOZ1
145 FORSI=1TOS1
150 PRINTA(ZI,SI);
155 NEXTSI:PRINT:NEXTZI
160 PRINT:PRINT"MATRIX B"
165 FORZI=1TOZ2
170 FORSI=1TOS2
175 PRINTB(ZI,SI);
180 NEXTSI:PRINT:NEXTZI
185 PRINT:PRINT"PRODUKT A*B"
190 FORZI=1TOZ1
195 FORSI=1TOS2
200 PRINTC(ZI,SI);
205 NEXTSI:PRINT:NEXTZI