Visual Basic 2010 Express: cálculo de seno y coseno (código)


a1

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

 

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s