Структура цикл / 13 (2)

ЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №4

«СТРУКТУРА ЦИКЛ»

ВАРИАНТ 13

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 – переменная вещественного типа,

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

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

Выходные данные:

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

1.3 Математическое описание задачи:

Вычислить значение массы платформы для ряда значений V: 0,1≤V≤1,5 м/с с шагом 0,25 м/с.

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

1

1.4 Схема алгоритма решения задачи:

начало

2

mb, V1, V2, V0, stV, Vk

3

V=V0

да

7

V=V+stV

m_пл, V

6

5

4

V≤Vk

нет

Конец

8

1.5 Листинг кода программы:

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=")

stV = InputBox("step V=")

Vk = InputBox("Vk=")

Print "mb=" & mb

For V = V0 To Vk Step stV

mpl = (V1 - V2) / V * mb

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

Next

End Sub

1.6 Выполнение проекта:

2.1 Словесное описание задачи:

Вычислить значения функций по формулам:

где постоянная g=9,81; переменные: M, L – целого типа; K, H – вещественного типа.

На печать выдать значения:

а) входных данных;

б) аргумента M, изменяющегося в пределах M₁≤M≤M_k с шагом ΔM, и H, изменяющегося в пределах H₁≤H≤H_k с шагом ΔH; в) функций A и E с точность до сотых для соответствующих M и H.

При решении контрольного примера принять:

M₁=200; M_k=400; ΔM=100; K=0,05; L=8; H₁=1,5; H_k=2; ΔH=0,25.

2.2 Описание постановки задачи

Состав входных и выходных данных:

Входные данные:

M1 – перменная целого типа,

dM – перменная целого типа,

Mk – перменная целого типа,

L – перменная целого типа,

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

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

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

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

Выходные данные:

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

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

2.3 Математическое описание задачи:

где постоянная g=9,81

Конец

2

M1, dM, Mk, L,

K, H1, dH, Hk

1

начало

2.4 Схема алгоритма решения задачи:

3

M=M1

M≤Mk

да

4

5

M=M1

нет

11

да

6

H≤Hk

7

A=

нет

10

8

M=M+dM

M, H, A, E

9

H=H+dH

2.5 Листинг кода программы:

Private Sub Command1_Click()

Dim M As Integer, M1 As Integer, dM As Integer, Mk As Integer, L As Integer, K As Single, H1 As Single, dH As Single, Hk As Single, A As Single, E As Single

Const g As Single = 9.81

L = InputBox("L=")

K = InputBox("K=")

M1 = InputBox("M1=")

dM = InputBox("dM=")

Mk = InputBox("Mk=")

H1 = InputBox("H1=")

dH = InputBox("dH=")

Hk = InputBox("Hk=")

Print "L=" & L & " K=" & K & " M1=" & M1 & " dM=" & dM & " Mk=" & Mk & " H1=" & H1 & " dH=" & dH & " Hk=" & Hk

For M = M1 To Mk Step dM

For H = H1 To Hk Step dH

A = M * g * (H + K * L ^ 2 - H ^ 2)

E = M * g * H / A

Print "M=" & M & " H=" & H & " A=" & Format(A, "0.00") & " E=" & Format(E, "0.00")

Next

Next

End Sub

2.6 Выполнение проекта: