Deutsch
Germany.ru → Форумы → Архив Досок→ Программирование

VBA Школьная задачка

835 просмотров Перейти к просмотру всей ветки
13.03.10 15:57
Re: VBA Школьная задачка
 
voxel3d коренной житель
voxel3d
в ответ reviz 13.03.10 11:13, Последний раз изменено 13.03.10 15:58 (voxel3d)
В ответ на:
Чем заменить?

Public Function acos(x As Double) As Double
If Abs(x) < 1 Then
    acos = atn(-x / sqr(1 - x * x)) + 2 * atn(1)
ElseIf x = 1 Then
    acos = 0
ElseIf x = -1 Then
    acos = 4 * atn(1)
Else
    msgbox "Not defined for |x|>1"
End If
End Function


Dropbox - средство синхронизации и бэкапа файлов.
 

Перейти на