Курсовая работа: Разработка программного модуля для вычисления интеграла
Else
If (i Mod 2 = 0) Then
i2 = i2 + f(x) * 2 * (b - a) / (3 * n)
.List(i + 1, 1) = i2
Else
If (i Mod 2 <> 0) Then
i2 = i2 + f(x) * 4 * (b - a) / (3 * n)
.List(i + 1, 1) = i2
End If
End If
End If
Next i
Loop While (Abs(i1 - i2) < 0.005)
End With
Simp = i2
End Function
Public Function f(x As Double) As Double ' нахождение значения функции
f = 1 / Sqr(1 + x ^ 2)
End Function
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 'Закрытие формы
Select Case MsgBox("Закрыть окно?", vbYesNo + vbQuestion, "Завершение работы")
Case vbYes
Cancel = 0
Application.Quit
Case vbNo
Cancel = -1
End Select
End Sub
3.2 Описание используемых операторов и функций
При разработке программы были использованы следующие операторы и функции: