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