Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Новый участник


Сообщения: 40
Благодарности: 2

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
program ABC;
var
const
R=500;
matr1,matr2,matr3,matr4: array[1..R,1..R] of real;
i,j,m,n,p,s,g: integer;
S:real;

Begin
   read (g)                     {размерность матрицы gxg}
   for i:=1 to g do
   for j:=1 to g do
        begin
        read(matr1[i,j]);
        end;
   for m:=1 to g do
   for n:=1 to g do 
        begin
        read(matr2[m,n]);
        end;
   for p:=1 to g do
   for s:=1 to g do
        begin
        read(matr3[p,s]);
        end;

D[i,j] := D[i,j] + (A[i,j]*B[j,i])*C[j,i];
Вот формула

Значит матрицы мною заданны, как теперь задать их перемножение?

Последний раз редактировалось dasha131, 01-10-2010 в 14:56.


Отправлено: 14:02, 01-10-2010 | #3