sexta-feira, 3 de setembro de 2010

4) calcular porções diárias e mostrar o quanto (em gramas) existe no pacote de ração após 5 dias e informe quanto cada gato comeu.

algoritmo "Calcular porções diárias de ração de 2 gatos"


var
gato1, gato2, gramasGato1, gramasGato2, totalPeso, porcaoDiaria, pacoteRacao,racaoDia, racaoApos5dias: real

inicio
escreval ("***Calcular Porções Diárias de Ração de 2 Gatos***")
escreval
escreva ("Qual o peso do gato 1?")
leia (gato1)
escreva ("Qual o peso do gato 2?")
leia (gato2)
Escreva ("Qual e o peso do pacote de racao?")
leia (pacoteRacao)
gramasGato1 <- gato1*50
gramasGato2 <- gato2*50
racaoDia <- gramasGato1 + gramasGato2
racaoApos5dias <-(pacoteRacao*1000)-(racaoDia*5)

escreva ("Total de ração após 5 dias: ", racaoApos5dias, "gramas")
escreva ("Total de porções diárias: " , racaoDia, "gramas")
escreva ("Quanto o gato1 comeu: ", "gramasGato1", "gramas")
escreva ("Quanto o gato2 comeu: ", "gramasGato2", "gramas")

fimalgoritmo

Nenhum comentário:

Postar um comentário