Лабораторные работы 1 курс 1 сессия [заочка] / Лаба 4 Цикл

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

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

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

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

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

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

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

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

О Т Ч Е Т

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

СТРУКТУРА ЦИКЛ

Вариант 11

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

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

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

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

2023

Задание 1.

1. Постановка задачи

1. Электровоз трогает с места состав массой m. С каким ускорением движется поезд в зависимости от массы, если коэффициент сопротивления

 = 0,005, а сила тяги F_т = 400 кН, g = 9,8 м/c²?

a = ,

где 1500  m  2000 т с шагом 50 т.

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

, F_т – параметры, вещественные переменные;

m₀ – начальное значение параметра цикла, вещественная переменная;

m_k – конечное значение параметра цикла, вещественная переменная;

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 м/c²; 0,75  l  1,5 м с шагом 0,25;

2,2  a  2,6 м/с² с шагом 0,1 м/с².

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

l₀, l_k, a₀, a_k – начальные и конечные значения параметров цикла, вещественные переменные;

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.