Помогите решить , необходимо отыскать оборотную матрицу

Помогите решить , необходимо найти оборотную матрицу

Задать свой вопрос
1 ответ
// 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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт