Float, unidades de velocidad Curso de Programación Visual Basic

Lección:

Tipos de datos básicos


Ejercicio:

Float, unidades de velocidad 11


Objetivo:

Cree un programa en Visual Basic para pedirle al usuario una distancia (en metros) y el tiempo empleado (como tres números: horas, minutos, segundos), y muestre la velocidad, en metros por segundo, kilómetros por hora y millas por hora (pista: 1 milla = 1609 metros).


Código:

Imports System
Public Class Exercise58
    Public Shared Sub Main()
        Dim distance As Single
        Dim hour, min, sec As Single
        Dim timeSec As Single
        Dim mps As Single
        Dim kph, mph As Single
        Console.Write("Enter distance(meters): ")
        distance = Convert.ToSingle(Console.ReadLine())
        Console.Write("Enter timeSec(hour): ")
        hour = Convert.ToSingle(Console.ReadLine())
        Console.Write("Enter timeSec(minutes): ")
        min = Convert.ToSingle(Console.ReadLine())
        Console.Write("Enter timeSec(seconds): ")
        sec = Convert.ToSingle(Console.ReadLine())
        timeSec = (hour * 3600) + (min * 60) + sec
        mps = distance / timeSec
        kph = (distance / 1000.0F) / (timeSec / 3600.0F)
        mph = kph / 1.609F
        Console.WriteLine("Your speed in meters/sec is {0}", mps)
        Console.WriteLine("Your speed in km/h is {0}", kph)
        Console.WriteLine("Your speed in miles/h is {0}", mph)
    End Sub
End Class