行列の乗算

問題　行列AとBの積Cを求めなさい。

100 ' Program matmult
110 ' 二つの行列 A と B の積を計算し、結果 Cを印刷する。
120 ' ここにDATA文でAの各要素を入力しなさい。
130 ' ここにDATA文でBの各要素を入力しなさい。
140 N=3 ' 行列のサイズ
150 DIM A(30,30), B(30,30), C(30,30)
160 FOR I=1 TO N
170 FOR J=1 TO N
180 READ A(I,J)
190 NEXT J
200 NEXT I
210 FOR I=1 TO N
220 FOR J=1 TO N
230 READ B(I,J)
240 NEXT J
250 NEXT I
260 FOR I=1 TO N
270 FOR J=1 TO N
280 FOR K=1 TO N
290 C(I,J) = C(I,J) + A(I,K)*B(K,J)
300 NEXT K
310 NEXT J
320 NEXT I
330 FOR I=1 TO N
340 FOR J= 1 TO N
350 PRINT USING "#### ";C(I,J);
360 NEXT J : PRINT
370 NEXT I
380 END

matmult.bas

---

問題　積行列BAを求めなさい。ABとBAに交換法則が成立しているか。

120 DATA 1, 2, 3, 4, 5, 6, 7, 8, 9
130 DATA 1, 0, 1, 2, 1, 2, 4, 1, 3

解答