End Function. Пример оформления контрольной работы

Пример оформления контрольной работы

Задание 1. В MS Excel, используя VBA, напишите функцию пользователя, вычисляющую длину окружности по формуле 2pR, где R – радиус окружности. При помощи данной функции выполните расчеты для окружностей с заданными радиусами (0, 5; 1; 1, 5; 2; 2, 5; 3; 3, 5; 4; 4, 5; 5).

Public Const Pi = 3.141592653

Function Длина_окружности (Радиус As Single) As Single

Длина_окружности = 2 * Pi * Радиус

End Function

Рисунок 1. Использование функции Длина_окружности

Задание 2. В MS Excel, используя VBA, напишите рекурсивную функцию, вычисляющую член последовательности, заданной формулой , при i > 1. Значение первого члена последовательности вводится пользователем. При помощи данной функции выведите первые 10 членов последовательности.

Function Ai(i As Integer, A1 As Integer) As Integer

If i = 1 Then

Ai = A1

Else

Ai = Ai(i - 1, A1) + A1

End If

End Function

Рисунок 2. Расчет первых десяти членов последовательности

Задание 3. В MS Excel, используя VBA, напишите функцию, заданную формулой:

Проверьте правильность расчетов.

Function F(x As Integer) As Single

If x < -2 Then

F = Abs(3 * x - 7)

ElseIf x > = -2 And x < = 2 Then

F = x ^ 2

Else: F = Cos(x)

End If