TOP

Visual Basic Consola - Repetitiva PARA 04




04.  Hacer un programa que lea 10 consumos de una cafetería si el consumo total excede los S/.50, el descuento será 7% mostrar el pago total acumulado y su respectivo descuento si lo hubiera.


Imports System.Console
Module Module4
    Dim consumo, total, desc As Decimal
    Sub Main()
        For cont = 1 To 10
            Write("Ingrese valor de consumo " & cont & " : ")
            consumo = ReadLine()
            total = total + consumo
        Next
        If total > 50 Then
            desc = total * 0.07
        Else
            desc = 0
        End If
        WriteLine()
        WriteLine("Consumo Total : " & total)
        WriteLine("Descuento : " & desc)
        WriteLine("Pago Total : " & total - desc)
        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.