Процедура вычисление интеграла методом прямоугольников - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

решить интеграл с помощью метода прямоугольников. Можно любым методом прямоугольников.Полученное значение сравнить с результатом вычисления интеграла с помощью первообразной.

Решение задачи: «Процедура вычисление интеграла методом прямоугольников»

textual
Листинг программы
const a=2;
      b=3;
function f(x:real):real;
begin
f:=1/x/ln(x);
end;
function p(x:real):real;
begin
p:=ln(ln(x));
end;
procedure integral(n:integer;var s:real);
var h,x:real;
    i:integer;
begin
h:=(b-a)/n;
x:=a+h/2;
s:=0.0;
for i:=1 to n do
 begin
  s:=s+f(x);
  x:=x+h;
 end;
s:=s*h;
end;
var s:real;
    n:integer;
begin
write('Число разбиений n=');{чем больше n, тем выше точнjсть}
readln(n);
integral(n,s);
writeln('Интеграл по методу средних прямоугольников= ',s:0:4);
write('Интеграл через первообразную=',p(b)-p(a):0:4)
end.

Объяснение кода листинга программы

  1. Переменная a и b инициализируются значениями 2 и 3 соответственно.
  2. Определяются две функции: f и p. Функция f вычисляет значение функции 1/x в точке x, а функция p вычисляет значение функции ln(x) в точке x.
  3. Определяется процедура integral, которая принимает целочисленный параметр n и переменную s типа real. Внутри процедуры инициализируются переменные h, x и i со значениями (b-a)/n, a+h/2 и 1 соответственно.
  4. Затем происходит цикл for, который выполняется n раз. В каждой итерации цикла значение переменной s увеличивается на сумму значений функций f и p в точке x. Переменная x увеличивается на значение h в каждой итерации.
  5. После завершения цикла значение переменной s умножается на значение h для получения окончательного результата.
  6. Определяется переменная n типа integer и считывается значение числа разбиений n.
  7. Вызывается процедура integral с аргументом n и переменной s.
  8. Выводится значение переменной s с точностью до 4 знаков после запятой.
  9. Выводится разность между значениями функций p(b) и p(a).

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы