Вычисление определнных интегралов, Помогите плиз, не знаю метод =(( Опции

[sintanial]

Численное интегрирование
Спасибо огромнейшее за то что выложили так много способов вычисления определенных интегралов, но всё же в универе задали вычислить интеграл методом правых прямоугольников, а здесь я нашел только центральных прямоугольников, и просто метод прямоугольников =). Я просто болел когда была эта лекция и поэтому не знаю чем отличается метод прямоугольников от метода правых прямоугольников и левых прямоугольников =), а интеграл завтра сдавать( поэтому лекцию взять не успею =(( ). Прошу помощи, за ранее огромное спасибо

[sintanial]

Фсё разобрался

ВОТ ТОЖЕ САМОЕ ТОЛЬКО БЕЗ МОДУЛЕЙ( правый прямоугольник ) . Вдруг кому понадобится так же как мне без модулей =)

function IntF(x:real):real;
var y:real;
begin
 y:=sqrt(1+2*x);{ Вписываем функцию которую нужно вычислить !!!!}
 intf:=y;
end;


 var
 //S - площадь на предыдущей итерации,
 //step - Толщина прямоугольника
 //gran - ïпередвигаемая от a до b  граница
 //n - число прямоугольников, удваивается на каждой итерации
 S, step, gran,eps,a,b,z,x,l,f,result:real;
 n: integer;
 begin
   read(a,b,eps);
   z:=IntF(b);
 //Сначало приближение одного прямоугольника
   step := b - a;
   Result :=z  * step;
   n := 1;
   repeat
     S := Result;
     n := n * 2;
     step := (b - a) / n;
     Gran := b;
     Result := 0;
  //Вычисление площади новых прямоугольников
  while a < gran do
  begin
    l:=IntF(gran);
    Result := Result +l  * step;
    gran := gran - step;
  end;
   until abs(S - Result) <= eps;
   f:=Result;
   writeln(f);
end.