Лабораторная работа по "Информатике"
Автор: anuta2008 • Август 21, 2022 • Лабораторная работа • 522 Слов (3 Страниц) • 177 Просмотры
1. Постановка задачи
Вагон массой m подходит к неподвижной платформе со скоростью V1 и ударяет ее, после чего платформа получает скорость V. Скорость вагона после удара уменьшилась до V2. Вычислить значение массы платформы для ряда значений V: 0,1≤V≤1,5м/с с шагом 0,25м/с.
Входные данные:
, [pic 1]
V0- начальное значение скорости платформы ,
Vk- конечное значение скорости платформы,
dV- шаг вычислений, m – масса вагона,
Выходные данные:V- скорость платформы,- масса платформы[pic 2]
2. Математическая модель
[pic 3]0,1≤V≤1,5м/с с шагом 0,25м/с; m=60т; V1=0,2м/с; V2=0,1м/c
3. Схема алгоритма
Начало
[pic 4][pic 5][pic 6][pic 7][pic 8][pic 9][pic 10][pic 11][pic 12][pic 13][pic 14][pic 15][pic 16][pic 17][pic 18][pic 19][pic 20][pic 21][pic 22][pic 23]
V, [pic 24]
Конец
4. Разработка визуальной части проекта
На форме располагаем следующие элементы управления:
– командную кнопку с именем Command1 и надписью «ПУСК»
–поле списка List1 для вывода результата.
5. Кодприложения
Private Sub Command1_Click()
Dim V0 As Single, Vk As Single, dV As Single, V As Single
Dim m As Single, m_ïë As Single, V1 As Single, V2 As Single
m = InputBox("Введите массу вагонаm")
V1 = InputBox("Введите начальную скорость вагонаV1")
V2 = InputBox("Введите скорость вагонапосле столкновения с платформой V2")
V0 = InputBox("Введите начальное значение скорости платформыV0")
Vk = InputBox("Введите конечное значение скорости платформыVk")
dV = InputBox("Введите шаг вычисленийdV")
List1.AddItem " V (м/с) m_пл (т) "
For V = V0 ToVk Step dV
m_пл = (V1 - V2) * m / V
List1.AddItem Format(V, "0.00") & " " & Format(m_пл, "0.00")
Next
EndSub
6. Отладка приложения
Контрольный пример, сосчитанный вручную:
V0=0,1 м/с; Vk=1,45 м/с; dV=0,25 м/с
m=60т; V1=0,2м/с; V2=0,1м/c
V=V+dV | [pic 25] |
0,1 | (0,2 – 0,1)*60/0,1=60 |
0,35=0,1+0,25 | (0,2 – 0,1)*60/0,35=17,14 |
0,6=0,35+0,25 | (0,2 – 0,1)*60/0,6=10 |
0,85=0,6+0,25 | (0,2 – 0,1)*60/0,85=7,06 |
1,1=0,85+0,25 | (0,2 – 0,1)*60/1,1=5,45 |
1,35=1,1+0,25 | (0,2 – 0,1)*60/1,35=4,44 |
Результат вычислений:
[pic 26]
КОММЕНТАРИЙ К КОДУ ПРИЛОЖЕНИЯ
1 строка. Личная (авторская) программа, написанная для кнопки Command1 (ПУСК) и запускаемаящелчком по этой кнопке.
...