Вычислите значение интеграла

XotekX

помогите плиз, заранее блогодарен! Вычислите значение интегралапо общей формуле правых прямоугольников с заданным числом разбиений.П р и м е ч а н и е. Формула правых прямоугольников имеет вид:
1 ответ

XotekX

uses crt;
 
function f(x: real):real;
begin
f := sin(x);
end;
 
var
  a, b, h : real;
  Int : real;
  n, i : integer;
begin
Write('Нижний предел: ');
Readln(a);
Write('Верхний предел: ');
Readln(b);
Write('Количество разбиений: ');
Readln(n);
h := (b - a)/n;
Int := 0;
for i := 1 to n do 
 Int := Int + f(a + i*h);
Int := Int * h;
Writeln('Интеграл = ', Int:0:4);
Readln;
End.