Матрица Опции

[CeMeH]

Помогите, оч. нужно

Дана квадратная матрица А порядка n. Получить матрицу АВ; элементы матрицы В вычисляются по формуле:

*******1/(i+j-1), если i<j
b[i,j] = 0 , если i=j
*******1/(i+j+1), если i>j
фигурная скобка на три строки после знака равно(=)

Спасибо за хоть какую-нибудь помощь!!

Сообщение отредактировано: CeMeH - 26.01.2010 20:21

[Shuruper]

Эх, держи халявщик:

const NMax = 10;{можно увеличить}
type Matrix = array [1..NMax, 1..NMax] of Real;  
 
procedure MulMatrix(var a, b, c: Matrix; n: Integer);
var  i, j, k: Integer;
     s: Real;
begin
     for i := 1 to n do
     for j := 1 to n do
     begin
          s := 0;
          for k := 1 to n do
          s := s + a[i, k]*b[k, j];
          c[i, j] := s
     end
 
end;
 
var  a, b, c: Matrix;
     i, j, n: Integer;
begin
     WriteLn('Введите порядок матрицы');
     Write('n = '); ReadLn(n);
 
     WriteLn('Введите первую матрицу A');
     for i := 1 to n do
     for j := 1 to n do
     Read(a[i, j]);
 
     for i := 1 to n do begin
      for j := 1 to n do begin
      If i<j then b[i,j]:=1/(i+j-1);
      If i>j then b[i,j]:=1/(i+j+1);
      If i=j then b[i,j]:=0;
      end;
     end;
 
     MulMatrix(a, b, c, n);
     WriteLn('Матрица AB');
 
     for i := 1 to n do
     begin
          for j := 1 to n do
          Write(c[i, j]:0:6, ' ');
          WriteLn
     end;
     ReadLn
end.

Сообщение отредактировано: Shuruper - 26.01.2010 20:53