Где здесь ошибка метод хорд
9.x5+3*sin(x)-3x2-12
program P12;
var a,b,c,x:real;
i,n:integer;
function F(x:real):real;
begin
f:=sqr(sqr(x))+3*sin(x)-3*x*sqr(x)-12;
end;
begin
a:=0.5; b:=1.5; n:=12;
for i:=1 to n do
begin
x:=x-(f(x))/(f(c)-f(x))*(c-x);
c:=a-(f(a))/(f(a))*(b-a);
writeln(x:10:8,'',f(x):12:8);
if f(c)*f(a)>0 then break
else begin c:=a; x:=b;end;
end;
end.
9.x5+3*sin(x)-3x2-12
program P12;
var a,b,c,x:real;
i,n:integer;
function F(x:real):real;
begin
f:=sqr(sqr(x))+3*sin(x)-3*x*sqr(x)-12;
end;
begin
a:=0.5; b:=1.5; n:=12;
for i:=1 to n do
begin
x:=x-(f(x))/(f(c)-f(x))*(c-x);
c:=a-(f(a))/(f(a))*(b-a);
writeln(x:10:8,'',f(x):12:8);
if f(c)*f(a)>0 then break
else begin c:=a; x:=b;end;
end;
end.