12 lines
287 B
ObjectPascal
12 lines
287 B
ObjectPascal
uses NumLibABC;
|
|
|
|
// ðàáîòà ñ ïîëèíîìàìè
|
|
begin
|
|
var u:=(new Polynom(2, -6, 0, 3.8, 0, 1)).Value(-7.16); // çíà÷åíèå â òî÷êå
|
|
Println(u);
|
|
|
|
var t:=new Polynom(1, -7, 12, -3, -2);
|
|
var (p,q):=(t.PInt, t.PDif); // èíòåðãðàë è ïðîèçâîäíàÿ
|
|
p.PrintlnBeauty; q.PrintlnBeauty;
|
|
end.
|