Как вычислить определенный интеграл в Паскале методом прямоугольников?

Ответ от
Метод прямоугольников применяется для приближенного вычисления определенного интеграла. Отрезок интегрирования от a до b разбивается на n равных частей шириной h, равной (b - a) / n. Площадь под кривой заменяется суммой площадей прямоугольников, высота которых равна значению функции в выбранной точке каждого отрезка.program Integral;
var a, b, h, s, x: real;
n, i: integer;
function f(x: real): real;
begin
f := x * x;
end;
begin
write('Введите a, b, n: ');
readln(a, b, n);
h := (b - a) / n;
s := 0;
x := a + h / 2;
for i := 1 to n do
begin
s := s + f(x);
x := x + h;
end;
writeln('Интеграл: ', (s * h):0:4);
end. Здесь используется метод средних прямоугольников для лучшей точности. Значения функции суммируются в переменной s, которая в конце умножается на шаг h.