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 - Lista de Exercícios Resolvidos de Portugol

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

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

// Calcular o lucro ou prejuízo de uma promoção em um hotel
programa {
  funcao inicio() {
    // valor da diária em período normal
    real valor_diaria_normal
    // valor da diária no período de promoção
    real valor_diaria_promocao
    // outras variáveis auxiliares
    real media_arrecadado_sem_promocao
    real media_arrecadado_com_promocao

    // vamos obter o valor da diária no período normal
    escreva("Informe o valor da diária normal: ")
    leia(valor_diaria_normal)

    // 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
    media_arrecadado_sem_promocao = (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
    media_arrecadado_com_promocao = (valor_diaria_promocao * 
      (42 * (70.0 / 100.0)) * 4)

    escreva("\nDiária no período de promoção: ", valor_diaria_promocao)
    escreva("\nMédia arrecadada sem a promoção durante um mês: ")
    escreva(media_arrecadado_sem_promocao)
    escreva("\nMédia arrecadada com a promoção durante um mês: ")
    escreva(media_arrecadado_com_promocao)

    // houve lucro ou prejuízo?
    se (media_arrecadado_sem_promocao < media_arrecadado_com_promocao) {
      escreva("\nLucro mensal com a promoção: ")
      escreva(media_arrecadado_com_promocao - media_arrecadado_sem_promocao)
    }
    senao {
      escreva("\nPrejuízo mensal com a promoção: ")
      escreva(media_arrecadado_sem_promocao - media_arrecadado_com_promocao)
    }
  }
}