30 lines
637 B
Plaintext
30 lines
637 B
Plaintext
dim a(4, 2)
|
|
a(0, 0) = 1 : a(0, 1) = 2
|
|
a(1, 0) = 3 : a(1, 1) = 4
|
|
a(2, 0) = 5 : a(2, 1) = 6
|
|
a(3, 0) = 7 : a(3, 1) = 8
|
|
dim b(2, 3)
|
|
b(0, 0) = 1 : b(0, 1) = 2 : b(0, 2) = 3
|
|
b(1, 0) = 4 : b(1, 1) = 5 : b(1, 2) = 6
|
|
dim prod(arraysize(a(),1), arraysize(b(),2))
|
|
|
|
if (arraysize(a(),2) = arraysize(b(),1)) then
|
|
for i = 0 to arraysize(a(),1)
|
|
for j = 0 to arraysize(b(),2)
|
|
for k = 0 to arraysize(a(),2)
|
|
prod(i, j) = prod(i, j) + (a(i, k) * b(k, j))
|
|
next k
|
|
next j
|
|
next i
|
|
|
|
for i = 0 to arraysize(prod(),1)-1
|
|
for j = 0 to arraysize(prod(),2)-1
|
|
print prod(i, j),
|
|
next j
|
|
print
|
|
next i
|
|
else
|
|
print "invalid dimensions"
|
|
end if
|
|
end
|