12 lines
227 B
ObjectPascal
12 lines
227 B
ObjectPascal
|
uses NumLibABC;
|
|||
|
|
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><><EFBFBD><EFBFBD>)
|
|||
|
|
begin
|
|||
|
|
var A:=new Matrix(3,3,2,3,-1,1,-2,1,1,0,2);
|
|||
|
|
var B:=new Vector(9,3,2);
|
|||
|
|
var cond:real;
|
|||
|
|
var x:=A.SLAU(B,cond);
|
|||
|
|
x.Println;
|
|||
|
|
Writeln('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = ',cond)
|
|||
|
|
end.
|