Question

URGENTE!

Preciso, usando função,procedimento e vetor no Visualg entrar com nome idade , peso e altura de 5 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.

Fiz até aqui, mas tá dando erro. Alguém poderia ajudar?

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[i])

fimpara

fimprocedimento

procedimento lerpesoealtura
Var
i:inteiro
Inicio
Para i de 1 ate 20 faca

Escreva("Digite o peso da pessoa", i , ": ")
Leia(pesos[i])
Escreva("Digite a altura da pessoa", i , ": ")
Leia(alturas[i])

fimpara

fimprocedimento

funcao calcularimc (im:real):real
para i de 1 ate 20 faca
lerpesos

fimpara
retorne (pesos[i]/(alturas[i]*alturas[i]))
fimfuncao
inicio

lernomes
lerpesoealtura
calcularimc(im)
fimalgoritmo

Answer 1

Eu não sou muito bom para reparar códigos já feitos - não me interprete mal.

Então eu refiz esse algoritmo fazendo etapa por etapa:
1) Ler os dados
2) Calcular o IMC
3) Armazenar o valor obtido
4) Efetuar a soma do IMC
5) Após ler todos os valores, calcular a média
6) Escrever o que é pedido no problema
7) Mostrar a média
8) Mostrar as pessoas que possuem IMC acima desse valor

Eu não inseri o procedimento, pois quero que você mesma o adicione. Eu te aconselho a colocar todo o código que imprime os resultados finais dentro do procedimento. Depois colocar o procedimento embaixo do código da função e depois colocar a chamada do procedimento a baixo da variável "media". Blz?

Segue abaixo o algoritmo

617ff4f42a45b0a9f347e73f277e9309.txt