Вычисление корня методом хорд

acrem

решить уравнение методом хорд (x-3)cosx-1=0
1 ответ

acrem

uses crt;
var a,b,c,E: real;
    i: integer;
function f(x: real): real;
begin
 f:=(x-3)*cos(x)-1; {функция}
end;
begin
 clrscr;
 write('a/b/e: '); {отрезок и точность}
 readln(a,b,E);
 i:=0;
 while abs(f(c))>E do
  begin
   c:=a-(b-a)/(f(b)-f(a))*f(a);
   if f(a)*f(c)>0 then
     a:=c
   else
     b:=c;
   inc(i);
  end;
 writeln('C=',c:4:2,' Iteratsiy: ',i);
 readln;
end.