Algoritmo "Exercicio.36"
var
horas, SomaPontos: inteiro
Saldo: real
inicio
Escreval (" ")
Escreval ("•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••")
Escreval(" Programa Vida Saudável ")
Escreval ("••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••")
Escreval ("")
Escreva(" Cada hora de atividade física mensal vale pontos que podem ser ")
Escreval("trocados por dinheiro! $")
Escreval (" Quanto mais horas gastas se exercitando, mais você ganha!")
Escreval (" ----------------------------------------------------")
Escreval (" ")
Escreval ("Funciona assim: ")
Escreval (" -> ATÉ 10H DE ATIVIDADE NO MÊS: ganha 2 pontos/hora ")
Escreval (" -> DE 10 ATÉ 20H NO MÊS: ganha 5 pontos/hora ")
Escreval (" -> ACIMA DE 20H NO MÊS : ganha 10 pontos/hora ")
Escreval (" A cada ponto ganho, você fatura R$0,05 (5 centavos)! ")
Escreval (" ")
Escreval (" -----------------------------------------------------")
Escreva ("Horas de exercício no mês: ")
Escreval (" ")
Leia (horas)
Se (horas<10) então
SomaPontos<-(horas*2)
Senao
Se (horas>=10) e (horas<=20) então
SomaPontos<-(horas*5)
Senao
Se (horas>20) então
SomaPontos<-(horas*10)
FimSe
FimSe
FimSe
Saldo<-(SomaPontos*0.05)
Escreval ("------------------------------------------")
Escreval ("SALDO DE PONTOS: ",SomaPontos)
Se (Saldo<1.0) então
Escreval ("Você ganhou R$ ",Saldo:1:2, " centavos")
Senao
Se (Saldo>1.0) então
Escreval ("Você ganhou R$ ",Saldo:1:2, " reais")
FimSe
FimSe
Escreval ("-------------------------------------------")
Escreva ("PARABÉNS! ")
Escreva ("Uma vida saudável é crucial para o bem-estar e longevidade! :)")
fimalgoritmo