Функція Sin
Повертає синус кута. Кут вказується в радіанах. Результат - число від -1 до 1.
Для кута альфа в прямокутному трикутнику функція Sin повертає відношення довжини протилежної сторони до довжини гіпотенузи.
Sin(Alpha) = протилежна сторона/гіпотенуза
Синтаксис:
Sin (Число)
Значення, що повертається:
Double
Параметри:
Число: числовий вираз, що визначає кут в радіанах, для якого потрібно обчислити синус.
Щоб перетворити градуси в радіани, помножте градуси на Pi/180, а щоб перетворити радіани в градуси, помножте радіани на 180/Pi.
градуси=(радіани*180)/Pi
радіани=(градуси*Pi)/180
Pi наближено дорівнює 3,141593.
Приклад:
' Приклад для прямокутного трикутника:
' По стороні, протилежній до кута, та куту (у градусах) обчислюється гіпотенуза:
Sub ExampleSine
' Pi = 3.1415926 наперед визначена змінна
Dim d1 As Double
Dim dAlpha As Double
d1 = InputBox("Введіть довжину протилежної сторони: ","Протилежна сторона")
dAngle = InputBox$ ("Введіть кут альфа (у градусах): ","альфа")
Print "Довжина гіпотенузу -"; (d1 / sin (dAlpha * Pi / 180))
End Sub