APS 3 EX 1

algoritmo "Calculo"
// Função : Verificar dados e classificar por maior altura e menor altura média de altura das mulheres e média de altura da sala
// Autor : Gilmar Junior dos Passos
// Data : 07/04/2013
// Seção de Declarações
var

cot, cot2, cotm, mulher, sexo: inteiro
altura, alt1, alt2, ma, mm: real


inicio

// definve valores para algumas variaveis
cot <- 1
// carrega as informações sobre a primeira pessoa
escreval ("Informe o Sexo 1=M 2=F:")
leia (sexo)
Escreval ("Informe altura:")
leia (altura)
alt1 <- altura
alt2 <- altura
se sexo = 2 entao
cotm <- (cotm + 1)
mm <- (mm + altura)
mm <- (mm / cotm)
fimse
cot2 <- (cot2 + 1)
ma <- (ma + altura)   // verifica a media total
ma <- (ma / cot2)


para cot de 2 ate 50 faca   //inicio contador

cot2 <- (1 + cot2)    // variavel de controle

escreval ("Informe o Sexo 1=M 2=F:") // entrada de valores
leia (sexo)
Escreval ("Informe altura:") //entrada de valores
leia (altura)

se (altura <= alt1) entao
   alt1 <- altura
fimse

se (altura >= alt2) entao
   alt2 <- altura
fimse
se sexo = 2 entao       // verifica se é do sexo feminino
cotm <- (cotm + 1)      //contador de controle
mm <- (mm + altura)     //verifica a media feminina
mm <- (mm / cotm)
fimse
cot2 <- (cot2 + 1)
ma <- (ma + altura)   // verifica a media total
ma <- (ma / cot2)
fimpara

escreval ("A menor altura da sala é ",alt1," cm.")
escreval ("A maior altura da sala é ",alt2," cm.")
escreval ("A média de altura das mulheres é: ",mm," cm.")
escreval ("A média de altura da sala é: ",ma," cm.")
fimalgoritmo