GJPassos

APS 3 EX 3

Apr 7th, 2013
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.15 KB | None | 0 0
  1. algoritmo "APS 3 EX 3"
  2. // Função :
  3. // Autor :
  4. // Data : 07/04/2013
  5. // Seção de Declarações
  6. var
  7. nome, sexo: caracter
  8. idade, contador, contadorm, contadorf: inteiro
  9. idadef, idadem, idademm, idadeff: real
  10.  
  11. inicio
  12. // Seção de Comandos
  13. para contador de 1 ate 2 faca
  14. escreval ("Entre com o nome:")
  15. leia (nome)
  16. escreval ("Entre com a idade:")
  17. leia (idade)
  18. escreval ("Entre com o Sexo M ou F")
  19. leia (sexo)
  20.  
  21. se sexo = "F" entao
  22. contadorf <- (contadorf + 1)
  23. se idade > 21 entao
  24. idadef <- (idadef + 1)
  25. fimse
  26.  
  27. idadeff <- (idadeff + idade)
  28. idadeff <- (idadeff / contadorf)
  29. fimse
  30.  
  31. se sexo = "M" entao
  32. contadorm <- (contadorm + 1)
  33. se idade > 18 entao
  34. idadem <- (idadem + 1)
  35. fimse
  36.  
  37. idademm <- (idademm + idade)
  38. idademm <- (idademm / contadorm)
  39.  
  40. fimse
  41. contador <- (contador + 1)
  42.  
  43. fimpara
  44.  
  45. escreval ("Existe ",idadef," estudantes do sexo Feminino maiores de 21 anos.")
  46. escreval ("Existe ",idadem," estudantes do sexo Masculino maiores de 18 anos.")
  47. escreval ("A média de idade dos sexo M é: ",idademm," .")
  48. escreval ("A média de idade dos sexo F é: ",idadeff," .")
  49.  
  50. fimalgoritmo
Advertisement
Add Comment
Please, Sign In to add comment