Перемножение 2 матриц. Помогите с задачей.

[RomT24]

Привет всем!
Помогите пожалуйста решить зпдпчку по матрицам:
"Дана матрица A (n*m) и матрица B (m*p). Перемножить A на В и вывести результирующую матрицу (размер - n*p)"
Заранее благодарен!

[Sazary]

Посмотрите тут:
http://ru.wikipedia.org/wiki/Матрица...B0.D0.BC.D0.B8
А еще вот это:
http://programmersforum.ru/showthrea...E0%F2%F0%E8%F6
И другие по запросу в поиске "умножение матриц".

[RomT24]

Я это просмотрел, но у меня упорно выводит только нули. С чем это связано??

[Sazary]

Я это просмотрел, но у меня упорно выводит только нули. С чем это связано??

Так вы свой код покажите - будет видно. Я не телепат.

[RomT24]

Вот код:
program lab1_4;
uses crt;
var
a:array [1..100] of array [1..100] of integer;
b:array [1..100] of array [1..100] of integer;
c:array [1..100] of array [1..100] of integer;
i,j,n,m,p,k:integer;
begin
cls;
read(n,m);

for i:=1 to n do
for j:=1 to m do
read(a[i][j]);
writeln('Матрица 1: ');

for i:=1 to n do
begin
for j:=1 to m do
write(a[i][j]:4);
writeln;
end;


read(p);
for i:=1 to m do
for j:=1 to p do
read(a[i][j]);
writeln('Матрица 2: ');

for i:=1 to m do
begin
for j:=1 to p do
write(a[i][j]:4);
writeln;
end;

for i:=1 to n do
begin
for j:=1 to p do
begin
c[i][j] := 0;
for k:=1 to m do
c[i][j] := c[i][j] + a[i][k]*b[k][j];
end;
end;



writeln('Матрица C=A*B: ');
writeln;

for i:=1 to n do
begin
for j:=1 to p do
write(c[i][j]:4);
writeln;
end;

end.

[Sazary]

RomT24 Для кода используйте тег CODE

Ошибка здесь:

read(p);
for i:=1 to m do
for j:=1 to p do
read(a[i][j]);
writeln('Матрица 2: ');

for i:=1 to m do
begin
for j:=1 to p do
write(a[i][j]:4);
writeln;
end;

Вы обе матрицы пишете в a.

[RomT24]

Блин, стыд позор... Спасибо огромное!))))