Você está aqui: VB.NET ::: Desafios e Lista de Exercícios Resolvidos ::: VB.NET Básico |
Valor da diária, valor médio arrecadado com e sem promoção e o lucro ou prejuízo mensal de uma promoção em um hotel - Desafio de Programação Resolvido em VB.NETQuantidade de visualizações: 520 vezes |
Pergunta/Tarefa: Escreva um programa VB.NET para resolver o seguinte problema: Um hotel com 42 apartamentos resolveu fazer promoções para os fins de semana fora da alta temporada, isto é, nos meses de abril, maio, junho, agosto, setembro, outubro e novembro. A taxa da promoção é de 22% da diária normal. A ocupação média do hotel sem promoção é de 40%. A expectativa é aumentar a taxa de ocupação para 70%. Supondo que as expectativas se confirmem, escrever um algoritmo que lê a diária normal, que calcule e escreva as seguintes informações: (a) O valor da diária no período da promoção. (b) O valor médio arrecadado sem a promoção, durante um mês. (c) O valor médio arrecadado com a promoção, durante um mês. (d) O lucro ou prejuízo mensal com a promoção. Seu código VB.NET deverá apresentar uma saída parecida com: Informe o valor da diária normal: 120 Diária no período de promoção: 26,40 Média arrecadada sem a promoção durante um mês: 8064,00 Média arrecadada com a promoção durante um mês: 3104,64 Prejuízo mensal com a promoção: 4959,36 Veja a resolução comentada deste exercício usando VB.NET: ---------------------------------------------------------------------- Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar) Este código foi útil? Paga um cafezinho pra mim :-( PIX: osmar@arquivodecodigos.com.br ---------------------------------------------------------------------- Imports System Module Program ' função principal do programa VB.NET Sub Main(args As String()) ' valor da diária em período normal Dim valor_diaria_normal As Double ' valor da diária no período de promoção Dim valor_diaria_promocao As Double ' vamos obter o valor da diária no período normal Console.Write("Informe o valor da diária normal: ") valor_diaria_normal = Double.Parse(Console.ReadLine()) ' vamos obter o valor da diária no período promocional valor_diaria_promocao = valor_diaria_normal * (22.0 / 100.0) ' vamos calcular o valor médio arrecadado sem a promoção, durante um mês ' estamos assumindo 4 finais de semana por mês Dim media_arrecado_sem_promocao As Double = (valor_diaria_normal _ * (42 * (40.0 / 100.0)) * 4) ' vamos calcular o valor médio arrecadado com a promoção, durante um mês ' estamos assumindo 4 finais de semana por mês Dim media_arrecado_com_promocao As Double = (valor_diaria_promocao _ * (42 * (70.0 / 100.0)) * 4) Console.WriteLine("Diária no período de promoção: " & valor_diaria_promocao) Console.WriteLine("Média arrecadada sem a promoção durante um mês: " & media_arrecado_sem_promocao) Console.WriteLine("Média arrecadada com a promoção durante um mês: " & media_arrecado_com_promocao) ' houve lucro ou prejuízo? If (media_arrecado_sem_promocao < media_arrecado_com_promocao) Then Console.WriteLine("Lucro mensal com a promoção: " & (media_arrecado_com_promocao - media_arrecado_sem_promocao)) Else Console.WriteLine("Prejuízo mensal com a promoção: " & (media_arrecado_sem_promocao - media_arrecado_com_promocao)) End If Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...") ' pausa o programa Console.ReadKey() End Sub End Module |
![]() |
Mais Desafios de Programação e Exercícios e Algoritmos Resolvidos de VB.NET |
Veja mais Dicas e truques de VB.NET |
Dicas e truques de outras linguagens |
wxWidgets - Como baixar, compilar a biblioteca e criar um projeto C++ wxWidgets usando o Visual Studio 2017 |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
1º lugar: Java |