VisualG Algoritmo visualg usando funçao e vetor

[NetinhoAbreu]

Pessoal,boa noite

Estou aqui a quebrar cabeça e não consigo passar desta fase, preciso usando função, procedimento e vetor no Visualg entrar com nome idade , peso e altura de 20 pessoas, calcular o IMC e depois dizer quem está acima do peso,normal , magro e abaixo do peso bem como mostrar o IMC médio e quem está acima desta média.

O problema que não estou conseguindo fazer a função para calcular o IMC funcionar, já tentei de tods os jeitos e nada, passando desta fase irei tentar resolver o restante, porém trava na execução quando chamo a função no programa principal.

Vejam meu código.

algoritmo "imc de 20 pessoas usando subprograma"
var
pesos,imc,alturas:vetor[1..20]de real
nomes:vetor[1..20]de caracter
x:inteiro
procedimento lernomes
Var
i:inteiro
Inicio
Para i de 1 ate 20 faca
Escreva("Digite o nome da pessoa", i , ": ")
Leia(nomes)
fimpara
fimprocedimento
procedimento lerpesoealtura
Var
i:inteiro
Inicio
Para i de 1 ate 20 faca
Escreva("Digite o peso da pessoa", i , ": ")
Leia(pesos)
Escreva("Digite a altura da pessoa", i , ": ")
Leia(alturas)
fimpara
fimprocedimento
funcao calcularimc (im:real):real
para i de 1 ate 20 faca
lerpesos
fimpara
retorne (pesos/(alturas*alturas))
fimfuncao
inicio
lernomes
lerpesoealtura
calcularimc(im)
fimalgoritmo

 

[JhOnE RoSsInI]

olha NetinhoAbreu eu fiz assim e deu certo olha ai, mas o calculo do peso ideal para homem é diferente para mulher não sei se o seu ta certo beleza.

algoritmo "semnome"
// Função :
// Autor :
// Data : 4/6/2010
// Seção de Declarações
var
   pesos,imc,alturas,peso_ideal:vetor[1..3]de real
   nomes:vetor[1..3]de caracter
procedimento lernomes
   Var
      i:inteiro
   Inicio
   Para i de 1 ate 3 faca
      Escreval("Digite o nome da pessoa", i , ": ")
      Leia(nomes[i])
   fimpara
fimprocedimento

procedimento lerpesoealtura
   Var
      i:inteiro
   Inicio
   Para i de 1 ate 3 faca
      Escreval("Digite o peso da pessoa", i , ": ")
      Leia(pesos[i])
      Escreval("Digite a altura da pessoa", i , ": ")
      Leia(alturas[i])
   fimpara
fimprocedimento

procedimento calcularimc
   var
      i:inteiro
   inicio
   para i de 1 ate 3 faca
      peso_ideal[i] <- (pesos[i]/(alturas[i]*alturas[i]))
      escreval("O seu peso ideal da", i , " é :", peso_ideal[i])
   fimpara
fimprocedimento

inicio
lernomes
lerpesoealtura
calcularimc
fimalgoritmo

 

[NetinhoAbreu]

Jhone,boa tarde

Obrigado, me ajudou mesmo.

Podem marcar como resolvido este tópico

Obrigad~]ao mesmo

salvou minha pele

[Evandro]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.