Nutricionista

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "Nutri"
var
eatCal, gramas, cal, grExc : real
inicio
 Escreval("Digite o peso do seu Prato")
 leia(gramas)
 Escreval("Digite a quantidade de calorias em (100g)")
 leia(cal)
 eatCal <- ((gramas * cal)/100)
 Escreval("A quantidade consumida foi ", eatCal, " Calorias")
 Se (eatCal > 1200 ) entao
 eatCAl <- eatcal - 1200
 Escreval("Você esta comendo muito ! ", eatCal , " são suas calorias a mais") //A
 grExc <- (eatCal * 100) / cal //B
 Escreval(grExc,"g Corresponde as gramas adicionais que você ingeriu ")
 Se (grExc > 500) entao
 Escreval("Você deve procurar um Nutricionista")
 Fimse
 Fimse
FimAlgoritmo