Определение движения локомотив при разгоне, какой скорости он достигает во время разгона, на каком расстоянии от начала движения он остановится

1.  Словесное описание

Задание 1

Скорость истечения груза из горизонтального отверстия бункера равна:

где   - коэффициент  истечения ;

         F - площадь поперечного сечения потока ;

         Р- периметр сечения ;

         L - угол наклона желоба , отклоняющего поток и создающего подпор.

Отладить программу для значения: =0,6 ;  F=0,36 м² ;  P=2,4 м² ; c шагом 10.

Задание 2

Тепловоз массой m разгоняется из состояния покоя по горизонтальному пути в течение  t секунд под действием силы тяги F , после чего до остановки движется с включенным двигателем. Коэффициент сопротивления движению  . Определить с каким ускорением движется локомотив при разгоне, какой скорости он достигает во время разгона, на каком рассстоянии от начала движения  он остановится ?

где                 m=120т;  t=50м;  =0,005;

                       с шагом 50000 Н;

                     0,004     с шагом 0,002

2.  Алгоритмизация

3.  Программирование

Private Sub Command1_Click()

Dim lambda As Single

Dim F As Single

Dim P As Single

Dim V As Single

Dim L As Single

lambda = InputBox("lambda=")

F = InputBox("F=")

P = InputBox("P=")

L = 30

Do While L <= 90

V = 5.9 * lambda * Sqr(Abs(F / P * Sin(L)))

Print "V=" & V

L = L + 10

Loop

End Sub

4.  Отладочный пример

2.  Алгоритмизация

3.  Программирование

Private Sub Command1_Click()

Const g = 9.8

Dim m As Single

Dim mu As Single

Dim t As Single

Dim A As Single

Dim V As Single

Dim S As Single

m = InputBox("m=")

t = InputBox("t=")

mu = InputBox("mu=")

Cls

For F = 200000 To 400000 Step 50000

Print "F=" & F

Print

mu = 0.004

Do

A = (F - mu * m * g) / m

V = A * t

S = (V / 2) * t + ((V ^ 2) / 2 * mu * m * g)

Print "A=" & S; Tab; "V=" & V; Tab; "S=" & S

mu = mu + 50000

Loop While mu <= 0.008

Next

End Sub

4.  End SubОтладочный пример