program Project15;
{$APPTYPE CONSOLE}
uses
SysUtils,System;
Function Integral(a,b:integer):real;
const ep=0.0001;
var
h:real;
x:real;
s2,s1:real;
n,i:integer;
begin
s1:=(exp(b)-arctan(b))*(b-a);
h:=1;
repeat
x:=a;
s2:=s1;
n:=round((b-a)/h);
s1:=0;
for i:=1 to n do
begin
s1:=s1+((exp(x)-arctan(x)))*h;
x:=x+h;
end;
h:=h/2;
until abs(s2-s1) Integral:=s1;
end;
var
a:array[1..3] of real;
i:integer;
begin
a[1]:=Integral(0,1);
a[2]:=Integral(1,2);
a[3]:=Integral(2,3);
for i:=1 to 3 do
begin
writeln('interval (',i-1,',',i,']: ',a[i]:5:2);
end;
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.