
Лабораторные работы 1 курс 1 сессия [заочка] / Лаба 4 Цикл
.docxМИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Государственное бюджетное образовательное учреждение
высшего образования
«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ПУТЕЙ СООБЩЕНИЯ ИМПЕРАТОРА АЛЕКСАНДРА I»
Кафедра «ИНФОРМАЦИОННЫЕ И ВЫЧИСЛИТЕЛЬНЫЕ СИСТЕМЫ»
Дисциплина: «Информатика»
О Т Ч Е Т
по лабораторной работе № 4
СТРУКТУРА ЦИКЛ
Вариант 11
Выполнил студент Пакетов И.И.
Факультета ФБО
Группы СЖУ-07-337-11
Санкт-Петербург
2023
Задание 1.
1. Постановка задачи
1. Электровоз трогает с места состав массой m. С каким ускорением движется поезд в зависимости от массы, если коэффициент сопротивления
= 0,005, а сила тяги Fт = 400 кН, g = 9,8 м/c2?
a = ,
где 1500 m 2000 т с шагом 50 т.
Входные данные:
, Fт – параметры, вещественные переменные;
m0 – начальное значение параметра цикла, вещественная переменная;
mk – конечное значение параметра цикла, вещественная переменная;
dm – шаг изменения параметра цикла, вещественная переменная.
Выходные данные:
m – параметр цикла, вещественная переменная;
a – значение функции, вещественная переменная.
2. Математическая модель
a = .
3. Разработка алгоритма
1
2
3
4
5
6
7
8
9
4. Разработка визуальной части проекта
5. Код программы
Private Sub CommandButton1_Click()
Dim mu, Fт As Single
Dim m, m1, mk, dm As Single
Dim a As Single
mu = Val(InputBox("mu="))
Fт = Val(InputBox("Fт="))
m1 = Val(InputBox("m1="))
mk = Val(InputBox("mk="))
dm = Val(InputBox("dm="))
ListBox1.AddItem ("m" & vbTab & "a")
ListBox1.AddItem ("")
For m = m1 To mk Step dm
a = (Fт - mu * m * g) / m
ListBox1.AddItem (m) & vbTab & Format(a, "0.000")
Next
End Sub
6. Отладка программы
Ручной счет:
При m = 1500, a = 0,267
При m = 1550, a = 0,258
При m = 1600, a = 0,250
Задание 2.
1. Постановка задачи
Маятник длины l подвешен к потолку вагона, движущегося горизонтально по прямой с ускорением a. Как зависит положение равновесия и период колебаний маятника от его длины и ускорения вагона?
= arctg ; T = 2.
Отладить программу для следующих значений исходных данных:
g = 9,8 м/c2; 0,75 l 1,5 м с шагом 0,25;
2,2 a 2,6 м/с2 с шагом 0,1 м/с2.
Входные данные:
l0, lk, a0, ak – начальные и конечные значения параметров цикла, вещественные переменные;
dl, da – значения шага параметров цикла, вещественные переменные.
Выходные данные:
l, a – значения аргументов, вещественные переменные;
, T – значения функций, вещественные переменные.
2. Математическая модель
= arctg ; T = 2.
3. Разработка алгоритма
Внешний цикл с предусловием, внутренний – с постусловием.
1
2
3
4
8
5
6
7
9
11
12
10
4. Разработка визуальной части проекта
5. Код программы
Private Sub CommandButton1_Click()
Dim l1, lk1, dl, a1, ak2, da As Single
Dim alpha, T As Single
Const Pi = 3.1416
Const g = 9.8
l1 = InputBoxVal("l1 =")
lk1 = InputBoxVal("lk1 =")
dl = InputBoxVal("dl =")
a1 = InputBoxVal("a1=")
ak2 = InputBoxVal("ak2=")
da = InputBoxVal("da=")
ListBox1.AddItem "l" & vbTab & "a" & vbTab & "alpha" & vbTab & "T"
ListBox1.AddItem ""
l = l1
Do While l <= lk1
a = a1
Do
alpha = Atn(a / g)
T = 2 * Pi * Sqr(l / Sqr(g ^ 2 + a ^ 2))
a = a + da
ListBox1.AddItem l & vbTab & a & vbTab & Format(alpha, "0.0000") & vbTab & Format(T, "0.0000")
Loop Until a > ak2
l = l + dl
Loop
End Sub
6. Отладка программы
Ручной счет:
при l = 0,75 и a = 2,2 alpha = 0,2208 T = 1,7170
при l = 0,75 и a = 2,4 alpha = 0,2305 T = 1,7151
при l = 0,75 и a = 2,5 alpha = 0,2402 T = 1,7131
Литература
1. Булавский П. Е. Структурный подход к программированию : учеб. пособие по дисциплинам «Информатика» и «Информатика в экономике». Часть 1. Запись текстов программ на алгоритмической языке Visual Basic / П. Е. Булавский, А. И. Дергачев, А. М. Перепеченов. – СПб. : ФГБОУ ВО ПГУПС, 2017.
2. Булавский П. Е. Сборник заданий и макеты форм отчетов по выполнению лабораторных работ : учеб.-метод. пособие по дисциплинам «Информатика» и «Информатика в экономике» для студентов заочной формы обучения / П. Е. Булавский, А. И. Дергачев, А. М. Перепеченов. – СПб. : ФГБОУ ВО ПГУПС, 2017.
3. Дергачев А. И. Сборник учебно-методических материалов и контрольных решений для проведения занятий со студентами университета всех специальностей по дисциплине «Информатика» / А. И. Дергачев, В. П. Андреев, Н. В. Байдина, Н. Ф. Костянко, А. М. Перепеченов. – URL : http://library.pgups.ru/elib/multim/2015/ inform_01.zip.