Module
Contents
Index 🔎︎

# 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