Содержимое

# Cos Function

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

Using the angle Alpha, the Cos function calculates the ratio of the length of the side that is adjacent to the angle, divided by the length of the hypotenuse in a right-angled triangle.

Cos(Alpha) = Adjacent/Hypotenuse

### Синтаксис:

    Cos (Number As Double) As Double

### Return type:

Double

### Параметры:

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

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

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

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

Pi is here the fixed circle constant with the rounded value 3.14159...

### Коды ошибок:

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

### Пример:

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

См. также

Atn Function

Sin Function

Tan Function

Пожалуйста, поддержите нас!