Algoritmos visualbasic

Solo disponible en BuenasTareas
  • Páginas : 4 (861 palabras )
  • Descarga(s) : 0
  • Publicado : 31 de mayo de 2011
Leer documento completo
Vista previa del texto
1. En la tienda ABC están ofreciendo un descuento sobre el valor total de factura de acuerdo al código que el cliente saque al pagar la factura:

* Si el Código es 1 el descuento es del 7%* Si el Código es 2 el descuento es del 9%
* Si el Código es 3 el descuento es del 11%
* Para los Demás códigos el descuento es del 5%

Elaborar un Programa que imprima el valor real a pagary el valor de descuento.

Module ABC
Sub Main()
Dim CO, VRP, VD, VTF As Integer
CO = 0 : VRP = 0 : VD = 0 : VTF = 0
Console.WriteLine("Ingrese el código:")
CO =Console.ReadLine
Console.WriteLine("Ingrese el valor de la compra:")
VTF = Console.ReadLine
Select Case CO
Case 1 : VD = VTF * 0.07
VRP = VTF - VD
Case 2 : VD = VTF * 0.09VRP = VTF - VD
Case 3 : VD = VTF * 0.11
VRP = VTF - VD
Case Else : VD = VTF * 0.05
VRP = VTF - VD
End Select
Console.WriteLine("El valor de descuentoes: {0}", VD)
Console.WriteLine("El valor real a pagar es: {0}", VRP)
Console.ReadLine()
End Sub
End Module

2. El Colegio Central del Norte está cobrando a todos sus estudiantesel valor de la matrricula de acuerdo al estrato al que pertenece. Teniendo en cuenta que el valor de la matrícula es de 40000, Hallar el nuevo valor de la matrícula dependiendo de :

* Si elestrato es 1 se le aumentara el 5%
* Si el estrato es 2 se le aumentara el 10%
* Si el estrato es 3 se le aumentara el 15%
* Para los demás se le aumentara el 20%
ModuleColegio_Central_Del_Norte
Sub Main()
Dim VM, ES, NVM, VA As Integer
VM = 40000 : ES = 0 : NVM = 0
Console.WriteLine("Ingrese el Estrato al que pertenece:")
ES = Console.ReadLine
Select CaseES
Case 1 : VA = VM * 0.05
NVM = VM + VA
Case 2 : VA = VM * 0.1
NVM = VM + VA
Case 3 : VA = VM * 0.15
NVM = VM + VA
Case Else : VA = VM * 0.2...
tracking img