• Lenguaje

    Visual Basic .Net

  • Descripción

    Una tienda de zapatos tiene una promoción de descuento para vender al mayor, esta dependerá del número de zapatos que se compren. Si son más de diez, se les dará un 10% de descuento sobre el total de la compra; si el número de zapatos es mayor de veinte pero menor de treinta, se le otorga un 20% de descuento; y si son más treinta zapatos se otorgará un 40% de descuento. El precio de cada zapato es de $80.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Module TiendaDeZapatos

    Sub Main()
        Dim descuento, numero_de_zapatos, subtotal, total As Double
        Console.Write("Ingresa el valor de numero de zapatos: ")
        numero_de_zapatos = Double.Parse(Console.ReadLine())
        subtotal=numero_de_zapatos*80
        descuento=0
        If numero_de_zapatos>10 And numero_de_zapatos<=20 Then
            descuento=subtotal*0.1
        End If
        If numero_de_zapatos>20 And numero_de_zapatos<=30 Then
            descuento=subtotal*0.2
        End If
        If numero_de_zapatos>30 Then
            descuento=subtotal*0.4
        End If
        total=subtotal-descuento
        Console.WriteLine("Valor de descuento: " & descuento)
        Console.WriteLine("Valor de subtotal: " & subtotal)
        Console.WriteLine("Valor de total: " & total)
        Console.WriteLine()
        Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
    End Sub

End Module