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