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