IBM Lotus Symphony
|
Вычисляет косинус угла. Угол задается в радианах. Результат лежит в пределах от -1 до 1.
По данному углу функция Cos вычисляет отношение прилежащего катета прямоугольного треугольника к гипотенузе.
Cos(угол) = прилежащий катет / гипотенуза
Cos (Число)
Двойной
Число: числовое выражение, задающее угол в радианах, для которого необходимо вычислить косинус.
Для преобразования градусов в радианы необходимо умножить значение на pi/180. Для преобразования радианов в градусы необходимо умножить значение на 180/pi.
1 градус = (1 радиан * 180)/pi
1 радиан = (1 градус * pi)/180
Коды ошибок
REM В следующем примере для прямоугольного треугольника
REM вводятся секанс и угол (в градусах) и вычисляется гипотенуза:
Sub ExampleCosinus
REM Число Pi приближенно равно 3,14159
Dim d1 as Double, dAngle as Double
d1 = InputBox$ (""Введите длину прилежащего катета: ","Прилежащий")
dAngle = InputBox$ ("Введите угол (в градусах): ","Угол")
Print "Гипотенуза равна "; (d1 / cos (dAngle * Pi / 180))
End Sub