VISUALG - Estou com dificuldade..rsrs

[mjfrancobru]

Olá Pessoal,

Estou iniciando e tenho uma duvida, tenho que montar um algoritmo que leia o sexo e altura da pessoa para calcular seu peso ideal. Usei o comando SE e o comando CASO(escolha)....mas num da certo!!! Se alguem puder me dar uma dica abaixo o meu raciocinio..rsrs

var

sexo:caracter

h,r:real

inicio

Escreval("Digite seu sexo(feminino/masulino):-")

Leia(sexo)

Escreval("Digite sua altura:-")

Leia(h)

Se sexo<-feminino então

r<-62.1*h Escreval("Seu peso ideal é:- ",r)

senao

r<-72.7*h Escreval("Seu peso idel é:- ",r)

Fimse

fimalgoritmo

Obrigado

msn: [email protected]

[Kreitos]

var
sexo:caracter
h,r:real
inicio

Escreval("Digite seu sexo(feminino/masulino):-")
Leia(sexo)

Escreval("Digite sua altura:-")
Leia(h)

[COLOR="Red"]Se sexo = "feminino" então
    r<-62.1*h Escreval("Seu peso ideal é:- ",r)[/COLOR]

senao
   r<-72.7*h Escreval("Seu peso idel é:- ",r)
Fimse

fimalgoritmo

[JhOnE RoSsInI]

ta ai correto

algoritmo "Peso ideal"
// Função :
// Autor :JhOnE RoSsInI
// Data : 22/10/2010
// Seção de Declarações 
var
sexo:caracter
h,r:real
inicio
// Seção de Comandos
escreva("Informe o sexo Masculino/Feminino: ")
leia(sexo)
escreva("Informe a altura: ")
leia(h)

se ((sexo = "Masculino") ou (sexo = "masculino")) então

r <- 72.7 * h

fimse

se ((sexo = "Feminino") ou (sexo = "feminino")) então

r <- 62.1 * h

fimse

escreva("Seu peso ideal é: ", r)
fimalgoritmo

[mjfrancobru]

Obrigado mesmo rapaziada.....

Abraços!!!