TOP

Visual Basic Consola - Condicionales 04




04.  Dado la duración (en minutos) de una llamada telefónica, calcular su costo, de la siguiente manera: Hasta 5 min el costo es 0.90. Por encima de 5 min el costo es 0.90+0.20 por cada minuto adicional a los 5 primeros min.


Imports System.Console
Module Module4
    Dim llamada
    Sub Main()
        Write("Duración de llamada en minutos : ")
        llamada = ReadLine()
        WriteLine()
        If llamada <= 5 Then
            WriteLine("Su Costo por la llamada es : " & llamada * 0.9)
        Else
            WriteLine("Su Costo por la llamada es : " & (5 * 0.9) + ((llamada - 5) * 1.1))
        End If
        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.