метод секущих

Ответ от [гуру]
Методом секущих хорд наверно имелось в виду?
program XORDA;
function f(x:real):real;
begin
f:=sqr(x)*sqr(x)*x+3*sqr(x)+x;
end;
function f1(x:real):real;
begin
f1:=5*sqr(x)*sqr(x)+6*x+1;
end;
function f2(x:real):real;
begin
f2:=20*sqr(x)*x+6;
end;
Var
a,b,x0,x,E : real;
BEGIN
writeln('Введите начало отрезка');
write('a=');
readln(a);
writeln('Введите конец отрезка');
write('b=');
readln(b);
writeln('Задайте точность вычислений');
write('E=');
readln(E);
if f(b)*f2(b) > 0 then
begin
x:=b-0.00001;
repeat
x0:= x;
x:= x0 - (f(x0)*(b-x0)) / (f(b)-f(x0));
until abs(x0 + x) <= E;
writeln('x=',x:5:3);
end;
if f(a)*f2(a) < 0 then
begin
x:=a-0.00001;
repeat
x0:= x;
x:= x0 + (f(x0)*(x0-a)) / (f(a)-f(x0));
until abs(x0 + x) <= E;
writeln('x=',x:5:3);
end;
Источник: Это метод хорд для другого уравнения. Разберитесь в коде и адаптируйте под себя.