Kaileg

Ok amigos de taringa! Hoy les traigo un programa en el que me he pasado un buen rato,el programa resuelve el siguiente problema: El hotel cuartito necesita un programa que calcule el total a pagar de sus clientes por concepto de estadia. El Hotel cuenta con tres tipos de habitaciones, cuyos precios son los siguientes: 1._ Habitacion Deluxe = 2500 2._ Habitacion Billetona = 5600 3._ Habitacion Simplona = 1100 Al programa se le proporcionara el tipo de habitacion, cantidad de noches y el numero de personas que se alojara. Se debera debera preguntar si dentro del grupo hay menores de 10 años, en cuyo caso se preguntara cuantos son y se cobrara la mitad del valor normal por cada uno Adicionalmente de debera interrogar si desea incluir desayuno en su tarifa (total a pagar) si la respuesta es si, se cobraran Lps. 20 (Son lempiras debido a mi region pero ustedes pueden colocar su moneda) Una vez finalizado el procesamiento de todos los clientes se debera imprimir en pantalla lo siguiente: cantidad de personas que ingresaron al hotel cantidad de menores de 10 años que ingresaron al hotel Total de personas que ingresaron Ingreso total(Total a pagar) De acuerdo comenzemos: Module Module1 Function Menu() As Integer Dim opc As Integer Dim op As Integer Console.Clear() Console.WriteLine(" Menu Principal" ) Console.WriteLine(" ***Hotel el Cuartito***" ) Console.WriteLine(" 1._ Habitacion Deluxe" ) Console.WriteLine(" 2._ Habitacion Billetona" ) Console.WriteLine(" 3._ Habitacion Simplona" ) Console.WriteLine(" 4._ Salir" ) Console.Write(" Ingrese el numero de su eleccion: " ) opc = Console.ReadLine() op = Val(opc) Return op End Function Sub Deluxe() Dim Personal, Noches, menores As Integer Dim cuestion, cuestion2 As String Dim Total1, Total2, Total3 As Double Console.WriteLine("" ) Console.WriteLine(" ***Habitacion Deluxe*** " ) Console.WriteLine(" " ) Console.Write(" Ingrese la cantidad huespedes mayores de 10 años ingresaran al hotel: " ) Personal = Console.ReadLine() Console.Write(" Cuantas noches se hospedara: " ) Noches = Console.ReadLine() Console.Write(" Ingresaran menores de 10 años en el hotel? si o no: " ) cuestion = Console.ReadLine() If (cuestion = "si" ) Then Console.Write(" Cuantos menores de 10 Años ingresaran en el hotel: " ) menores = Console.ReadLine() Console.Write(" Desea incluir desayuno en su tarifa, si o no: " ) cuestion2 = Console.ReadLine() If (cuestion2 = "si" ) Then Total1 = menores * 2500 Total2 = Total1 / 2 Total3 = ((Total2 + 20) + (Personal * 2500)) * Noches Console.WriteLine(" Cantidad de mayores que ingresaron al hotel: {0}", Personal) Console.WriteLine(" Cantidad de menores que ingresaron( Monores de 10 años): {0}", menores) Console.WriteLine(" Tamaño promedio: {0}", Personal + menores) Console.WriteLine(" Total a cancelar: {0}", Total3) Console.ReadKey() Else Total1 = menores * 2500 Total2 = Total1 / 2 Total3 = (Total2 + (Personal * 2500)) * Noches Console.WriteLine(" Cantidad de mayores que ingresaron al hotel: ", Personal) Console.WriteLine(" Cantidad de menores que ingresaron( Monores de 10 años ): ", menores) Console.WriteLine(" Tamaño promedio: {0}", Personal + menores) Console.WriteLine(" Total a cancelar: {0}", Total3) Console.ReadKey() End If Else Console.Write(" Desea incluir desayuno en su tarifa, si o no: " ) cuestion2 = Console.ReadLine() If (cuestion2 = "si" ) Then Total1 = menores * 2500 Total2 = Total1 / 2 Total3 = ((Total2 + 20) + (Personal * 2500)) * Noches Console.WriteLine(" Cantidad de mayores que ingresaron al hotel: {0}", Personal) Console.WriteLine(" Cantidad de menores que ingresaron( Monores de 10 años): {0}", menores) Console.WriteLine(" Tamaño promedio: {0}", Personal + menores) Console.WriteLine(" Total a cancelar: {0}", Total3) Console.ReadKey() Else Total1 = menores * 2500 Total2 = Total1 / 2 Total3 = (Total2 + (Personal * 2500)) * Noches Console.WriteLine(" Cantidad de mayores que ingresaron al hotel: {0}", Personal) Console.WriteLine(" Cantidad de menores que ingresaron( Monores de 10 años): {0}", menores) Console.WriteLine(" Tamaño promedio: {0}", Personal + menores) Console.WriteLine(" Total a cancelar: {0}", Total3) Console.ReadKey() End If End If End Sub Sub Billetona() Dim Personal, Noches, menores As Integer Dim cuestion, cuestion2 As String Dim Total1, Total2, Total3 As Double Console.WriteLine("" ) Console.WriteLine(" ***Habitacion Billetona*** " ) Console.WriteLine(" " ) Console.Write(" Ingrese la cantidad huespedes mayores de 10 años ingresaran al hotel: " ) Personal = Console.ReadLine() Console.Write(" Cuantas noches se hospedara: " ) Noches = Console.ReadLine() Console.Write(" Ingresaran menores de 10 años en el hotel? si o no: " ) cuestion = Console.ReadLine() If (cuestion = "si" ) Then Console.Write(" Cuantos menores de 10 Años ingresaran en el hotel: " ) menores = Console.ReadLine() Console.Write(" Desea incluir desayuno en su tarifa, si o no: " ) cuestion2 = Console.ReadLine() If (cuestion2 = "si" ) Then Total1 = menores * 5600 Total2 = Total1 / 2 Total3 = ((Total2 + 20) + (Personal * 5600)) * Noches Console.WriteLine(" Cantidad de mayores que ingresaron al hotel: {0}", Personal) Console.WriteLine(" Cantidad de menores que ingresaron( Monores de 10 años): {0}", menores) Console.WriteLine(" Tamaño promedio: {0}", Personal + menores) Console.WriteLine(" Total a cancelar: {0}", Total3) Console.ReadKey() Else Total1 = menores * 5600 Total2 = Total1 / 2 Total3 = (Total2 + (Personal * 5600)) * Noches Console.WriteLine(" Cantidad de mayores que ingresaron al hotel: {0}", Personal) Console.WriteLine(" Cantidad de menores que ingresaron( Monores de 10 años): {0}", menores) Console.WriteLine(" Tamaño promedio: {0}", Personal + menores) Console.WriteLine(" Total a cancelar: {0}", Total3) Console.ReadKey() End If Else Console.Write(" Desea incluir desayuno en su tarifa, si o no: " ) cuestion2 = Console.ReadLine() If (cuestion2 = "si" ) Then Total1 = menores * 5600 Total2 = Total1 / 2 Total3 = ((Total2 + 20) + (Personal * 5600)) * Noches Console.WriteLine(" Cantidad de mayores que ingresaron al hotel: {0}", Personal) Console.WriteLine(" Cantidad de menores que ingresaron( Monores de 10 años): {0}", menores) Console.WriteLine(" Tamaño promedio: {0}", Personal + menores) Console.WriteLine(" Total a cancelar: {0}", Total3) Console.ReadKey() Else Total1 = menores * 5600 Total2 = Total1 / 2 Total3 = (Total2 + (Personal * 5600)) * Noches Console.WriteLine(" Cantidad de mayores que ingresaron al hotel: {0}", Personal) Console.WriteLine(" Cantidad de menores que ingresaron( Monores de 10 años): {0}", menores) Console.WriteLine(" Tamaño promedio: {0}", Personal + menores) Console.WriteLine(" Total a cancelar: {0}", Total3) Console.ReadKey() End If End If End Sub Sub Simplona() Dim Personal, Noches, menores As Integer Dim cuestion, cuestion2 As String Dim Total1, Total2, Total3 As Double Console.WriteLine("" ) Console.WriteLine(" ***Habitacion Simplona*** " ) Console.WriteLine(" " ) Console.Write(" Ingrese la cantidad huespedes mayores de 10 años ingresaran al hotel: " ) Personal = Console.ReadLine() Console.Write(" Cuantas noches se hospedara: " ) Noches = Console.ReadLine() Console.Write(" Ingresaran menores de 10 años en el hotel? si o no: " ) cuestion = Console.ReadLine() If (cuestion = "si" ) Then Console.Write(" Cuantos menores de 10 Años ingresaran en el hotel: " ) menores = Console.ReadLine() Console.Write(" Desea incluir desayuno en su tarifa, si o no: " ) cuestion2 = Console.ReadLine() If (cuestion2 = "si" ) Then Total1 = menores * 1100 Total2 = Total1 / 2 Total3 = ((Total2 + 20) + (Personal * 1100)) * Noches Console.WriteLine(" Cantidad de mayores que ingresaron al hotel: {0}", Personal) Console.WriteLine(" Cantidad de menores que ingresaron( Monores de 10 años): {0}", menores) Console.WriteLine(" Tamaño promedio: {0}", Personal + menores) Console.WriteLine(" Total a cancelar: {0}", Total3) Console.ReadKey() Else Total1 = menores * 1100 Total2 = Total1 / 2 Total3 = (Total2 + (Personal * 1100)) * Noches Console.WriteLine(" Cantidad de mayores que ingresaron al hotel: {0}", Personal) Console.WriteLine(" Cantidad de menores que ingresaron( Monores de 10 años): {0}", menores) Console.WriteLine(" Tamaño promedio: {0}", Personal + menores) Console.WriteLine(" Total a cancelar: {0}", Total3) Console.ReadKey() End If Else Console.Write(" Desea incluir desayuno en su tarifa, si o no: " ) cuestion2 = Console.ReadLine() If (cuestion2 = "si" ) Then Total1 = menores * 1100 Total2 = Total1 / 2 Total3 = ((Total2 + 20) + (Personal * 1100)) * Noches Console.WriteLine(" Cantidad de mayores que ingresaron al hotel: {0}", Personal) Console.WriteLine(" Cantidad de menores que ingresaron( Monores de 10 años): {0}", menores) Console.WriteLine(" Tamaño promedio: {0}", Personal + menores) Console.WriteLine(" Total a cancelar: {0}", Total3) Console.ReadKey() Else Total1 = menores * 5600 Total2 = Total1 / 2 Total3 = (Total2 + (Personal * 1100)) * Noches Console.WriteLine(" Cantidad de mayores que ingresaron al hotel: {0}", Personal) Console.WriteLine(" Cantidad de menores que ingresaron( Monores de 10 años): {0}", menores) Console.WriteLine(" Tamaño promedio: {0}", Personal + menores) Console.WriteLine(" Total a cancelar: {0}", Total3) Console.ReadKey() End If End If End Sub Sub Main() Dim opcion As Integer Do opcion = Menu() Select Case opcion Case 1 Deluxe() Case 2 Billetona() Case 3 Simplona() Case 4 Case Else Console.WriteLine(" Error la opcion seleccionada no existe" ) Console.WriteLine(" Presione una tecla para retornar" ) Console.ReadKey() End Select Loop Until opcion = 4 End Sub End Module