метод трапеции

Ответ от Андрей[гуру]
Метод трапеций можно реализовать в виде процедуры или даже функции, поскольку результат вычисления определенного интеграла – скалярная величина. Параметрами программного модуля являются границы интервала (a и b) и число шагов разбиения на малые интервалы n. Для составления универсальной функции целесообразно предусмотреть вычисление подынтегральной функции f(x) во внешней процедуре – функции.
{Вычисление определенного интеграла по формуле трапеций}
Function Integral (a,b:real; {Пределы интегрирования}
n : integer; {Число шагов}
f : mpd_func): real; {Имя функции, вычисляющей
подынтегральное выражение}
var
x, h, sum : real; i : integer;
begin
h := (b-a)/n;
sum := 0.0;
for i := 1 to n-1 do begin
x := a+i*h;
sum := sum + f(x);
end;
integral := h*((f(a)+f(b))/2+sum);
end {Integral};
Источник: