ATPS: algoritmo "Exercicio-4"

algoritmo "Exercicio-4"

// Função :

// Autor :

// Data : 27/03/2013

// Seção de Declarações

var

IMC, Peso, Altura:real

Repete:inteiro

Opcao:caracter

inicio

// Seção de Comandos

Peso <- 0

Altura <- 0

IMC <- 0

Repete <-0

enquanto (Repete < 10) faca

escreva("Informe o seu peso: ")

leia (Peso)

escreva("Informe a sua altura: ")

leia (Altura)

IMC <- Peso / Altura ^ 2

se (IMC < 17.0) entao

escreval ("Seu IMC é: ", IMC)

escreval ("Você está MUITO ABAIXO DO PESO")

senao

se (IMC >17.0) e (IMC <= 18.49) entao

escreval ("Seu IMC é: ", IMC)

escreval ("Você está ABAIXO DO PESO")

senao

se (IMC >18.5) e (IMC <= 24.99) entao

escreval ("Seu IMC é: ", IMC)

escreval ("Você está COM PESO NORMAL")

senao

se (IMC >25.0) e (IMC <= 29.99) entao

escreval ("Seu IMC é: ", IMC)

escreval ("Você está ACIMA DO PESO")

senao

se (IMC >30.0) e (IMC <= 34.99) entao

escreval ("Seu IMC é: ", IMC)

escreval ("Você está COM OBESIDADE NÍVEL I")

senao

se (IMC >35.0) e (IMC <= 39.99) entao

escreval ("Seu IMC é: ", IMC)

escreval ("Você está COM OBESIDADE NÍVEL II")

senao (IMC >40.0)

escreval ("Seu IMC é: ", IMC)

escreval ("Você está COM OBESIDADE NÍVEL III")