-
Lenguaje
Visual Basic .Net
-
Descripción
Convierte grados sexagesimales a centesimales.
1
2
3
4
5
6
7
8
9
10
11
12
13
2
3
4
5
6
7
8
9
10
11
12
13
Module GradosSexagesimalesACentesimales
Sub Main()
Dim grados_centesimales, grados_sexagesimales As Double
Console.Write("Ingresa el valor de grados sexagesimales: ")
grados_sexagesimales = Double.Parse(Console.ReadLine())
grados_centesimales=grados_sexagesimales*10/9
Console.WriteLine("Valor de grados centesimales: " & grados_centesimales)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module
Sub Main()
Dim grados_centesimales, grados_sexagesimales As Double
Console.Write("Ingresa el valor de grados sexagesimales: ")
grados_sexagesimales = Double.Parse(Console.ReadLine())
grados_centesimales=grados_sexagesimales*10/9
Console.WriteLine("Valor de grados centesimales: " & grados_centesimales)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module