Exempo 9

=============================================================
Exempo 9:

A prefeitura de Rio Branco realizou uma pesquisa entre vários habitantes da cidade,
 coletando dados sobre o rendimento familiar e o número de filhos  de cada família. A prefeitura deseja saber:
 A média dos rendimentos por família;
 A média do número dos filhos;
 O percentual de famílias com rendimento igual ou superior a R$ 100,00 reais.

 =============================================================

// Seção de Declarações

var
sair,contador,somafilho,filho,contador2:inteiro
somarenda,renda:real

inicio

// Seção de Comandos

 repita

   escreva("Renda familiar: ")
   leia(renda)

// Essa instrução irá acumular a renda de todas as famílias

   somarenda<-somarenda+renda
  

// Caso a renda seja superior a R$ 100,00 então vai acumulando o número de famílias para ao final do programa ser calculado a porcentagem que representa essas famílias em relação a população.

   se(renda>=100)entao
      contador2<-contador2+1
   fimse
  

// Essa instrução irá acumular o número de filhos da população.

   escreva("Número de filhos:")
   leia(filho)
   somafilho<-somafilho+filho
 

// Controla o número de famílias entrevistadas.

   contador<-contador+1

// Instrução para deixar o programa e exibir os resultados.

   escreva("Para sair tecle 1 senão outro número: ")
   leia(sair)
  
ate(sair=1)

escreval("Média da renda da população: ",somarenda/contador)
escreval("Média de filho por família: ", somafilho/contador)
escreval("Porcentagem de famílias com renda superio ou igual a R$ 100,00: ",100*contador2/contador,"%")

fimalgoritmo

=============================================================