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