Лаболаторная работа №4
.docxФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА
Федеральное государственное бюджетное образовательное учреждение высшего образования
«Петербургский государственный университет путей сообщения
Императора Александра I»
(ФГБОУ ВО ПГУПС)
Кафедра «Информационные и вычислительные системы»
Дисциплина «Информатика»
ОТЧЕТ
о лабораторной работе № 4 на тему:
«Структура цикл»
Вариант 11
.
Выполнил студент
факультета ПГС
группы УЗС-309 Павлов Д.Е.
Проверил: Шедько Н.А.
Санкт-Петербург
2024
Задача №1
1. Постановка задачи
1.1 Словесное описание задачи
1. Электровоз трогает с места состав массой m. С каким ускорением движется поезд в зависимости от массы, если коэффициент сопротивления = 0,005, а сила тяги Fт=400 кН, g = 9.8м/c2?
а
=
где
1500
с
шагом 50 т.
1.2 Состав входных и выходных переменных
Входные переменные:
m – переменная вещественного типа,
mn – переменная вещественного типа,
mk – переменная вещественного типа,
g – переменная вещественного типа,
F – переменная вещественного типа,
d – переменная вещественного типа,
u – переменная вещественного типа.
Выходные переменные:
a – переменная вещественного типа.
2. Математическая модель
а
=
3. Схема алгоритма
m
= mn
8
7
6
a
a
=
m
= m + d
m
<= mk
F,g,u,m,mk,d,mn
4. Исходный код (Код программы):
Private Sub CommandButton1_Click()
Dim u As Single, m As Single, f As Single
Dim mk As Single, d As Single, mn As Single
Debug.Print "go"
Const g As Single = 9.81
u = InputBox("u=")
mn = InputBox("mn=")
d = InputBox("d=")
mk = InputBox("mk=")
f = InputBox("f=")
m = mn
Do While m <= mk
a = (f - (u * m * g)) / m
m = m + d
Debug.Print "a=" & a
Debug.Print "==============="
Loop
End Sub
5. Отладка программы:
Задача №2
1. Постановка задачи:
1.1 Словесное описание задачи:
2. Маятник длины L подвешен к потолку вагона, движущегося горизонтально по прямой с ускорением a. Как зависит положение равновесия и период колебаний маятника от его длины и ускорения вагона?
=
arctg
;
Т =
Отладить программу для следующих значений исходных данных:
g
= 9,8 м/c2;
0,75
м
с шагом 25;
2,2
2,6 м/с2
с шагом 0,1м/с2.
1.2 Состав входных и выходных переменных:
Входные переменные:
L – переменная вещественного типа,
L0 - переменная вещественного типа,
Lk - переменная вещественного типа,
dL - переменная вещественного типа,
a – переменная вещественного типа,
a0 - переменная вещественного типа,
ak - переменная вещественного типа,
da - переменная вещественного типа,
g – переменная вещественного типа,
pi – переменная вещественного типа.
Выходные переменные:
Т – переменная вещественного типа,
ALFA – переменная вещественного типа.
2. Математическая модель:
= arctg ; Т =
3. Схема алгоритма:
8
a
= a + da L
= L + dL
5
,
T
=
arctg
Т
=
L
<= Lk,a <=
ak
L
= L0, a = a0
4. Исходный код (Код программы):
Private Sub CommandButton1_Click()
Dim a As Single, a0 As Single, ak As Single, da As Single
Dim L As Single, L0 As Single, Lk As Single, dL As Single
Const pi As Single = 3.141592
Const g As Single = 9.81
a0 = InputBox("a0=")
da = InputBox("da=")
ak = InputBox("ak=")
L0 = InputBox("L0=")
dL = InputBox("dL=")
Lk = InputBox("Lk=")
L = L0
a = a0
Do While L <= Lk
Do While a <= ak
alfa = Atn(a / g)
T = 2 * pi * (Sqr(L / ((Sqr(g ^ 2)) + a ^ 2)))
a = a + da
Debug.Print "alfa=" & alfa
Debug.Print "T=" & T
Loop
L = L + dL
Loop
End Sub
5. Отладка программы:
