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