Структура развилка / 19
.docxФЕДЕРАЛЬНОЕ АГЕНСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ Императора Александра I»
Кафедра «ИНФОРМАЦИОННЫЕ И ВЫЧИСЛИТЕЛЬНЫЕ СИСТЕМЫ»
Дисциплина «ИНФОРМАТИКА»
ОТЧЁТ
ПО ЛАБОРАТОРНОЙ РАБОТЕ № 3
«СТРУКТУРА РАЗВИЛКА»
ВАРИАНТ 19
Выполнил студент: **
Факультет: **
Специальность: **
Группа: **
Проверил:
Санкт-Петербург
20**
ЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №3
«СТРУКТУРА РАЗВИЛКА»
1.1. Словесное описание задачи:
y=
1.2. Описание постановки задачи
Состав входных и выходных данных:
Входные данные: X – переменная вещественного типа.
Выходные данные: Y – переменная вещественного типа.
1.3. Математическое описание задачи:
y=
1.4. Схема алгоритма решения задачи:
7
6
4
5
3
2
1
Y
Нет
Да
X<0
Конец
X
Начало
1.5. Листинг кода программы:
Private Sub Command1_Click() Dim X As Single, Y As Single X = InputBox("Введите X", "Ввод переменных") If X < 0 Then Y = Sin(X) ^ 3 Else Y = Log(1 + X ^ 2) End If Print "X=" & X & " Y=" & Format(Y, "0.000") End Sub
1.6. Выполнение проекта:
2.1. Словесное описание задачи:
где постоянная π=3,14. x – переменная целого типа.
При решении контрольных примеров присвоить значения:
1) x=24; 2) x=-1; 3) x=-3.
2.2. Описание постановки задачи
Состав входных и выходных данных:
Входные данные: X – переменная целого типа.
Выходные данные: Y – переменная вещественного типа.
2.3. Математическое описание задачи:
7
6
4
5
3
2
1
Конец
Y
Нет
Да
X=-1
Да
Нет
X>-1
X
Начало
8
9
2.5. Листинг кода программы:
Private Sub Command1_Click()
Dim X As Integer, Y As Single
Const Pi As Single = 3.14
X = InputBox("Введите X", "Ввод переменных")
If X > -1 Then
Y = (1 + X) ^ X
Else
If X = -1 Then
Y = Sin(Pi + X) / (1 - X)
Else
Y = (2 ^ (0.7 * X) + Exp(X) + 1) ^ 0.5
End If
End If
Print "X=" & X & " Y=" & Format(Y, "0.000")
End Sub
2.6. Выполнение проекта:
