Нужно решить задачу ** программе паскаль

Question

Нужно решить задачу на программе паскаль

---

Comments

Я тоже о нем не слышал, нашел в просторах интернета

---

А тем временем автор вопроса до сих пор не появился=)

---

Вы про эти методы?

---

Методы Ньютона-Котеса

---

Метод прямоугольников, Метод трапеций, Метод Симпсона

---

Метод Гаусса

Answer 1

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

Function y(x: real): real;
Begin
y:=System.Math.log(1+x)/x;
End;

var
a,b,delta,s:real;
begin
a := 1;
b := 2;
delta := 0.0001;
s := 0;
while a<= (b - Delta) Do begin<br>s:= s + Delta * 0.5 * (y(a) + y(a + Delta));
a:= a+delta;
end;
writeln(s);
end.

Вывод
0.61427933353054