End Function. Function Рекурсивная Функция
Function Рекурсивная Функция(B As Single) As Single If B > 1 Then Рекурсивная Функция = 4 * Рекурсивная Функция(B - 1) Else Рекурсивная Функция = 1 End If End Function
Рис. 1. Использование рекурсивной функции Задание 3. В MS Excel, используя VBA, напишите функцию, заданную формулой:
Проверьте правильность расчетов.
Решение:
Function F(x As Integer) As Variant If x <= -5 Then F = Abs(3 * x - x ^ 2) ElseIf x > -5 And x < 11 Then If x > 0 Then F = Math.Log(3 * x - 2) Else F = "Недопустимый ввод!"; End If Else: F = x End If End Function
Рисунок 2. Результаты расчетов c использованием функции f(x) Задание 4. В MS Excel, используя VBA, напишите процедуру, позволяющую найти сумму натуральных двузначных чисел, каждое из которых не делится ни на 2, ни на 3.
Решение: Sub НайтиСумму()
|
