Версия для печати темы

program;

  function f(x: double): double;
  begin
     f:=(4+sqr(x))*(exp(x)-exp(-x))-18;
  end;

  function chord(a, b: double): double;
  begin
     chord:=(f(b)*a-f(a)*b)/(f(b)-f(a));
  end;

var  n:integer;
    x, a, b, c, eps: double;
begin
  n:=0;
  writeln('BBeguTe 3Ha4eHu9I a u b');
  read(a, b);

  writeln('BBeguTe To4HocTb eps');
  read(eps);
  a:=1.2;
  b:=1.3;

  repeat
     c:=chord(a,b);
     if f(a)*f(c)>0 then a:=c
     else b:=c;
     inc(n);
  until abs(chord(a,b)-c)<eps;
  x:=c;
  writeln('KopeHb paBeH x = ',x:10:7);
  writeln('Ko/\/\u4ecTBo uHTepaaL|uu` = ', n);
  readln;
  readln;
end.