This repository has been archived on 2024-12-25. You can view files and clone it, but cannot push or open issues or pull requests.
2024-03-10 20:32:51 +03:00

10 lines
289 B
ObjectPascal

uses NumLibABC;
// Íàõîæäåíèå äåéñòâèòåëüíîãî íóëÿ ôóíêöèè íà èíòåðâàëå èçîëÿöèè
begin
var f:real->real := t->sin(t)/(1+Sqr(Exp(t)))-0.1;
var oL:=new Zeroin(f,1e-12);
Println(oL.Value(-10,-9.5), oL.Value(-6.5,-6), oL.Value(-3.5,-3),
oL.Value(0,0.5),oL.Value(1,1.5))
end.