Вычисление определенного интеграла методом левых прямоугольников

Всем добрый день, сделала программу, но никак не могу понять как в ней сделать:

Программa должна содержать ввод с клавиатуры начального числа разбиений и погрешности вычислений.

Для обеспечения заданной точности интеграла процедура его вычисления должна

выполняться в цикле. Причём сначала сохраняется старое значение интеграла, затем увеличивается число разбиений и вычисляется новое значение интеграла. Цикл работает, пока разница между старым и новым

значениями интеграла не станет меньше заданной точности.

При выводе результата полезно также вывести конечное число

разбиений, чтобы знать, на сколько частей нужно разбить отрезок для

обеспечения заданной точности вычисления интеграла.

PascalВыделить код

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

uses crt;
var i,n:integer;
a,b,h,x,e,s1,s:real;
bool:Boolean;
function f(x:real):real;
begin
f:=sqr((exp(x)-exp(-x))/2);
end;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('n='); readln(n);
repeat
write('Input e : '); readln(e);
bool:=(e>0.00009)and(e<1);
if not bool then writeln('e=[0.0001 .. 0.9] ese raz.');
until bool;
repeat
s1:=s;
h:=(b-a)/n;
s:=0; x:=a;
for i:=0 to n-1 do {вычисляем значение функции на отрезке от х0 до хn-1}
begin
s:=s+f(x);
x:=x+h;
end;
s:=hs; {вычисляем значение интеграла по методу левых прямоугольников}
n:=n2;
until abs(s1-s)<e;
writeln('I=',s:2:5);
readln;
end.

Добавлено через 4 минуты

помогите, буду очень благодарна

Добавлено через 3 минуты

=\int_{0.5}^{1}(exp(x)-exp(-x))/2)^2;

Добавлено через 22 секунды