Exercício cap.3.13

13. 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


peso ideal da mulher = (62,1 x altura) – 44,77


O algoritmo deve, também, informar se a pessoa está abaixo ou acima de seu peso ideal e em quantos quilos.

Resposta:

1.  algoritmo "peso ideal"
2.  var
3.    sexo:literal
4.    h,p,pih,pih2,pim,pim2:real
5.  inicio
6.    escreval("Cálculo do peso ideal.")
7.    escreva("Informe seu sexo (M para masculino ou F para feminino) = ")
8.    leia(sexo)
9.    escreva("Informe sua altura     = ")
10.   leia(h)
11.   escreva("Informe seu peso em Kg = ")
12.   leia(p)
13.   se sexo = "M"  entao
14.     pih <- (72.7*h)-58
15.      se pih>p entao
16.        pih2 <- pih-p
17.        escreval("Seu peso ideal é ",pih:5:2," Kg. Você está ",pih2:5:2," Kg, abaixo do seu peso ideal.")
18.      senao
19.        se pih<p entao
20.          pih2 <- p-pih
21.          escreval("Seu peso ideal é ",pih:5:2," Kg. Você está ",pih2:5:2," Kg, acima do seu peso ideal.")
22.        senao
23.          se pih=p entao
24.           escreval("Você está no seu peso ideal.")
25.          fimse
26.        fimse
27.      fimse
28.   fimse
29.   se sexo = "F" entao
30.      pim <- (62.1*h)-44.77
31.       se pim>p entao
32.       pim2 <- pim-p
33.        escreval("Seu peso ideal é ",pim:5:2," Kg. Você está ",pim2:5:2," Kg, abaixo do seu peso ideal.")
34.      senao
35.        se pim<p entao
36.          pim2 <- p-pim
37.          escreval("Seu peso ideal é ",pim:5:2," Kg. Você está ",pim2:5:2," Kg, acima do seu peso ideal.")
38.        senao
39.          se pim=p entao
40.           escreval("Você está no seu peso ideal.")
41.          fimse
42.       fimse
43.     fimse
44.   fimse
45.    se (sexo<>"m") ou (sexo<>"f") entao
46.    escreval("O sexo não corresponde, tente F para feminino ou M para masculino.")
47.    fimse
48.    escreval("*** F I M ***")
49. fimalgoritmo