Структура развилка / 22
.docxФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«Петербургский государственный университет путей сообщения
Императора Александра I»
(ФГБОУ ВО ПГУПС)
Кафедра «Информационные и вычислительные системы»
Дисциплина «Информатика»
ОТЧЕТ
о лабораторной работе № 2
на тему:
«С Т Р У К Т У Р А Р А З В И Л К А»
Вариант 22
Выполнил студент факультета ** группы ** Проверил |
_______________ ** _______________ ** |
Санкт-Петербург
20**
Задание №1
1. Постановка задачи
1.1. Словесное описание задачи
1.2. Состав входных и выходных данных
Входные данные:
x – переменная вещественного типа.
Выходные данные:
Y – переменная вещественного типа.
2. Математическая модель задачи
3. Схема алгоритма
4. Визуальная часть проекта
5. Код приложения
Private Sub Command1_Click()
Dim x As Single, Y As Single
x = InputBox("x=")
If x > 0 Then
Y = Log(1 + Exp(x))
Else
If x < -1 Then
Y = 1 / Abs(x)
Else
Y = 1
End If
End If
Print "Y=" & Y & " x=" & x
End Sub
6. Отладка программы
Задание №2
1. Постановка задачи
1.1. Словесное описание задачи
где a=d+3,5c
1.2. Состав входных и выходных данных
Входные данные:
c – переменная вещественного типа,
d – переменная вещественного типа.
Выходные данные:
R – переменная вещественного типа.
2. Математическая модель задачи
3. Схема алгоритма
4. Визуальная часть проекта
5. Код приложения
Private Sub Command1_Click()
Dim d As Single, c As Single, a As Single, R As Single
d = InputBox("d=")
c = InputBox("c=")
a = d + 3.5 * c
If a > 1.3 Then
R = Log(a) / Log(10)
Else
R = 2.5 * a - 11
End If
Print "R=" & R & " d=" & d & " c=" & c
End Sub
6. Отладка программы