где: постоянная π = 3,14; a – переменная целого типа.

При решении контрольных примеров переменной присвоить значения: 1) a = 21; 2) a = 0; 3) a = -2.

Задача 1.

1. Словесное описание задачи:

2. Состав входных и выходных данных:

Входные данные:

a – переменная вещественного типа

x – переменная вещественного типа

Выходные данные:

f – переменная вещественного типа

3. Математическое описание задачи:

4. Схема алгоритма решения задачи:

5. Листинг кода программы:

Private Sub Command1_Click()

Dim x As Single, a As Single, f As Single

x = InputBox("x =")

If x > 5.2 Then

a = InputBox("a =")

f = a * Log(x)

Else

f = x ^ 3 + 2.45 ^ (1 / 3)

End If

Print "x = " & Format(x, "0.000"), "a = " & Format(a, "0.000"), "f = " & Format(f, "0.000")

End Sub

6. Отладка программы:

Задача 2.

1. Словесное описание задачи:

2. Состав входных и выходных данных:

Входные данные:

a – переменная целого типа

Выходные данные:

z – переменная вещественного типа

3. Математическое описание задачи:

4. Схема алгоритма решения задачи:

5. Листинг кода программы:

Private Sub Command1_Click()

Dim a As Single, z As Single

Const pi As Single = 3.14

a = InputBox("a =")

If a > 0 Then

z = -pi / 2 * Exp(a)

ElseIf a < 0 Then

z = pi / 2 * Exp(a)

Else

z = 0

End If

Print "a = " & Format(a, "0.000"), "z = " & Format(z, "0.000")

End Sub

6. Отладка программы:

Исходные данные: 1) a = 21; 2) a = 0; 3) a = -2