2 курс / Численные методы / Задание 2 / Секущие

var x,a,b,eps,s:real;
function f(x:real):real;
begin
f:=4*x*x*x-6*x*x+x-7;
end;
begin
write('Введите левый предел ');
readln(a);
write('Введите правый предел ');
readln(b);
write('Введите точность е ');
readln(eps);
while abs(b-a)>=eps do
begin
s:=b-f(b)/(((f(a)-f(b))/(a-b)));
a:=b;
b:=s;
end;
writeln(s);
end.