12 lines
287 B
ObjectPascal
12 lines
287 B
ObjectPascal
|
uses NumLibABC;
|
|||
|
|
|
|||
|
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
begin
|
|||
|
|
var u:=(new Polynom(2, -6, 0, 3.8, 0, 1)).Value(-7.16); // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
Println(u);
|
|||
|
|
|
|||
|
|
var t:=new Polynom(1, -7, 12, -3, -2);
|
|||
|
|
var (p,q):=(t.PInt, t.PDif); // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
p.PrintlnBeauty; q.PrintlnBeauty;
|
|||
|
|
end.
|