TOP

Visual Basic Consola - Secuenciales 08





08.  Escriba un programa donde se ingrese el tiempo necesario para un cierto proceso: en horas, minutos y segundos. Calcule el costo total del proceso sabiendo que el costo por segundo es  $0,25.


Imports System.Console
Module Module8
    Dim h, m, s
    Sub main()
        WriteLine("Ingrese Tiempo para desarrollo del Proceso")
        WriteLine()

        Write("Horas : ")
        h = ReadLine()
        Write("Minutos : ")
        m = ReadLine()
        Write("Segundos : ")
        s = ReadLine()

        WriteLine()
        WriteLine("El costo total es : " & ((h * 3600) + (m * 60) + s) * 0.25)
        ReadLine()
    End Sub
End Module

share_facebook

DAME UN ME GUSTA - SI VALORAS ESTE CÓDIGO



0 comentarios:

Publicar un comentario

Danos tu opinión o déjanos tu ejercicio! - Algoritmos, pseudocódigo y lo pasamos a Visual Basic consola.