Программа

Program Pilshikov_5_34 (input,output);
{ С точностью Eps вычислить
   d
   Ї
   │Cos(Exp(x))*dx,
   ї
   a
  используя формулу трапеций:
   d
   Ї
   │f(x)*dxўIn=h*[f(a)/2+f(a+h)+f(a+2*h)+...+f(b-h)+f(b)/2],
   ї
   a
  где h=(b-a)/n.
  Критерий точности - правило Рунге:
  │I2n-In│/3<Eps,
  где  n пробегает значения из ряда:
  1*n0,2*n0,4*n0,8*n0,... .
  n0 - любое целое.                                                          }
Const n0=10;
Var c,d,Eps:real;
    I,Ipred:real;
    h:real;
    k:integer;
    n:integer;
Function F(x:real):real;
  Begin
    F:=cos(exp(x))
  End;
BEGIN
  Writeln('Введите c');
  Readln(c);
  Writeln('Введите d');
  Readln(d);
  Writeln('Введите Eps');
  Readln(Eps);


  n:=1;
  n:=n*n0;
  h:=(d-c)/n;
  I:=(F(c)+F(d))/2;
  for k:=1 to n-1 do I:=I+F(c+k*h);
  I:=I*h;
  repeat
    Ipred:=I;
    n:=n*n0;
    h:=(d-c)/n;
    I:=(F(c)+F(d))/2;
    for k:=1 to n-1 do I:=I+F(c+k*h);
    I:=I*h
  until Abs(I-Ipred)/3<Eps;


  Writeln(I)
END.