Peso Altura Média

Peso Altura Média

algoritmo "Grupo de Pessoas"

// Função : Recebe informações de um grupo de 5 pessoas

//(nome, altura, peso e sexo) e retorna a quantidade

// total de homens e mulheres, o percentual de cada,

// médias de peso e de altura das pessoas e o nome da pessoa mais alta

// Autores : Anderson Ferreira Diniz

//

// Data : 09/11/2011

// Seção de Declarações

var

Nome: vetor [1..5] de caracter

Altura: vetor [1..5] de real

peso: vetor [1..5] de real

sexo: vetor [1..5] de caracter

alturatotal: real

contfem: inteiro

contmasc: inteiro

i: inteiro

maiorAltura: real

maiorPeso: real

mediaaltura: real

mediapeso: real

nomeDomaior: caracter

nomeDoMaisPesado: caracter

perHom: real

perMul: real

pesototal: real

total: inteiro

inicio

// Seção de Comandos

// Leitura dos dados

para i de 1 ate 5 faca

escreval ("Informe o nome", i, ":")

leia (Nome [i])

escreval ("Informe a altura", i, ":")

leia (Altura [i])

escreval ("Informe o peso", i, ":")

leia (peso [i])

escreval ("Informe o sexo", i, ":")

leia (sexo [i])

fimpara

// Contagem do total de homens e de mulheres

contfem <- 0

contmasc <- 0

para i de 1 ate 5 faca

se sexo [i] = "m" entao

contmasc <- contmasc + 1

senao

contfem <- contfem + 1

fimse

fimpara

total <- contmasc + contfem

// Cálculo do percentual de homens e de mulheres

perHom <- (100 /(total)) * contmasc

perMul <- (100 /(total)) * contfem

// Soma dos pesos

pesototal <- 0

para i de 1 ate 5 faca

pesototal <- pesototal + peso [i]

fimpara

// Soma das alturas

alturatotal <- 0