Добуток двох матриць

допоможіть хто зможе треба помножити дві матриці (AxB) розмірністю NxN а відповідь записати в матрицю З заряння длагоден

А слабко до підручника з алгебри заглянути, ну чи в неті знайти. Формула не така вже й складна.

Тобто a [b] * c [b]? так у циклі. А скажіть формулу, мені також цікаво.

у мене є вихідники на делфі. Для себе писав! Якщо хочеш, надішлю поштою, тільки маїл дай

Ага. Ну спробуйте помножити дві матриці розміромMxN, коли M <> N

А чого складного цьому в середній школі вчать.

Головне щоб матриці мали розміри M * N і N * K відповідно!

а є у кого-нитка алгоритм перетворення матриці до ступінчастого вигляду ??

interface procedure Multiplication;

implementation uses crt;

var x,i,j,m,n,k,l:integer; s,a,b,c:array[1..30,1..30] of integer;

begin window (1,1,80,25); clrscr; textcolor(11); window(30,1,80,1);write("ВВЕДІТЬ РОЗМІРНІСТЬ МАТРИЦЬ"); window(1,2,80,25);

write("кількість рядків матриці A:");read(m);

write("кількість стовпців матриці A:");read(n);writeln;

write("кількість рядків матриці B:");read(k);

write("кількість стовпців матриці B:");read(l);writeln;

writeln("введіть елементи матриці A:"); для i:=1 до м для j:= 1 до n до read(a[i,j]);

writeln("введіть елементи матриці B:"); для i:=1 до для j:= 1 до read(b[i,j]);

write("МАТРИЦЯ A:"); for i:=1 to m do begin writeln; for j:= 1 to n do write(a[i,j]," "); end;

write("МАТРИЦЯ B:"); для i:=1 до k begin writeln; for j:= 1 to l do write(b[i,j]," "); end;

for i: = 1 to m do для j: = 1 to l do c [i, j]: = 0;

for i:=1 to m do для x:=1 для l для j:=1 для n do c[i,x]:=c[i,x]+a[i,j]*b[j , x];

для i:=1 до k for j:=1 до n до s[i,j]:=0;

for i:=1 до for x:=1 до для j:=1 до l s[i,x]:=s[i,x]+b[ i,j]*a[j,x];

write("ТВОРЕННЯ МАТРИЦІ A НА МАТРИЦУ В: "); і n=k then для i:=1 до м begin writeln; for j:=1 to l do write(c[i,j]," "); end else write("не існує");

write("ТВОРЕННЯ МАТРИЦИ B НА МАТРИЦЮ A: "); і l=m then for i:=1 до k begin writeln; for j:=1 to n do write(s[i,j]," "); end else write("не існує");

window(10,25,80,25); write("ESC - вихід ANY KEY - головне меню ENTER - продовжити");

Якщо ти маєш на увазі перетворення до одиничної матриці методом Гауса-Жордана, то є!

Поодинокі. матриця це таке: 1000 0100 0010 0001

Pat. Тобі величезний респект за прогу з перемноженням матриць!

---