Структура развилка / 20

1.

где

2.

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

При решении контрольных примеров переменной присвоить значения:

1) x = 13; 2) x = 54; 3) x = 60.

Задача 1

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

где

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

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

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

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

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

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

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

где

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

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

Private Sub Command1_Click()

Dim d As Single, c As Single, a As Single, r As Single

d = InputBox("d =")

c = InputBox("c =")

a = d + 3.5 * c

If a > 1.3 Then

r = Log(a) / Log(10)

Else

r = 2.5 * a - 11

End If

Print "d = " & Format(d, "0.000"), "c = " & Format(c, "0.000"), "r = " & Format(r, "0.000")

End Sub

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

Задача 2

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

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

Входные данные: x – переменная целого типа

Выходные данные: y – вещественное, объем пирамиды

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

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

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

Private Sub Command1_Click()

Dim x As Single, y As Single

Const pi As Single = 3.14

x = InputBox("x =")

If x > 54 Then

y = (5 - 2 * x) ^ 2 * (5 + 2 * x ^ 2) ^ 0.5

ElseIf x = 54 Then

y = Sin(pi + x)

Else

y = (9 * x + 2) ^ 0.5

End If

Print "x = " & Format(x, "0.000"), "y = " & Format(y, "0.000")

End Sub

6. Отладка программы Исходные данные: 1) x = 13; 2) x = 54; 3) x = 60.