Cálculo De Calorias Consumidas

Uma pessoa ingere diariamente uma quantidade QTDE de alimentos (medidos em gramas). Sabe-se que 100g destes mesmos alimentos possuem uma quantidade X de calorias e que a média de calorias que uma pessoa deve consumir é de 1200 cal/dia. Faça um algoritmo que mostre na tela, uma mensagem informando se esta pessoa está ingerindo uma quantidade aceitável de calorias ou se a mesma está acima da media de cal/dia.

Notem que o cálculo para determinar a quantidade de calorias que um alimento possui é feito simplesmente aplicando uma regra de três simples:

100g -------- X cal

QTDE g -------- ? cal

a) Deverá ser informado também, no caso da pessoa estar acima da media de cal/dia, a quantidade de calorias em excesso que a pessoa esta ingerindo.

b) Informar também a quantidade em gramas que estas calorias em excesso correspondem.

c) Caso a quantidade em gramas de alimentos em excesso ultrapasse a 500g, informar a esta pessoa que ela deverá procurar a ajuda de um nutricionista.

var

qtde: inteiro

calculo, resultado:real

inicio

escreva("Digite a quantidade de gramas a serem consumidas: ")

leia(qtde)

calculo <- (qtde * 240) / 100

se calculo <= 1200 entao

escreva("Você está ingerindo uma quantidade razoável de calorias")

senao

escreva("Você está ingerindo uma quantidade exagerada de calorias")

fimse

se calculo > 1200 entao

resultado <- (calculo - 1200)

escreva("Você está ingerindo ",resultado," gramas a mais do que o recomendado")

senao

escreval("")

fimse

fimalgoritmo