В данной задаче вычисление с точностью e означает следующее. Отрезок интегрирования разбивается на ni равных частей и строится сумма Sni, которая является приближенным значением интеграла. Если выполняется условие |Sni+1-Sni|
program integral;
var
n, i: integer;
a, b, shag, sum, itog: real;
function F(x: real): real;
begin
F := x + 1;
end;
{ ====================================== }
begin
write('Начало интегрирования a = ');
readln(a);
write('Конец интегрирования b = ');
readln(b);
write('Количество разбиений интервала n = ');
readln(n);
shag := (b - a) / n;
sum := 0;
for i := 1 to n - 1 do
sum := sum + F(shag * i + a);
sum := sum + (F(a) + F(b)) / 2;
itog := (b - a) / n * sum;
writeLn('Интеграл = ', itog:0:5);
readln
end.