Exercicio 13 capitulo 3

Escreva um algoritmo que leia a altura (em metros), o peso (em quilogramas) e o sexo
(“MASCULINO” ou “FEMININO”) e calcule seu peso ideal, dado por
           peso ideal do homem = (72,7 x altura) – 58
                                                                                       (3.3)
ou
           peso ideal da mulher = (62,1 x altura) – 44,77.
                                                                                       (3.4)
O algoritmo deve, também, informar se a pessoa está abaixo ou acima de seu peso ideal e m
quantos quilos.

algoritmo "Exercicio 3.13"

// Função :

// Autor : Gustavo

// Data : 23/9/2010

// Seção de Declarações 

var

   peso,altura,pesoIdeal:real

   sexo:literal

inicio

   escreval("Informe seu sexo:")

   leia(sexo)

   

   escreval("Informe a sua altura:")

   leia(altura)

   

   escreval("Informe o seu peso:")

   leia(peso)

   

   se ((sexo="MASCULINO") ou (sexo="FEMININO")) entao

      se (sexo="MASCULINO") entao

         pesoIdeal<- (72.7*altura)-58

      senao

         se (sexo="FEMININO") entao

            pesoIdeal<- (62.1*altura)-44.77

         fimse

      fimse

      se (peso>pesoIdeal) entao

            escreva("Voce esta ",(peso-pesoIdeal):5:2," acima do normal")

         senao

            se (peso<pesoIdeal) entao

               escreva("Voce esta ",(pesoIdeal-peso):5:2," abaixo do normal")

            senao

               escreva("Voce esta com o peso ideal")

            fimse

         fimse

   senao

      escreva("Você é um E.T?")

   fimse

   

fimalgoritmo