[B] Problema no algoritmo VISUALG

[Denis Marques 0]

 

A média dos pesos dos homens.

A média da idade das mulheres.

Quantas mulheres acima de 25 anos.

Total de pessoas.

eu fiz algumas coisa queria saber onde estou errando

 

var

idade:vetor [1..5] de inteiro

peso: vetor [1..5] de real

sexo: vetor [1..5] de caracter

contfem: inteiro

contmasc: inteiro

i: inteiro

mediapesom: real

total: inteiro

idade25:inteiro

pesom:inteiro

inicio

// Seção de Comandos

para i de 1 ate 5 faca

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

leia (peso )

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

leia (sexo )

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

leia (idade )

fimpara

peso <- 0

para i de 1 ate 5 faca

se peso = "m" entao

pesom <- pesom + 1

fimpara

// Contagem do total de homens e de mulheres

contfem <- 0

contmasc <- 0

idade25 <-

para i de 1 ate 5 faca

se sexo = "m" entao

contmasc <- contmasc + 1

senao

contfem <- contfem + 1

fimse

fimpara para i de 1 ate 5 faca

se idade = "f" entao

idade25 > 25 idade25 + 1

fimse

fim para

total <- contmasc + contfem

// Cálculos das médias de altura e de peso

mediapesom <- pesom / total

fimse

fimpara

escreval ("media de homens são: ", peso)

escreval ("A média da idade das mulheres: ", idade, " m")

escreval ("A média dos pesos dos homens: ", mediapesom, " kg")

escreval ("Total de pessoas: ", total)

fimalgoritmo

 

[Sergio Cavalcante 6]

algoritmo "outro ponto de vista"

// Função :

// Autor :Sergio Cavalcante

// Data : 20/05/2014

// Seção de Declarações

var

i,n,idadeM,contador,soma:inteiro

pesoH,peso,mediaH,mediaM:real

inicio

n<-3 //alterando o valor do "n" você pode acrecentar varias pessoas.

para i de 1 ate n faca

Escreva ("informe o peso do " ,i,"º homen: ")

leia(peso)

pesoH<-peso+PesoH

mediaH<-pesoH /n // dividido por "n" porque "n" é a quantidade de pessoas .

fimpara

Escreval("__________________________________")

para i de 1 ate n faca

Escreva("Informe a idade da" ,i,"º mulher: ")

leia(idadeM)

soma<-idadeM+soma

mediaM <-soma /n

se (idadeM > 25) entao

contador<-contador+1

fimse

fimpara

Escreval("____________________________________")

Escreval("A media do peso dos homens é: ",mediaH)

Escreval("A media da idade das mulher é:",mediaM)

Escreval("a quantidade de mulheres acima de 25 são: ",contador)

Escreval("o total de pessoas" ,n," homens e ",n," mulheres")

fimalgoritmo

amigo testa para ver se isso se enquadra no seu perfil só lembrando a quantidade de homens e mulheres eu deixei fixos "n" ...duvidas poste aqui

[Denis Marques 0]

obrigado