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

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

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

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

Option Explicit

Sub integral_1()

Dim i As Integer, n As Integer