что это за метод нахождения обратной матрицы?

[Paran01k]

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

P.S. может у кого нибудь есть другой способ нахождения обратной матрицы, скиньте пожалуйста.

procedure Obratis;
var k, i, j: integer;
    b: array[0..300, 0..300] of real;
    obr: array[0..300, 0..300] of real;
begin
 for k:=0 to n - 1 do
 begin
      for i:=0 to n - 1 do
       for j:=0 to n - 1 do
       begin
            if (i=k) and (j=k) then
               b[i,j]:= 1/obr[i,j];
               if (i=k) and (j<>k) then
                  b[i,j]:= -obr[i,j]/obr[k,k];
               if (i<>k) and (j=k) then
                  b[i,j] := obr[i,k]/obr[k,k];
               if (i<>k) and (j<>k) then
                  b[i,j] := obr[i,j] - obr[k,j] * obr[i,k]/obr[k,k];
       end;
      for i:= 0 to n - 1 do
       for j:= 0 to n - 1 do obr[i,j]:= b[i,j];
 end;
end;

________
1) Название темы не соответствует правилам форума
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)

Не забывайте об этом!

Модератор.