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

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

Результат вычислений:

[pic 26]

КОММЕНТАРИЙ К КОДУ ПРИЛОЖЕНИЯ

1 строка. Личная (авторская) программа, написанная для кнопки  Command1 (ПУСК) и запускаемаящелчком по этой кнопке.