Написать программу для вычисления интеграла методом трапеций - VB

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

Помогите, пожалуйста,с задачей. Функция f(x) задана таблично 20 точками. Координаты точек вводятся с клавиатуры. Методом трапеций определить значение интеграла If(x)dx и оценить точность полученных результатов. Написать в форме консольного приложения.

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

textual
                            Листинг программы 
                        

                            Function Trap#(a#, b#, n%)
Dim xi#
h = (b - a) / n
s = 0
X1 = a
For i = 1 To n - 1
xi = xi + h
s = s + Fn(xi)
Next i
Trap = h * (Fn(a) + Fn(b) + 2 * s) / 2
End Function
Function Fn#(x#)
'Fn = x
'Fn = x ^ 2
Fn = x + Sin(x ^ 2)
End Function
 
Private Sub Command1_Click()
I1 = Trap(0, 4, 10)
I2 = Trap(0, 4, 20)
eps = Abs(I1 - I2)
MsgBox "I1=" & I1 & vbNewLine & "I2=" & I2 & vbNewLine & "eps=" & eps
End Sub
                        

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

12 голосов , оценка 3.917 из 5

Похожие ответы