// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
uses NumLibABC;
begin
var A:= new Matrix(3,3,
2.0, 1.0, -3.0,
-1.0, 0.0, 5.0,
1.0, 0.0, -1.0);
Writeln('*** Исходная матрица ***'); A.Println(6,2);
var B:=A.Inv;
Writeln('*** Обратная матрица ***'); B.Println(6,2);
Writeln('*** Обратная обратной **'); B.Inv.Println(6,2)
end.
Результат
*** Исходная матрица ***
2.00 1.00 -3.00
-1.00 0.00 5.00
1.00 0.00 -1.00
*** Обратная матрица ***
0.00 0.25 1.25
1.00 0.25 -1.75
0.00 0.25 0.25
*** Обратная обратной **
2.00 1.00 -3.00
-1.00 0.00 5.00
1.00 0.00 -1.00