Essays.club - Получите бесплатные рефераты, курсовые работы и научные статьи
Поиск

Лабораторная работа по "Информатике"

Автор:   •  Август 21, 2022  •  Лабораторная работа  •  522 Слов (3 Страниц)  •  189 Просмотры

Страница 1 из 3

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 (ПУСК) и запускаемаящелчком по этой кнопке.

...

Скачать:   txt (6.2 Kb)   pdf (389.4 Kb)   docx (830.5 Kb)  
Продолжить читать еще 2 страниц(ы) »
Доступно только на Essays.club