Developing.ru

Составить программу вычисления определенного интеграла методом средних с заданным шагом интегрирования. Алгоритм вычислений оформить как подпрограмму- процедуру, вычисление значений подынтегрального выражения проводить с помощью подпрограммы- функции, имя которой передается через заголовок процедуры в переменной процедурного типа.

function TForm1.f(x:real):real;
begin
f:=exp(-x)/(1+exp(-x));
end;

procedure TForm1.MiddleRect;
var
h,x,s:real;
begin
A:=strtofloat(Edit1.text);
B:=strtofloat(Edit2.Text);
n:=strtoint(Edit3.Text);
s:=0;
h:=(b-a)/n;
x:=a+h/2;
for i:=1 to n do begin
s:=s+f(x);
X:=X+h;
end;
Int:=h*S;
Memo1.Lines.Add(floattostr(Int));
end;