የ ሳይን ተግባር

ሳይን (ቁጥር)

' In this example, the following entry is possible for a right-angled triangle:

' The side opposite the angle and the angle (in degrees) to calculate the length of the hypotenuse:

Sub ExampleSine

' Pi = 3.1415926 is a predefined variable

Dim d1 As Double

Dim dAlpha As Double

    d1 = InputBox("Enter the length of the opposite side: ","Opposite Side")

    dAlpha = InputBox("Enter the angle Alpha (in degrees): ","Alpha")

    ማተሚያ "እርዝመት ለ ሀይፖቱነስ ነው"; (d1 / ሳይን (dአልፋ * ፓይ / 180))

End Sub