TOP

Visual Basic Consola - Condicionales 10




10.  Dado un monto calcular el descuento.
Descuento:
·         25% si monto mayor o igual que 300.
·         20% si monto mayor que 150 y menor que 300.
·         no hay descuento si monto menor 150.


Imports System.Console
Module Module10
    Dim monto, descuento
    Sub Main()
        Write("Ingrese Monto : ")
        monto = ReadLine()
        If monto >= 300 Then
            descuento = monto * 0.25
            WriteLine("El descuento es : " & descuento)
        Else
            If monto > 150 And monto < 300 Then
                descuento = monto * 0.2
                WriteLine("El descuento es : " & descuento)
            Else
                WriteLine("No hay Descuento")
            End If
        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.