Составить алгоритм и программу вычисления определенного интеграла

[triston]

Помогите решить.
Заранее блогадарен.
Составить алгоритм и программу вычисления определенного интеграла Метод вычисления и количество частей N выбрать по своему усмотрению.
Подынтегральная функция 6sinx. Пределы интегрирования а=0. b=П(Пи).

[_Dmitry]

Тема вычисления интегралов рассматривалась на форуме множество раз. Пользуйтесь поиском...

type
  TFunction = function(x: real): real;

{вычисление определенного интеграла методом Симпсона
 a,b-пределы интеграла, eps-точность решения, Fun-подынтегральная функция}
function Simpson(Fun: TFunction; a,b,eps: real): real;
var
  i,n: Longint;
  h,s0,s: real;
begin
  n:=1; s:=0;
  repeat
    n:=n*2; h:=(b-a)/n; s0:=s;
    s:=Fun(a)+Fun(b);
    for i:=1 to n-1 do
      s:=s+2*(1+i mod 2)*Fun(a+i*h);
    s:=s*h/3;
  until abs(s-s0) <= eps;
  Simpson:=s;
end; {Simpson}

{подынтегральная функция}
function F(x: real): real; far;
begin
  F:=6*sin(x);
end; {F}

begin
  writeln(Simpson(F,0,pi,1E-6):1:6);
  readln;
end.

[triston]

Dmitry спасибо огромное.

[Alter]

Скачайте наконец DelphiWorld 6 <= см. подпись, там и про интегралы и про компоненты и про прочее.