RosettaCodeData/Task/Gauss-Jordan-matrix-inversion/PascalABC.NET/gauss-jordan-matrix-inversion.pas
2024-10-16 18:07:41 -07:00

9 lines
161 B
ObjectPascal

uses NumLibABC;
begin
var A := new Matrix(3,3,1,2,3,4,1,6,7,8,9);
'Original:'.Println;
A.Println(10,5);
'Inverse:'.Println;
A.Inv.Println(10,5);
end.