алгоритм нахождения интеграла методом трапеций

[pirozho4ek]

всем привет... помогите с алгоритмом ... надо написать алгоритм нахождения определенного интеграла методом трапеций...

[InternetStranger]

Выглядит прога таким образом:

procedure TForm1.Button3Click(Sender: TObject);
var
x,e,h,a,b,sum:real;
N,i:integer;
Function F(x:real):real;
begin
F:=x/(2*x+3);
end;

Function P(x:real):real;
begin
P:=x/2-0.75*Ln(Abs(2*x+3))
end;

Function Newton:real;
begin
Newton:=P(b)-P(a);
end;

begin
a:=StrToFloat(Edit1.Text); // пределы
b:=StrToFloat(Edit2.Text);
e:=StrToFloat(Edit3.Text); // искомая точность
N:=2;
Repeat
Inc(N);
sum:=0;
h:=(b-a)/N;
For i:=1 to N-1 do begin // вычисление интеграла по N разбиениям
x:=a+h*i;
sum:=sum+F(x);
end;
sum:=h*(sum+(F(a)+F(b))/2);
Until Abs(Newton-sum)<e;
Label6.Caption:=FloatToStr(sum);
Label7.Caption:=FloatToStr(Newton);
end;

[pirozho4ek]

пасибо =)