Паскаль.Вычисление определеного интеграла.

[RAITER]

Пытаюсь решить задачку, Задание в архиве.
Идея такова, по методу прямоугольникы вычисляю интеграл код:

Код: Выделить всё

Program Integral;
uses crt;
var a,b,dx,i:real;
j,h,e:integer;
begin
clrscr;
Writeln('Vichislenie opredelennogo integrala');
Writeln('Vvedit nizhniy predel');
Readln(a);
Writeln('Vvedite verhniy predel');
Readln(b);
Writeln('Vvedite kolichestvo shagov integrirovania');
Readln(h);
Writeln('Vvedite tochnost e');
Readln(e);
dx:=(b-a)/h;
I:=0;
for j:=1 to h do
begin
I:=I+cos(a)/(sqr(a)+1);
a:=a+dx;
end;
I:=I*dx;
Writeln('I:=',i:3:3);
readln;
readln;
end.

Но согласно метода надо еще раз вычислить площадь(I) с величеным количеством шагов интегрирования(h), и должно выполнится условие I(h)-I(h+1)<=e, чтобы считать что значение определено с заданной точностью.Выходит должно быть 2 цикла, но не ясно как задать 2-ой цикл и выполнить условие?