APS 3 EX 4

algoritmo "APS 3 EX 4"
// Função : Calculos
// Autor : Gilmar Junior dos Passos
// Data : 07/04/2013
// Seção de Declarações
var
codtime, contador: inteiro

peso, altura, idade, mediaaltura: real

time1, time2, time3, time4, time5: real

idade1, idade2, idade3, idade4, idade5: real //var da idade menores de 18

idadegc1, idadegc2, idadegc3, idadegc4, idadegc5: inteiro //contador idade

idadeg1, idadeg2, idadeg3, idadeg4, idadeg5: real //idade geral por time

peso1, peso2, peso3, peso4, peso5, pesof: real // controladora de quantos estao acima do peso

alturag1c, alturag2c, alturag3c, alturag4c, alturag5c: real

alturag1, alturag2, alturag3, alturag4, alturag5:real

inicio
// Seção de Comandos
contador <- 0
para contador de 1 ate 3 faca

escreval ("Entre com a idade do Jogador:")
leia (idade)
escreval ("Entre com o Peso em KG do jogador:")
leia (peso)
escreval ("Entre com a altura do jogador")
leia (altura)
escreval ("Entre com o codigo do TIME")
escreval ("1=AZUL 2=AMARELO 3=VERMELHO 4=CINZA 5=VERDE")
leia (codtime)
escolha (codtime)
caso 1

se idade < (18) entao           // se idade for menor que 18 entao ele grava na variavel idade1 o valor de 1
idade1 <- (idade1 + 1 )
fimse

idadegc1 <- (idadegc1 + 1)      //chama a variavel de contador e soma ela + 1
idadeg1 <- (idadeg1 + idade)    //soma a idade no loop
idadeg1 <- (idadeg1 / idadegc1) //calcula a media e salva na variavel a media

alturag1c <- (alturag1c +1)        //chama a variavel de contador e soma ela + 1
alturag1 <- (alturag1 + altura)    //soma as alturas no loop


se peso > (80) entao   //se o peso for maior que 80 entao
peso1 <- (peso1 + 1)   //ele salva +1 na variavel de peso
fimse

caso 2

se idade < (18) entao           // se idade for menor que 18 entao ele grava na variavel idade2 o valor de 1
idade2 <- (idade2 + 1 )
fimse

idadegc2 <- (idadegc2 + 1)      //chama a variavel de contador e soma ela + 1
idadeg2 <- (idadeg2 + idade)    //soma a idade no loop
idadeg2 <- (idadeg2 / idadegc2) //calcula a media e salva na variavel a media

alturag2c <- (alturag2c +1)        //chama a variavel de contador e soma ela + 1
alturag2 <- (alturag2 + altura)    //soma as alturas no loop


se peso > (80) entao   //se o peso for maior que 80 entao
peso2 <- (peso2 + 1)   //ele salva +2 na variavel de peso
fimse

caso 3

se idade < (18) entao           // se idade for menor que 18 entao ele grava na variavel idade3 o valor de 1
idade3 <- (idade3 + 1 )
fimse

idadegc3 <- (idadegc3 + 1)      //chama a variavel de contador e soma ela + 1
idadeg3 <- (idadeg3 + idade)    //soma a idade no loop
idadeg3 <- (idadeg3 / idadegc3) //calcula a media e salva na variavel a media

alturag3c <- (alturag3c +1)        //chama a variavel de contador e soma ela + 1
alturag3 <- (alturag3 + altura)    //soma as alturas no loop


se peso > (80) entao   //se o peso for maior que 80 entao
peso3 <- (peso3 + 1)   //ele salva +1 na variavel de peso
fimse

caso 4

se idade < (18) entao           // se idade for menor que 18 entao ele grava na variavel idade4 o valor de 1
idade4 <- (idade4 + 1 )
fimse

idadegc4 <- (idadegc4 + 1)      //chama a variavel de contador e soma ela + 1
idadeg4 <- (idadeg4 + idade)    //soma a idade no loop
idadeg4 <- (idadeg4 / idadegc4) //calcula a media e salva na variavel a media

alturag4c <- (alturag4c +1)        //chama a variavel de contador e soma ela + 1
alturag4 <- (alturag4 + altura)    //soma as alturas no loop


se peso > (80) entao   //se o peso for maior que 80 entao
peso4 <- (peso4 + 1)   //ele salva +1 na variavel de peso
fimse

caso 5

se idade < (18) entao           // se idade for menor que 18 entao ele grava na variavel idade5 o valor de 1
idade5 <- (idade5 + 1 )
fimse

idadegc5 <- (idadegc5 + 1)      //chama a variavel de contador e soma ela + 1
idadeg5 <- (idadeg5 + idade)    //soma a idade no loop
idadeg5 <- (idadeg5 / idadegc5) //calcula a media e salva na variavel a media

alturag5c <- (alturag5c +1)        //chama a variavel de contador e soma ela + 1
alturag5 <- (alturag5 + altura)    //soma as alturas no loop


se peso > (80) entao   //se o peso for maior que 80 entao
peso5 <- (peso5 + 1)   //ele salva +1 na variavel de peso
fimse

outrocaso
   escreval ("Codigo do time invalido")
   fimalgoritmo
fimescolha
contador <- (contador + 1)
fimpara
mediaaltura <- ((alturag1 + alturag2 + alturag3 + alturag4 + alturag5) / (alturag1c + alturag2c + alturag3c + alturag4c + alturag5c))
pesof <- (((peso1 + peso2 + peso3+ peso4+ peso5) * 100 ) / contador )

escreval ("O Numero de jogadores com idade inferior a 18 é: ",(idade1 + idade2 + idade3 + idade4 + idade5),".")
escreval ("A média de jogadores por time.")
escreval ("TIME 1 AZUL ",idadeg1," anos.")
escreval ("TIME 2 AMARELO ",idadeg2," anos.")
escreval ("TIME 3 VERDE ",idadeg3," anos.")
escreval ("TIME 4 CINZA ",idadeg4," anos.")
escreval ("TIME 5 VERDE ",idadeg5," anos.")
escreval ("A média de altura do campeonato é: ",mediaaltura," cm.")
escreval ("A Percentagem de jogadores pesando mais de 80 kg é: ",pesof," %.")





fimalgoritmo