Коротко о задаче: По прямому участку пути двигаются три вагона с массами m1, m2, m3. Определить какое максимальное число столкновений между ними может произойти по формуле:N = -] (Pi / arccos * Sqr((m1 * m2) / (m1 + m2) * (m2 + m3))) [
где arccos alpha = Pi / 2 - arctg * alpha / sqr(1 - alpha^2 ); ] [ – целая часть числа; m1 = m3 = 100 т;
10 ≤ m2 ≤ 110 т с шагом 10 т.
У меня получился вот такой код:
Private Sub Command1_Click()
Dim N As Single
Dim m2 As Single
Dim alpha As Single
Const Pi = 3.14
Const m1 = m3 = 100
m2 = 10
Do While m2 <= 110
N = -CInt(Pi / arccos(alpha) * Sqr((m1 * m2) / (m1 + m2) * (m2 + m3)))
m2 = m2 + 10
Loop
End Sub
Не работает:( Где-то ошибка,уже больше часа сижу исправляю и никак не заставлю работать эту программу.