TOP

Visual Basic Consola - Repetitiva MIENTRAS 08




08.  Realizar un programa que registre n productos dónde se solicite la descripción y el precio de venta.
Si el total de la compra es mayor que 500 soles dar un descuento de 20% de lo contrario de 5%, mostrar una lista de todos los registros y su respectivo descuento.
El programa termina cuando se formule la pregunta si desea continuar o no registrando productos.


Imports System.Console
Module Module8
    Dim total, monto As Double
    Dim resp, producto As String
    Sub Main()
        WriteLine("REGISTRO DE PRODUCTOS")
        WriteLine()
        resp = ""
        While (resp.ToUpper <> "NO")
            Write("DESCRIPCION : ")
            producto = ReadLine()
            Write("MONTO : ")
            monto = ReadLine()
            total = total + monto
            WriteLine()
            Write("Desea Continuar(Si/No)? : ")
            resp = ReadLine()
            WriteLine()
        End While
        WriteLine()
        WriteLine("Total : " & total)
        If (total > 500) Then
            WriteLine("Descuento 20% : " & total * 0.2)
            WriteLine("Total a Pagar : " & total - (total * 0.2))
        Else
            WriteLine("Descuento 5% : " & total * 0.05)
            WriteLine("Total a Pagar : " & total - (total * 0.05))
        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.