VisualG Calcular IMC de usuário

[lilous]

Preciso de uma 5ª opção para calcular o imc do usuário, não sei usar procedimentos, ajuda?

 

90% ta feito.

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

 

[Anderson.alg]

algoritmo "Calculadora"
// Autor: Anderson L. Pereira
var
   numero1, numero2, resultado, opcao:real
   resto:inteiro
   operacao:caracter
   confirmacao:caracter
procedimento leitura
inicio
   limpatela
   escreval
   escreva (" Entre com 1º número:")
   leia (numero1)
   escreval
   escreva (" Entre com 2º número:")
   leia (numero2)
fimprocedimento
procedimento impressao
inicio
   limpatela
   escreval
   escreval (" Resultado:",numero1," ",operacao,numero2," =",resultado)
fimprocedimento
procedimento adicao
inicio
   leitura
   operacao <- "+"
   resultado <- numero1+numero2
   impressao
fimprocedimento
procedimento subtracao
inicio
   leitura
   operacao <- "-"
   resultado <- numero1-numero2
   impressao
fimprocedimento
procedimento multiplicacao
inicio
   leitura
   operacao <- "x"
   resultado <- numero1*numero2
   impressao
fimprocedimento
procedimento divisao
inicio
   leitura
   enquanto (numero2 = 0) faca
      limpatela
      escreval
      escreval (" Operação inválida.")
      escreval
      escreva (" Entre com 1º número:")
      leia (numero1)
      escreval
      escreva (" Entre com 2º número:")
      leia (numero2)
   fimenquanto
   operacao <- ":"
   resultado <- numero1/numero2
   impressao
fimprocedimento
procedimento restodivisao
var
   numero1, numero2, resto:inteiro
inicio
   limpatela
   escreval
   escreva (" Entre com 1º número:")
   leia (numero1)
   escreval
   escreva (" Entre com 2º número:")
   leia (numero2)
   enquanto (numero2 = 0) faca
      limpatela
      escreval
      escreval (" Operação inválida.")
      escreval
      escreva (" Entre com 1º número:")
      leia (numero1)
      escreval
      escreva (" Entre com 2º número:")
      leia (numero2)
   fimenquanto
   limpatela
   escreval
   resto <- numero1 MOD numero2
   se resto = 0 então
      escreval (" Resultado:",numero1," :",numero2," =",numero1 DIV numero2)
   senao
      escreval (" Resultado:",numero1," :",numero2," =",numero1 DIV numero2," | Resto:",resto)
   fimse
fimprocedimento
procedimento potenciacao
inicio
   limpatela
   escreval
   escreva (" Entre com a base:")
   leia (numero1)
   escreval
   escreva (" Entre com o expoente:")
   leia (numero2)
   enquanto (numero1 = 0) e (numero2 <= 0) faca
      limpatela
      escreval
      escreval (" Operação inválida.")
      escreval
      escreva (" Entre com a base:")
      leia (numero1)
      escreval
      escreva (" Entre com o expoente:")
      leia (numero2)
   fimenquanto
   operacao <- "elevado na"
   resultado <- numero2^numero1
   impressao
fimprocedimento
procedimento radiciacao
var
   numero1, resto:inteiro
inicio
   limpatela
   escreval
   escreva (" Entre com o índice:")
   leia (numero1)
   resto <- numero1 MOD 2
   escreval
   escreva (" Entre com o radicando:")
   leia (numero2)
   enquanto (resto = 0) e (numero2 < 0) faca
      limpatela
      escreval
      escreval (" Operação inválida.")
      escreval
      escreva (" Entre com o índice:")
      leia (numero1)
      resto <- (numero1 MOD 2)
      escreval
      escreva (" Entre com o radicando:")
      leia (numero2)
   fimenquanto
   operacao <- "Raiz"
   resultado <- numero1^(1/numero2)
   limpatela
   escreval
   escreval (" Resultado: ",operacao,numero1," de",numero2," =",resultado)
fimprocedimento
inicio
   opcao <- 1
   enquanto opcao <> 0 faca
      escreval
      escreval (" 1 Adição")
      escreval (" 2 Subtração")
      escreval (" 3 Multiplicação")
      escreval (" 4 Divisão")
      escreval (" 5 Resto")
      escreval (" 6 Potenciação")
      escreval (" 7 Radiciação")
      escreval
      escreval (" 0 Encerrar")
      escreval
      escreva (" Entre com a operação:")
      leia (opcao)
      se opcao <> 0 então
         se opcao = 1 então
            adicao
         senao
            se opcao = 2 então
               subtracao
            senao
               se opcao = 3 então
                  multiplicacao
               senao
                  se opcao = 4 então
                     divisao
                  senao
                     se opcao = 5 então
                        restodivisao
                     senao
                        se opcao = 6 então
                           potenciacao
                        senao
                           se opcao = 7 então
                              radiciacao
                           senao
                              limpatela
                              escreval
                              escreva (" Operação inválida.")
                              escreval
                           fimse
                        fimse
                     fimse
                  fimse
               fimse
            fimse
         fimse
      fimse
   fimenquanto
fimalgoritmo

 

[lilous]

Eu não pedi uma calculadora .....