переумножить в 2 матрицы 3X3

[gred]

Простая задача, но я непомню что за хрень матрицы и как их умножать (стыдно)
напичите плиз на паскале и на делфи

[SNUPY]

Если вглядеться в корень проблемы то судя по всему автор не знает как умножаются матрицы и что такое матрицы... ну чтож, вот ссылки разбирайтесь:
http://ru.wikipedia.org/wiki/Матрица_(математика)

[gred]

Надо тупо создать 2 массива до 9 и перемножить их? Потом создать 3

[gred]

uses crt;
var
mas1:array[1..9] of integer;
mas2:array[1..9] of integer;
i,n,k:integer;
begin
writeln('Vv 1 matrizu');
for i:=1 to 9 do
begin
Write('mas ',i,'=');
readln(mas1[i]);
end;
writeln('Vv 2 matrizu');
for n:=1 to 9 do
begin
Write('mas ',n,'=');
readln(mas2[n]);
end;
writeln('otvet');
for i:=1 to 9 do
begin
k:=mas1[i]*mas2[2];
Writeln('mas=',k);
end;
readln;
end.

так? надо?

[_Dmitry]

Ну, вы даёте...
Здесь есть и формула и цветной рисунок, как перемножить матрицы:
http://ru.wikipedia.org/wiki/%D0%9F%...B0.D0.BC.D0.B8

[Шаман]

Сообщение от gred

Простая задача, но я непомню что за хрень матрицы и как их умножать (стыдно)
напичите плиз на паскале и на делфи

У мну есть код решения вопросса, только он страшный, правда работает...

uses
crt;

var
mata,matb,pro:array [1..3,1..3] of longint;  //описываю три матрицы 3х3
i,j:integer;
begin
clrscr;
randomize;
for i:=1 to 3 do begin
  for j:=1 to 3 do
  begin
    mata[i,j]:=random(100);       //матрицы формируются рэндомом
                                              (можешь сделать вручную)
    matb[i,j]:=random(10);
    end;
    end;
  for i:=1 to 3 do begin      // здесь я вывожу первую матрицу на экран 
   for j:=1 to 3 do
    write(mata[i,j],' ');                        
    writeln;
   end;
   writeln;
  for i:=1 to 3 do begin
  for j:=1 to 3 do
   write(matb[i,j],' ');         //здесь вторую
   writeln;
    end;
  writeln('Результат');         
    for i:=1 to 3 do begin
     for j:=1 to 3 do
     begin
      pro[i,j]:=mata[i,j]*matb[i,j];        //умножение двух матриц
      write(pro[i,j],' ');                         //вывод на экран
      writeln;
      end;
      end;
   readln;
   end.

[_Dmitry]

Бред...

Результатом перемножения двух квадратных матриц a и b, размером [n x n] является матрица c, такого же размера, которая получается следующим образом:

for k:=1 to n do
  for i:=1 to n do
    for j:=1 to n do
      c[k,i]:=c[k,i]+a[k,j]*b[j,i];

Матрицу c не забудьте обнулить перед счетом.

[gred]

Неполучается, всегда числа просто перемножаются например вводишь
5 5 5 и 5 5 5 - 25 25 25
5 5 5 - 5 5 5 = 25 25 25
5 5 5 - 5 5 5 - 25 25 25
а надо по правилу:

[puporev]

Вот кусок из модуля, посвященный умножению матриц n*n.

Procedure Umnogenie(n:integer;a,b:Tmatrix;var c:Tmatrix);
var k,j,i:integer;z:real;
begin
for k:=0 to n-1 do
  for j:=0 to n-1 do
  begin
  c[k,j]:=0;
    for i:=0 to n-1 do
    begin
    z:=a[i,j]*b[k,i];
    c[k,j]:=c[k,j]+z;
    end;
  end;
end;

[_Dmitry]

Сообщение от gred

Неполучается, всегда числа просто перемножаются например вводишь
5 5 5 и 5 5 5 - 25 25 25
5 5 5 - 5 5 5 = 25 25 25
5 5 5 - 5 5 5 - 25 25 25

Естественно, код в пост #6 не верен.
Рабочий код, см. пост #7 (индексация матриц с единицы) и пост #9 (индексация матриц с нуля).