Метод прямоугольников

[realist88]

Помогите составить программы для вычисления интеграла методом прямоугольников(левых, правых и средних).Буду очень благодарен.

[newerow1989]

Квадратный корень на рисунке странновато выглядит!

function f(x:real):real;
begin
   Result:=Sqrt(x*x-0.16)/x;
end;

const a=1;
      b=2;
      dx=0.01;
var I,x:real;
begin
   I:=0;
   x:=a;
   Repeat
      I:=I+f(x)*dx;
      x:=x+dx;
   Until x>=b;
   Writeln(I:5:5);
   Readln;
end.

Так что ли?