Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Программирование [игнор отключен] [закрыт для гостей] / VBA Структура Цикл / 4 сообщений из 4, страница 1 из 1
23.12.2019, 06:55
    #39906820
Explore
Explore
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Структура Цикл
В вузе задали сделать лабу в VBA по структуре цикл. Сделал,но программа не работает. Сижу гуглю,не могу понять поч не работает,делал по методичке.
Код:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
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



Помогите пожалуйста понять(
Модератор: Для оформления кода есть тэг [ SRC ]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2019, 07:08
    #39906823
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Структура Цикл
1. Формулу неправильно записал.
2. Не доделал. Где поиск максимума?
3. В конце обычно вывод результата.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2019, 14:10
    #39907025
Roman Mejtes
Roman Mejtes
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Структура Цикл
что то я не понял, а где arccos alpha в заданной формуле?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Private Function ArcCos(A As Double) As Double
  'Inverse Cosine
    On Error Resume Next
        If A = 1 Then
            ArcCos = 0
            Exit Function
        End If
        ArcCos = Atn(-A / Sqr(-A * A + 1)) + 2 * Atn(1)
    On Error GoTo 0
End Function

Private Function ArcSin(x As Double) As Double
  'Inverse Sine
    On Error Resume Next
        ArcSin = Atn(x / Sqr(-x * x + 1))
    On Error GoTo 0
End Function
 
Private Function ArcTan(x As Double) As Double
  'Inverse Tangent
    On Error Resume Next
        ArcTan = Atn(x) * (180 / Pi)
    On Error GoTo 0
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
31.12.2019, 11:21
    #39910139
Eolt
Eolt
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA Структура Цикл
Roman Mejtes,

Обратил внимание, что приведенный тобой код - бред. Тригонометрические функции он вычисляет неправильно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Программирование [игнор отключен] [закрыт для гостей] / VBA Структура Цикл / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]