Структура развилка / 10
.docxЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №3
«СТРУКТУРА РАЗВИЛКА»
ВАРИАНТ 10
1.1 Словесное описание задачи:
с= ,
где b=q*a
1.2 Описание постановки задачи
Состав входных и выходных данных:
Входные данные:
q – перменная вещественного типа,
a – переменная вещественного типа.
Выходные данные:
c – переменная вещественного типа.
1.3 Математическое описание задачи:
с= ,
где b=q*a
1
начало
2
q, a
3
b=q*a
4
b≤10
да
нет
5
c=
c=
6
7
c
8
Конец
1.5 Листинг кода программы:
Private Sub Command1_Click()
Dim q As Single, a As Single, b As Single, c As Single
q = InputBox("q=", "Ввод переменных")
a = InputBox("a=", " Ввод переменных ")
Print "При q=" & q & " a=" & a
b = q * a
If b <= 10 Then
c = Sqr(b ^ 2 + 1)
Else
c = Log(10) * Log(b) / Log(10)
End If
Print "c=" & c
End Sub
1.6 Выполнение проекта:
2.1 Словесное описание задачи:
x=q0,5
где постоянные a=2; b=3,8.
При решении контрольного примера переменным присвоить значения:
1) q=4,5; 2) q=1,95; 3) q=0;
2.2 Описание постановки задачи
Состав входных и выходных данных:
Входные данные:
q – перменная вещественного типа.
Выходные данные:
y – переменная вещественного типа.
2.3 Математическое описание задачи:
2.4 Схема алгоритма решения задачи:
10
Конец
9
y
y=
5
8
x=q0,5
7
6
y=
да
x<27
да
нет
нет
4
x>2
3
x=q0,5
начало
1
2
q
2.5 Листинг кода программы:
Private Sub Command1_Click()
Dim q As Single, x As Single, y As Single
Const a As Single = 2, b As Single = 3.8
q = InputBox("q=", "Ввод переменных")
Print "При q=" & q
x = q ^ 0.5
If x > 2 Then
y = (a + b * Cos(x)) / (a * x ^ 2 + b * x ^ 3 * Sin(x))
Else
If x > 0.5 Then
y = (16.7 * x + 9 * x ^ 2 - 1.02 * x ^ 3) / (a * b)
Else
y = x
End If
End If
Print "y=" & y
End Sub
2.6 Выполнение проекта: