Question

Где здесь ошибка метод хорд 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.

Answer 1

Везде, начиная с того что даже f написана не верно
вот рабочий код. Формулы брались на вики, потому что в ваших я сомневаюсь весьма

function F(x: real): real;
begin
    f := sqr(sqr(x)) * x + 3 * sin(x) - 3 * sqr(x) - 12;
end;

function FindRoot(a, b, epsilon: real): real;
begin
    while(abs(b - a) > epsilon) do
    begin
        a := b - (b - a) * f(b) / (f(b) - f(a));
        b := a + (a - b) * f(a) / (f(a) - f(b));
        writeln(a, ' ', b);
    end;
   
    FindRoot := b;
end;

begin
    writeln('x = ', FindRoot(0.5, 1.5, 0.001));
end.