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

[abs123]

Вычислить значение определенного интеграла с заданной точностью ε.

Программа должна вычислять интеграл с заданной точностью.
Входные параметры: границы интервала [a, b], точность.
Выходные: значение интеграла, количество разбиений n.
Значение границ интервала и точность ввести с клавиатуры в главной программе. Значение интеграла и количество разбиений вывести в главной программе. Метод интегрирования СИМПСОНА!

SQRT(1+sqr(x)*sqr(x)*x)) интервал [0,2]

Помогите пожалуйста

[rubius2008]

 s:=h/6*(f(a)+f(b)+4*f(a+h/2));
 x:=a+h;
 while x<=b-h do begin
     s:=s+h/6*(2*f(x)+4*f(x+h/2));
     x:=x+h;
 end;

Если нужен полный текст (не бесплатно) пиши в асю 600-927-970