Вычисление интеграла методом трапеций - VB

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

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

Помогите пожалуйста с написанием программы для вычисления интеграла методом трапеций

Решение задачи: «Вычисление интеграла методом трапеций»

textual
Листинг программы
Option Explicit
Private Sub trapezoid()
Dim x() As Double, y() As Double, a As Integer, b As Integer, S As Double, h As Double, N As Integer, i As Integer
a = Val(InputBox("Введите значение начала"))
b = 50 'конечное значение
N = Val(InputBox("Введите число отрезков"))
If N < 2 Then
    MsgBox "Неверное значение числа отрезков", 0, ""
    Exit Sub
End If
h = (b - a) / N 'шаг
ReDim x(N) 'массив узлов рабиения
ReDim y(N) 'массив значений функции
 
'вычисление значений узлов
x(0) = a
For i = 1 To N
    x(i) = x(i - 1) + h
Next i
 
'выисления значений функций
For i = 0 To N
    y(i) = 1 / (Cos(x(i) - Log(Abs(x(i) - 0.34)) / Log(10)))
    Debug.Print x(i) & "   " & y(i)
Next i
 
'вычисление результата
S = (y(0) + y(N)) / 2
For i = 1 To N - 1
    S = S + y(i)
Next i
S = h * S
Debug.Print S
End Sub
 
Private Sub Command1_Click()
trapezoid
End Sub

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

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