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

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

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

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

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

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

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

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

О Т Ч Е Т

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

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

Вариант 16

Выполнил студент Осипчук Ю.В.

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

Группы В-315-з

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

2023

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

Задание 1.

Грузовой автомобиль выехал из одного города в другой со скоростью V₁. Через время t в этом же направлении выехал легковой автомобиль со скоростью V₂. Определить, догонит ли легковой автомобиль грузовой через время t₁ после своего выезда.

Входные данные:

V₁, V₂, t, t₁ – аргументы функции, переменные вещественного типа.

Выходные данные:

S – значение функции, переменная строкового типа.

2. Математическая модель задачи

S = .

Для отладки принимается V₁ = 50 км/ч; V₂ = 75 км/ч; t = 0,5 ч.

3. Разработка алгоритма

1

2

3

4

5

6

7

4. Разработка визуальной части проекта

5. Код программы

Private Sub CommandButton1_Click()

Dim V1, V2, t, t1 As Single

Dim S As String

Dim Str As String

V1 = Val(InputBox("V1="))

V2 = Val(InputBox("V2="))

t = Val(InputBox("t="))

For i = 1 To 2

t1 = Val(InputBox(i & "-е значение t1="))

If V1 * (t1 + t) <= V2 * t1 Then

S = "Догонит"

Else

S = "Не догонит"

End If

Str = Str & " t1=" & t1 & vbTab & S

If i < 3 Then Str = Str & Chr(13)

Next

Label1.Caption = Str End Sub

6. Отладка программы

Результаты ручного счета:

При 50∙(0,5+0,5) – 75∙0,5 = 12,5 > 0, не догонит

При 50∙(1,5+0,5) – 75∙1,5 = – 12,5 < 0, догонит

Задание 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 < -1.6 Then

Y = 0

ElseIf x < 0 Then

Y = x ^ 3 - 3 * x

Else

Y = x ^ 3 + 3 * x

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.

7