The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]



"VBA Структура Цикл"
Вариант для распечатки  
Пред. тема | След. тема 
Форум Открытые системы на сервере (Разное / Другая система)
Изначальное сообщение [ Отслеживать ]

"VBA Структура Цикл"  +/
Сообщение от Exploreemail (ok), 23-Дек-19, 06:25 
Коротко о задаче: По прямому участку пути двигаются три вагона с массами 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

Не работает:( Где-то ошибка,уже больше часа сижу исправляю и никак не заставлю работать эту программу.

Ответить | Правка | Cообщить модератору

Оглавление

Сообщения [Сортировка по времени | RSS]


1. "VBA Структура Цикл"  +/
Сообщение от Юморист (?), 25-Дек-19, 13:24 
print m2, N
Ответить | Правка | ^ к родителю #0 | Наверх | Cообщить модератору

Архив | Удалить

Рекомендовать для помещения в FAQ | Индекс форумов | Темы | Пред. тема | След. тема




Спонсоры:
Слёрм
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2020 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру