-
Lenguaje
Visual Basic .Net
-
Descripción
Convertir una cantidad ingresada en metros a sus equivalentes en centímetros, pulgadas, pies y yardas. Considere la siguiente información:
1 metro = 100 centímetros
1 pie = 12 pulgadas
1 yarda = 3 pies
1 pulgada = 2.54 centímetros
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Module MetrosACmPulgadasPiesYYardas
Sub Main()
Dim centimetros, metros, pies, pulgadas, yarda As Double
Console.Write("Ingresa el valor de metros: ")
metros = Double.Parse(Console.ReadLine())
centimetros=metros*100
pulgadas=centimetros/2.54
pies=pulgadas/12
yarda=pies/3
Console.WriteLine("Valor de centimetros: " & centimetros)
Console.WriteLine("Valor de pies: " & pies)
Console.WriteLine("Valor de pulgadas: " & pulgadas)
Console.WriteLine("Valor de yarda: " & yarda)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module
Sub Main()
Dim centimetros, metros, pies, pulgadas, yarda As Double
Console.Write("Ingresa el valor de metros: ")
metros = Double.Parse(Console.ReadLine())
centimetros=metros*100
pulgadas=centimetros/2.54
pies=pulgadas/12
yarda=pies/3
Console.WriteLine("Valor de centimetros: " & centimetros)
Console.WriteLine("Valor de pies: " & pies)
Console.WriteLine("Valor de pulgadas: " & pulgadas)
Console.WriteLine("Valor de yarda: " & yarda)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module