Структура цикл / 13

Задание №1

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

1.1 Словесное описание задачи.

Вагон массой m_b подходит к неподвижной платформе со скоростью V₁ и ударяет её, после чего платформа получает скорость V. Скорость вагона после удара уменьшилась до V₂. Вычислить значение массы платформы для ряда значений V: 0,1≤V≤1,5 м/с с шагом 0,25 м/с

где m_b=60 т; V₁=0,2 м/с; V₂=0,1 м/с.

1.2 Состав входных и выходных переменных.

Входные переменные:

V1 – перменная вещественного типа,

V2 – переменная вещественного типа,

mb – переменная вещественного типа,

V0 – переменная вещественного типа,

dV – переменная вещественного типа,

Vk – переменная вещественного типа.

Выходные переменные:

t – переменная вещественного типа,

P – переменная вещественного типа.

2. Математическая модель задачи.

где 0,1≤V≤1,5 с шагом 0,2.

3. Схема алгоритма.

4. Код программы.

Private Sub Command1_Click()

Dim mb As Single, V As Single, V0 As Single, V1 As Single, V2 As Single, dV As Single, Vk As Single

mb = InputBox("mb=")

V1 = InputBox("V1=")

V2 = InputBox("V2=")

V0 = InputBox("V0=")

dV = InputBox("Step V=")

Vk = InputBox("Vk=")

Print "mb=" & mb & " V1=" & V1 & " V2=" & V2

For V = V0 To Vk Step dV

mpl = (V1 - V2) / V * mb

Print "V=" & V & " mpl=" & mpl

Next

End Sub

5. Отладка программы.

Задание №2

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

1.1 Словесное описание задачи.

Найти расстояние между двумя точками на плоскости, положение которых задано их координатами X₁,Y₁ и X₂,Y₂ по формуле:

1.2 Состав входных и выходных переменных.

Входные переменные:

x10 – переменная вещественного типа,

x1k – переменная вещественного типа,

dx1 – переменная вещественного типа,

x20 – переменная вещественного типа,

x2k – переменная вещественного типа,

dx2 – переменная вещественного типа,

y1 – переменная вещественного типа,

y2 – переменная вещественного типа.

Выходные переменные:

V – переменная вещественного типа.

2. Математическая модель задачи.

3. Схема алгоритма.

4. Код программы.

Private Sub Command1_Click()

Dim z As Single, x1 As Single, x10 As Single, dx1 As Single, x1k As Single, x2 As Single, x20 As Single, dx2 As Single, x2k As Single, y1 As Single, y2 As Single

x10 = InputBox("x10=")

x1k = InputBox("x1k=")

dx1 = InputBox("dx1=")

x20 = InputBox("x20=")

x2k = InputBox("x2k=")

dx2 = InputBox("dx2=")

y1 = InputBox("y1=")

y2 = InputBox("y2=")

Print "y1=" & y1 & " y2=" & y2

x1 = x10

Do While x1 <= x1k

x2 = x20

Do While x2 <= x2k

z = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)

Print "z=" & z, "x1=" & x1, "x2=" & x2

x2 = x2 + dx2

Loop

x1 = x1 + dx1

Loop

End Sub

5. Отладка программы.