Содержание
- 2. Пределы интегрирования a, b, c, d вычислять в подпрограмме функции по вариантам табл. 12 и 13.
- 3. Таблица 13
- 4. ‘ Функция для приближенного вычисления sin Function sinus(z As Double) As Double Dim sum As Double,
- 5. ‘Базовая функция Function fab(p As Integer, q As Integer) As Double fab = (p ^ 2
- 7. Скачать презентацию
Слайд 2
Пределы интегрирования a, b, c, d вычислять в подпрограмме функции по
Пределы интегрирования a, b, c, d вычислять в подпрограмме функции по
вариантам табл. 12 и 13.
Таблица 11
Таблица 12
Слайд 3
Таблица 13
Таблица 13
Слайд 4
‘ Функция для приближенного вычисления sin
Function sinus(z As Double) As Double
Dim
‘ Функция для приближенного вычисления sin
Function sinus(z As Double) As Double
Dim
sum As Double, p As Double, m As Double, n As Long
Dim i As Integer, j As Integer
i = 1: p = z: m = z: sum = 0
Do While Abs(m) > 0.1
sum = sum + m
i = i + 1
p = -p * z ^ 2
n = 1
For j = 1 To 2 * i - 1
n = n * j
Next
m = p / n
Loop
sinus = sum
End Function
Dim i As Integer, j As Integer
i = 1: p = z: m = z: sum = 0
Do While Abs(m) > 0.1
sum = sum + m
i = i + 1
p = -p * z ^ 2
n = 1
For j = 1 To 2 * i - 1
n = n * j
Next
m = p / n
Loop
sinus = sum
End Function
Слайд 5
‘Базовая функция
Function fab(p As Integer, q As Integer) As Double
fab =
‘Базовая функция
Function fab(p As Integer, q As Integer) As Double
fab =
(p ^ 2 + q ^ 2) ^ (1 / 3)
End Function
‘Подитегральная функция
Function f(x As Double)
f = 1 / Sqr(1 + x ^ 2)
End Function
‘Функция для вычисления определенного интеграла
Function integral(x As Double, y As Double, n As Integer) As Double
Dim i As Double
For i = x To y Step (y - x) / (n - 1)
If i = x Or i = y Then
integral = integral + 0.5 * f(i)
Else: integral = integral + f(i)
End If
integral = integral * (y - x) / (n - 1)
Next
End Function
End Function
‘Подитегральная функция
Function f(x As Double)
f = 1 / Sqr(1 + x ^ 2)
End Function
‘Функция для вычисления определенного интеграла
Function integral(x As Double, y As Double, n As Integer) As Double
Dim i As Double
For i = x To y Step (y - x) / (n - 1)
If i = x Or i = y Then
integral = integral + 0.5 * f(i)
Else: integral = integral + f(i)
End If
integral = integral * (y - x) / (n - 1)
Next
End Function