Структура развилка / 24
.docxФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«Петербургский государственный университет путей сообщения
Императора Александра I»
(ФГБОУ ВО ПГУПС)
Кафедра «Информационные и вычислительные системы»
Дисциплина «Информатика»
О Т Ч Е Т о лабораторной работе № 2 на тему: «С Т Р У К Т У Р А Р А З В И Л К А»
Вариант 24
Выполнил студент ____________ **
факультета **
группы **
Проверил ____________ **
Санкт-Петербург 20** г.
Задание №1
1. Постановка задачи.
1.1 Словесное описание задачи.
1.2 Состав входных и выходных переменных.
Входные переменные:
C – переменная вещественного типа,
L – переменная вещественного типа.
Выходные переменные:
V – переменная вещественного типа.
2. Математическая модель задачи.
3. Схема алгоритма.
4. Код программы.
Private Sub Command1_Click()
Dim t As Single, z1 As Single
t = InputBox("t=")
If t > 5 Then
z1 = Sqr(t)
Else
z1 = InputBox("z1=")
End If
Print "t = " & t, "z1 = " & z1
End Sub
5. Отладка программы
Задание №2
1. Постановка задачи.
1.1 Словесное описание задачи.
1.2 Состав входных и выходных переменных.
Входные переменные:
x – переменная вещественного типа.
Выходные переменные:
Y – переменная вещественного типа.
2. Математическая модель задачи.
3. Схема алгоритма.
5. Код программы.
Private Sub Command1_Click()
Dim x As Single, Y As Single
Const Pi As Single = 3.14
x = InputBox("x=")
If x >= -2 * Pi And x <= Pi Then
Y = Sin(x)
Else
Y = x * Sin(x)
End If
Print "x = " & x, "Y = " & Y
End Sub
6. Отладка программы
