МИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Государственное бюджетное образовательное учреждение

высшего образования

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»

Кафедра «ИНФОРМАЦИОННЫЕ И ВЫЧИСЛИТЕЛЬНЫЕ СИСТЕМЫ»

Дисциплина: «Информатика»

О Т Ч Е Т

по лабораторной работе № 3

СТРУКТУРА РАЗВИЛКА

Вариант 11

Выполнил студент Пакетов И.И.

Факультета ФБО

Группы СЖУ-07-337-11

Санкт-Петербург

2023

Лабораторная работа №3

Задание 1.

Дано действительное число c, являющееся аргументом функции y = c^0,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.