Подпрограмма перемножения матриц (3 матрицы)

[Doublefaced]

Даны матрицы А(i,j,k), B(i,j,k) C(I,j,k). Написать подпрограмму перемножающая эти матрицы.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const n=3;
type mass=array[1..4,1..4] of integer;
 
procedure Umnosh(a1,a2,a3:mass);
var  c:mass;
     i,j,k:integer;
{begin
for i:=1 to n do
begin
for j:=1 to n do
a1[i,j]:=a1[i,j]*a2[i,j];
end;}
 
begin
 for i:=1 to n do
    for j:=1 to n do
      c[i,j]:=0;
    for k:=1 to n do
    for i:=1 to n do
    for j:=1 to n do
      c[k,i]:=C[k,i]+(a1[i,j]*a2[j,i])*a3[i,k];
   WriteLn;
     for i:=1 to n do
      WriteLn(c[i,1],' ',c[i,2],' ',c[i,3]);
end;
 
 
 
 //end;
 
var a, b,z:mass;
    i,j:integer;
 
begin
Writeln('Matrica A:');
for i := 1 to n do
for j := 1 to n do
begin
Write('a[', i, ',', j,'] : ');
Readln(a[i, j]);
end;
 
begin
Writeln('Matrica B:');
for i := 1 to n do
for j := 1 to n do
begin
Write('b[', i, ',', j,'] : ');
Readln(b[i, j]);
end;
Writeln('Matrica Z:');
for i := 1 to n do
for j := 1 to n do
begin
Write('z[', i, ',', j,'] : ');
Readln(z[i, j]);
end;
   Umnosh(a,b,z);
   WriteLn;
   ReadLn;
   end;
   end.

Помогите, как перемножить 3 матрицы (в программе).

[ОДИНОЧЕСТВО В СЕТИ]

вот тут смотри

[Daramant]

Матрицы нужно перемножать последовательно, как и числа.
Сначала перемножить 1-ю и 2-ю матрицы. Результат умножить на 3-ю матрицу.

[Doublefaced]

begin
for i:=1 to n do
begin
for j:=1 to n do
a1[i,j]:=a1[i,j]*a2[i,j];
end;}
 
begin
 for i:=1 to n do
    for j:=1 to n do
      c[i,j]:=0;
    for k:=1 to n do
    for i:=1 to n do
    for j:=1 to n do
      c[k,i]:=C[k,i]+a1[i,j]*a3[i,k];
   WriteLn;
     for i:=1 to n do
      WriteLn(c[i,1],' ',c[i,2],' ',c[i,3]);
end;

Пробовал так, но считает не правильно.

[Daramant]

http://devels.ru/?what=art&p=106
+ смотри похожие темы внизу страницы.

[spamer]

Doublefaced я сам лично дето в этом разделе выкладывал исходник умножения матриц, правда на делфи, но это не страшно, так что попробуйте найти его.

[Doublefaced]

Мне и нужно (Делфи Консоль).
Как две матрицы перемножить я знаю, а вот как 3 не понимаю

[__STDC__]

О_о перемножаете две первые, получаешь новую, перемножаете ее с третьей... надо помнить только о неассоциативности умножения матриц и о их размерности..
т. е. (AB)C != A(BC) (если конечно это не E)

[Doublefaced]

Напишите пож-та я писал, но почему то не робит. Пол дня мучаюсь.