pascal 中一个关于矩阵乘法的问题

2024-11-28 10:38:08

推荐回答（3个）

回答1：

var
a,b,c,i,j,k:longint;
x,y,f:array[0..2000,0..2000]of longint;
begin
read(a);
read(b);
read(c);
for i:=1 to a do
for j:=1 to b do
read(x[i,j]);
for i:=1 to b do
for j:=1 to c do
read(y[i,j]);
writeln(a,' ',c);
for i:=1 to a do
begin
for j:=1 to c do
begin
for k:=1 to b do
f[i,j]:=f[i,j]+x[i,k]*y[k,j];
write(f[i,j],' ');
end;
writeln;
end;
end.

回答2：

哇- -你居然纠结到这里来了~~
建议去看看m67的矩阵那里有一篇文章貌似不错..
其他的还是那句话
我不懂啊不懂...

by KKK

回答3：

题目描述有问题啊ZCY......到底哪个是第一个矩阵？
------hsl