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

Question

有两个矩阵如下
1 h11 h12 h13 0 0 0 和 1 0 0 g13 0 0 0
1 0 0 h23 h24 h25 0 1 0 g22 0 0 g25 0
1 0 0 h33 0 h35 h36

要求乘起来矩阵为0，输入两个矩阵由题目给出，如h12等为未知数，矩阵左边第一列必定为1
有多组解…求一组即可
肿么做？

Answer 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.

Answer 2

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

by KKK

Answer 3

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