mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-30 08:28:14 +02:00
39 lines
886 B
ObjectPascal
39 lines
886 B
ObjectPascal
{
|
|
$Id $
|
|
}
|
|
|
|
program invgsyex;
|
|
uses typ, iom, inv;
|
|
const n = 4;
|
|
var i, j, term : ArbInt;
|
|
A : array[1..n,1..n] of ArbFloat;
|
|
begin
|
|
assign(input, paramstr(1)); reset(input);
|
|
assign(output, paramstr(2)); rewrite(output);
|
|
writeln('program results invgsyex');
|
|
{ Read bottomleft part of matrix A }
|
|
for i:=1 to n do iomrev(input, A[i,1], i);
|
|
{ print matrix A }
|
|
writeln; writeln('A =');
|
|
for i:=1 to n do for j:=1 to i-1 do A[j,i]:=A[i,j];
|
|
iomwrm(output, A[1,1], n, n, n, numdig);
|
|
{ calculate inverse of matrix A}
|
|
invgsy(n, n, A[1,1], term);
|
|
writeln; writeln('term=', term:2);
|
|
if term=1 then
|
|
{ print inverse of matrix A }
|
|
begin
|
|
writeln; writeln('inverse of A =');
|
|
iomwrm(output, A[1,1], n, n, n, numdig);
|
|
end; {term=1}
|
|
close(input); close(output)
|
|
end.
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.1 2004-04-18 14:47:11 marco
|
|
* initial versions
|
|
|
|
|
|
}
|