Численное интегрирование

[km77]

Помогите пожалуйста решить задачу, в которой нужно с помощью метода прямоугольников найти определенный интеграл ф-ии sqrt(x) на отрезке [1,4] и задать определенную точность eps ,чтобы результат выводился с точностью,допустим 4 знака после запятой 0,0001 или 3 знака-0,001.Вообще каким оператором можно сделать и задать точность вычислений?
Вот моя программа примерная:

Program lab2;
Uses CRT;
Var a,b,h,Sum,x_const,x_var,f,Result:Re al;
K,N,i:Integer;

BEGIN
Clrscr;
Write('Введите число отрезков N= ');
Readln(N);
a:=1;
b:=4;
Writeln;
Writeln('Введите нижний предел a= ',a:0:1);
Writeln;
Writeln('Введите верхний предел b= ',b:0:0);
Writeln;
h:=(b-a)/N;
x_const:=a+h/2;
For i:=0 to N-1 do
Begin
x_var:=x_const+h*i;
f:=abs(1-x_var);
Sum:=Sum+f;
End;
Result:=Sum*h;
Writeln('Значение интеграла равно ',Result:8:6);
Readln;
END.

[km77]

главный вопрос-как задать определенную точность вычислений в программе?

[Vanta11a]

writeln(Result:3:3);

Не вариант?

[KobolD]

Сообщение от km77

главный вопрос-как задать определенную точность вычислений в программе?

Когда ты считаешь интеграл методом прямоугольников, то задаешься шагом по оси ОХ (он так и называется шаг интегрирования).
Так вот ты считаешь интеграл с шагом h и интеграл с шагом h/2, а потом вычитаешь один интеграл из другого и если полученая разность по модулю меньше твоего eps то считается что ты вычислил интеграл с заданой точностью. Если разность по модулю больше eps то берут шаг в два раз меньше т.е. h=h/2 и повторяют все сначала.