Приближенное вычисление определенных интегралов

| Категория реферата: Рефераты по математике
| Теги реферата: темы докладов по обж, рефераты скачать бесплатно
| Добавил(а) на сайт: Bobr.

Приложение

'Приближенное вычисление интегралов по формуле парабол

'(формула Симпсона)

Option Explicit

Sub integral_1()

Dim i As Integer, n As Integer

Dim t As Boolean

Dim b As Double, a As Double

Dim chet As Double, nechet As Double

Dim delta As Double, result As Double a = 0

'(*) b = 1

'(**) t = True

Do n = InputBox("Введите четное число n", "Запрос")

If n Mod 2 = 0 Then t = False

Loop While t delta = (b - a) / n chet = 0 nechet = 0

For i = 1 To n - 1

If (i Mod 2) = 0 Then chet = chet + (f(a + (delta * i)))

Else nechet = nechet + (f(a + (delta * i)))

End If

Next i result = (delta / 3) * (f(a) + f(b) + (2 * chet) + (4 * nechet))

MsgBox result, vbInformation, "Результат"

End Sub

Function f(x) As Double f = Sqr(1 + (x ^ 4))

'(***)

End Function