Objeto Math: seno y coseno (Visual Basic)

Calculamos el seno y el coseno de un ángulo arbitrario mediante las operaciones Sin y Cos del objeto Math. También obtenemos el ángulo
en radianes a partir del seno mediante la operación ArcSin. A continuación convertimos el ángulo de radianes a
grados con la operación GetDegrees.

UntitledModule
Dim número, EnRadianes AsPrimitive
Sub Main()
TextWindow.Title = “El objeto Math”
TextWindow.Write(“Escriba el ángulo en grados y obtenga el seno del ángulo: “)
número =
TextWindow.Read()
EnRadianes = Microsoft.SmallBasic.Library.
Math.GetRadians(número)
TextWindow.WriteLine(“El seno del ángulo es “ + Microsoft.SmallBasic.Library.Math.Sin(EnRadianes))
TextWindow.WriteLine(“El arcoseno del ángulo es “ + Microsoft.SmallBasic.Library.Math.ArcSin(EnRadianes))
TextWindow.WriteLine(“El ángulo en grados es “ + EnRadianes)
TextWindow.Write(“Escriba el ángulo en grados y obtenga el coseno del ángulo: “)
número =
TextWindow.Read()
EnRadianes = Microsoft.SmallBasic.Library.
Math.GetRadians(número)
TextWindow.WriteLine(“El coseno del ángulo es “ + Microsoft.SmallBasic.Library.Math.Cos(EnRadianes))
EndSub
End Module