
Лабораторные работы 1 курс 1 сессия [заочка] / Лаба 3 Развилка
.docxМИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Государственное бюджетное образовательное учреждение
высшего образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»
Кафедра «ИНФОРМАЦИОННЫЕ И ВЫЧИСЛИТЕЛЬНЫЕ СИСТЕМЫ»
Дисциплина: «Информатика»
О Т Ч Е Т
по лабораторной работе № 3
СТРУКТУРА РАЗВИЛКА
Вариант 11
Выполнил студент Пакетов И.И.
Факультета ФБО
Группы СЖУ-07-337-11
Санкт-Петербург
2023
Лабораторная работа №3
Задание 1.
Дано действительное число c, являющееся аргументом функции y = c0,6∙|c|, если оно больше 5, и функции y = 12∙tg c, если c не больше 5, где c = q + 1.
Входные данные:
q – входное данное, переменная вещественного типа.
Выходные данные:
c – аргумент функции, переменная вещественного типа.
y – значение функции, переменная вещественного типа.
2. Математическая модель задачи
y = , где c = q + 1.
3. Разработка алгоритма
1
2
4
5
6
7
8
3
4. Разработка визуальной части проекта
5. Код программы
Private Sub CommandButton1_Click()
Dim q, c As Single, z As String
Dim Str As String
For i = 1 To 2
q = Val(InputBox(i & "-е значение q"))
c = q + 1
If c > 5 Then
y = c ^ 0.6 * Abs(c)
Else
y = 12 * Tan(c)
End If
Str = Str & " q=" & q & vbTab & " c=" & c & vbTab & " y=" & Format(y, "0.0")
If i = 1 Then Str = Str & vbCr
Next
Label1.Caption = Str
End Sub
6. Отладка программы
Результаты ручного счета:
При q = 3,5 c = 4,5 y = 55,6
При q = 6,8 c = 7,8 y = 26,8
Задание 2.
1. Постановка задачи
Для заданного значения аргумента вычислить значение функции, заданной графиком.
Входные данные:
x – аргумент функции, переменная вещественного типа.
Выходные данные:
y – значение функции, переменная вещественного типа.
2. Математическая модель задачи
y = .
3. Разработка алгоритма
1
2
3
4
8
5
6
7
9
4. Разработка визуальной части проекта
5. Код программы
Private Sub CommandButton1_Click()
Dim x As Single, y As Single
Dim Str As String
For i = 1 To 3
x = Val(InputBox(i & "-е значение x"))
If x < 0 Then
y = Sin(x)
ElseIf x < 1.3 Then
y = 2
Else
y = 1 / (x - 1)
End If
Str = Str & " x=" & x & vbTab & " y=" & Format(y, "0.00")
If i < 3 Then Str = Str & Chr(13)
Next
Label1.Caption = Str
End Sub
6. Отладка программы
Полученные результаты соответствуют графику.
Литература
1. Булавский П. Е. Структурный подход к программированию : учеб. пособие по дисциплинам «Информатика» и «Информатика в экономике». Часть 1. Запись текстов программ на алгоритмической языке Visual Basic / П. Е. Булавский, А. И. Дергачев, А. М. Перепеченов. – СПб. : ФГБОУ ВО ПГУПС, 2017.
2. Булавский П. Е. Сборник заданий и макеты форм отчетов по выполнению лабораторных работ : учеб.-метод. пособие по дисциплинам «Информатика» и «Информатика в экономике» для студентов заочной формы обучения / П. Е. Булавский, А. И. Дергачев, А. М. Перепеченов. – СПб. : ФГБОУ ВО ПГУПС, 2017.
3. Дергачев А. И. Сборник учебно-методических материалов и контрольных решений для проведения занятий со студентами университета всех специальностей по дисциплине «Информатика» / А. И. Дергачев, В. П. Андреев, Н. В. Байдина, Н. Ф. Костянко, А. М. Перепеченов. – URL : http://library.pgups.ru/elib/multim/2015/ inform_01.zip.