Cos Function

Вычисляет косинус угла. Угол указывается в радианах. Результат — число от -1 до 1.

Для угла Alpha в прямоугольном треугольнике функция Cos вычисляет отношение длины прилежащей к этому углу стороны к длине гипотенузы.

Cos(Alpha) = Прилежащая/Гипотенуза

Синтаксис


Cos (Число)

Возвращаемое значение:

Double

Параметры:

Число. Число, являющееся углом в радианах, для которого нужно вычислить косинус.

Чтобы преобразовать градусы в радианы, умножьте градусы на pi/180. Чтобы преобразовать радианы в градусы, умножьте радианы на 180/pi.

Градусы=(Радианы*180)/pi

Радианы=(Градусы*пи)/180

Pi — константа с округленным значением 3,14159...

Error codes:

5 Неправильный вызов процедуры

Пример:


REM Следующий пример позволяет вычислить длину гипотенузы для прямоугольного треугольника,
REM беря значения прилежащей стороны и угла (в градусах):
Sub ExampleCosinus
REM округленно Pi = 3.14159
Dim d1 As Double, dAngle As Double
    d1 = InputBox("Введите длину прилежащей стороны: ","Прилежащая")
    dAngle = InputBox("Введите угол Alpha (в градусах): ","Alpha")
    Print "Длина гипотенузы -"; (d1 / cos (dAngle * Pi / 180))
End Sub

Please support us!