Calcular IMC no VisualG

[lilous 0]

Preciso criar uma 5ª opção que calcule o imc do usuário usando procedimentos.

Não sei usar procedimento =/

algoritmo "semnome"
// Função :
// Autor :
// Data : 1/8/2011
// Seção de Declarações
var
n1:inteiro
n2:inteiro
o:inteiro
r:real
inicio
escreval (" Escreva um número. ")
leia(n1)
escreval (" Escreva outro número. ")
leia(n2)
escreval ("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
escreval (" Entre com o número da opção abaixo ")
escreval (" 1- soma ")
escreval (" 2- subitração")
escreval (" 3- multiplicação ")
escreval (" 4- divisão ")
escreval ("-.-.-.-.-.-")
leia(o)
escolha o
caso 1
  r<-n1+n2
caso 2
  r<-n1-n2
caso 3
  r<-n1*n2
caso 4
  r<-n1/n2
outrocaso
  escreval (" Opção inválida! ")
  r<-o
fimescolha
escreval ("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
escreval (" O resultado é ",r)
// Seção de Comandos
fimalgoritmo

[Marcelo de Andrade 2]

Foi você que fez esse algoritmo? É pra calcular o IMC ou operações aritméticas?

[lilous 0]

A próxima etapa deste algoritmo é implementar uma 5ª opção, que remeta o usuário ao calculo de seu imc.

[quitZAUMMM 18]

 imc <- peso/(altura*altura); 

 

[]s

[Kalashnikov 0]

algoritmo "semnome"

// Função : Calculo IMC

// Autor : João Paulo

// Data : 24/12/2012

// Seção de Declarações

var

peso,somapesos,altura: real

inicio

// Seção de Comandos

escreva ("Entre com o Seu Peso (Kg): ")

leia (peso)

escreva ("Entre com Sua Altura (cm): ")

leia (altura)

somapesos <- (peso/((altura/100)*2)))

escreva ("Seu IMC é", somapesos)

escreval

escreval ("Abaixo de 18,5 Você está abaixo do peso ideal")

escreval ("Entre 18,5 e 24,9 Parabéns — você está em seu peso normal!")

escreval ("Entre 25,0 e 29,9 Você está acima de seu peso (sobrepeso)")

escreval ("Entre 30,0 e 34,9 Obesidade grau I")

escreval ("Entre 35,0 e 39,9 Obesidade grau II")

escreval ("Acima 40,0 Obesidade grau III")

fimalgoritmo

[Eisenheim 67]

Olá amigos!

 

lilous

 

a respeito de funções e procedimentos você pode aprender um pouco aqui mesmo: [ Clique Aqui ]

 

Até a próxima. :thumbsup: