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 value:

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

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