Exercício 30

Algoritmo "semnome"
// Disciplina  :  [Linguagem e Lógica de Programação]
// Professor   : Antonio Carlos Nicolodi
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 13/06/2018
Var
   // Seção de Declarações das variáveis

   nome: caracter
   sexo: caracter
   entradas: inteiro
   contador: inteiro
   homens: inteiro
   mulheres: inteiro
   idade: inteiro
   totalIdades: inteiro
   media: real

funcao somaHomens (valor: inteiro): inteiro
inicio
   retorne homens + valor
fimfuncao

funcao somaMulheres (valor: inteiro): inteiro
inicio
   retorne mulheres + valor
fimfuncao

procedimento calcularMedia
inicio
   media := (totalIdades / entradas)
fimprocedimento

Inicio

   escreva("Quantos nomes deseja inserir? ")
   leia(entradas)
   escreval()

   contador := 0
   enquanto (contador < entradas) faca

      escreval("Informe os dados:")
      escreva("Nome: ")
      leia(nome)

      escreva("Idade: ")
      leia(idade)

      totalIdades := totalIdades + idade

      escreva("Sexo (m = masculino / f = feminino): ")
      leia(sexo)

      se (sexo = "m") entao
         homens := somaHomens(1)
      fimse

      se (sexo = "f") entao
         mulheres := somaMulheres(1)
      fimse

      contador := contador + 1

      escreval()

   fimenquanto

   escreval("RESULTADO: ")

   escreval("Total de entradas: ", entradas)
   escreval("Total de homens: ", homens)
   escreval("Total de mulheres: ", mulheres)

   calcularMedia();
   escreval("Média das idades: ", media)

Fimalgoritmo