TOP

Visual Basic Consola - Selección 06




06.  En una tienda dónde se venden Teclados, si se compran más de 8 el costo por cada una es de 10 soles; entre 4 y 8 es de 11 soles cada una, si la compra es menor de 4 el costo es de 15 soles cada una. Escriba el algoritmo para saber cuanto pagará un cliente según el número de teclados que compra. Mostrar el número de teclados a comprar y el total a pagar.


Imports System.Console
Module Module6
    Dim cantidad, costo As Integer
    Sub Main()
        Write("Ingrese el número de teclados a comprar : ")
        cantidad = ReadLine()
        Select Case cantidad
            Case 1 To 3 : costo = 15
            Case 4 To 8 : costo = 11
            Case Else : costo = 10
        End Select
        WriteLine()
        WriteLine("Costo por cada Teclado : " & costo)
        WriteLine("Total a Pagar : " & costo * cantidad)
        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.