algoritmo "Exercicio"
// Função : Exercicio 2 da Lista 3, le os dados (sexo e altura) de 3 pessoas e calcula"
// Autor : Walteno Martins Parreira Jr
// Data : 04/04/2018
// Seção de Declarações 
var
a1, a2, a3: real
s1, s2, s3: caracter
soma, media: real
qf, qm: inteiro

inicio
// Seção de Comandos 
escreva("Entre altura 1: ")
leia(a1)
escreva("Entre sexo 1: ")
leia(s1)
escreva("Entre altura 2: ")
leia(a2)
escreva("Entre sexo 2: ")
leia(s2)
escreva("Entre altura 3: ")
leia(a3)
escreva("Entre sexo 3: ")
leia(s3)
//-------
//Calculo da maior altura do grupo
se(a1 > a2) entao
  se(a1 > a3) entao
    Escreval("maior altura é ",a1:5:2)
  senao
    //falhou o teste, logo a3 >= a1   
    se(a3 > a2) entao
      //se a3 > a2 e a3 >= a1, logo a3 é o maior 
      Escreval("maior altura é ",a3:5:2)
    fimse
  fimse
senao
  // falhou o teste, logo a2 >= a1
  se(a2 > a3) entao
    Escreval("maior altura é ",a2:5:2)
  senao
    //se a3 >= a2 e a2 >= a1, logo a3 é o maior 
    Escreval("maior altura é ",a3:5:2)
  fimse
fimse
//-----
//Calculo da menor altura do grupo
se(a1 < a2) entao
  se(a1 < a3) entao
    Escreval("menor altura é ",a1:5:2)
  senao
    //falhou o teste, logo a3 <= a1
    se(a3 < a2) entao
       //se a3 < a2 e a3 <= a1, logo a3 é o menor
       Escreval("menor altura é ",a3:5:2)
    fimse
  fimse
senao
  //falhou o teste, logo a2 <= a1
  se(a2 < a3) entao
    //se a2 < a3 e a2 <= a1, logo a2 é o menor
    Escreval("menor altura é ",a2:5:2)
  senao
    //falhou o teste, logo a3 <= a2 e a2 <= a1, logo a3 <= a1
    Escreval("menor altura é ",a3:5:2)
  fimse
fimse
//---------
// Calculo da média das mulheres e quantidade de homens
qf <- 0
qm <- 0
soma <- 0
se(s1 = "F") entao
  soma <- soma + a1
  qf <- qf + 1
senao
  //falhou o teste, logo é homem
  qm <- qm + 1
fimse
se(s2 = "F") entao
  soma <- soma + a2
  qf <- qf + 1
senao
  qm <- qm + 1
fimse
se(s3 = "F") entao
  soma <- soma + a3
  qf <- qf + 1
senao
  qm <- qm + 1
fimse
media <- soma / qf
escreval("Qtdd de mulheres: ",qf," media altura: ",media:5:2)
//dados dos homens
escreval("Qtdd de Homens: ",qm," porcentagem de homens: ",qm/3*100:5:2," %")
fimalgoritmo