Структура развилка / 7 (2)
.docxФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«Петербургский государственный университет путей сообщения
Императора Александра I»
(ФГБОУ ВО ПГУПС)
Кафедра «Информационные и вычислительные системы»
Дисциплина «Информатика»
О Т Ч Е Т о лабораторной работе № 3 на тему: «С Т Р У К Т У Р А Р А З В И Л К А»
Вариант 7
Выполнил студент ____________**
факультета **
группы **
Проверил ____________ **
Санкт-Петербург 20**
Задание №1
1.Постановка задачи
1.1 Словесное описание задачи
где
.
1.2. Состав входных и выходных переменных
Входные переменные:
q – переменная вещественного типа,
a – переменная вещественного типа.
Выходные переменные:
c – переменная вещественного типа.
2.Математическая модель
где .
3.
Схема
алгоритмa
4.
Код
программы
Private Sub Command1_Click()
Dim q As Single, a As Single, b As Single, c As Single
q = InputBox("q=")
a = InputBox("a=")
b = q * a
If b > 10 Then
c = Log(10) * Log(b) / Log(10)
Else
c = Sqr(b ^ 2 + 1)
End If
Print "c=" & c, "q=" & q, "a=" & a
End Sub
5.
Отладка программы
Задание №2
1.Постановка задачи
1.1Словесное описание задачи
в
точке
где постоянные a=2;
b=3,8.
При решении контрольного примера переменным присвоить значения:
1) q = 4,5; 2) q = 1,95; 3) q = 0
1.2. Состав входных и выходных переменных
Входные переменные:
q – переменная вещественного типа,
a – переменная вещественного типа,
b – переменная вещественного типа.
Выходные переменные:
y – переменная вещественного типа.
2.Математическая модель
где
постоянные
a=2;
b=3,8.
3.Схема
алгоритма
4. Код программы
Private Sub Command1_Click()
Dim y As Single, q As Single, x As Single, a As Single, b As Single
q = InputBox("q=")
a = InputBox("a=")
b = InputBox("b=")
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, "q=" & q
End Sub
5.
Отладка
программы
