Pesquisa de Saneamento Básico no VisuAlg

algoritmo "1"

var

total_sem_agua, total_com_agua, total_com_sep_lixo: inteiro

total_sem_sep_lixo, total_homens, total_mulheres, total_analfabetos: inteiro

total_inicial, total_fundamental, total_medio, total_superior: inteiro

media_analfabetos, media_fundamental, media_medio, media_superior, media_posg,media_outros, media_inicial:real

total_posg, total_outros: inteiro

media_salario, media_moradores, percentual_homens, percentual_mulheres: real

sexo, coleta_agua, separa_lixo, nova_pesquisa: caractere

nro_moradores, escolaridade: inteiro

total_pessoas,renda, soma_rendas: real

checagem: inteiro

inicio

// Seção de Comandos

total_pessoas <- 0

total_sem_agua <- 0

total_com_agua <- 0

total_com_sep_lixo <- 0

total_sem_sep_lixo <- 0

total_homens <- 0

total_mulheres <- 0

total_analfabetos <- 0

total_inicial <- 0

total_fundamental <- 0

total_medio <- 0

total_superior <- 0

total_posg <- 0

total_outros <- 0

total_inicial <-0

media_analfabetos <- 0

media_fundamental<- 0

media_medio <- 0

media_superior <- 0

media_posg <- 0

media_outros<- 0

media_inicial<- 0

media_salario <- 0

media_moradores <- 0

percentual_homens <- 0

percentual_mulheres <- 0

//novaPesquisa <- "S"

nro_moradores <- 0

renda <- 0

soma_rendas <- 0

enquanto ( nova_pesquisa <> "N") E ( nova_pesquisa <> "n")  faca

   escreval("Inicio da pesquisa")

   total_pessoas <- total_pessoas + 1

   sexo <- "o"

   enquanto  (sexo <> "F") E(sexo <> "M") E (sexo <> "f") E(sexo <> "m")   faca

      escreval ("Digite seu sexo: F para feminino e M para masculino")

      leia(sexo)

      escolha sexo

      caso "f"

         total_mulheres <- total_mulheres + 1

      caso "F"

         total_mulheres <- total_mulheres + 1

      caso "m"

         total_homens <- total_homens + 1

      caso "M"

         total_homens <- total_homens + 1

      outrocaso

         escreval ("Valor digitado incorretamente digite novamente")

      fimescolha

   fimenquanto

   escreval ("Quantos moradores ha na residencia")

   leia(nro_moradores)

   escreval ("Qual a renda familiar")

   leia(renda)

   soma_rendas <- soma_rendas + renda

   enquanto  (separa_lixo <> "S") e (separa_lixo <> "N") e (separa_lixo <> "s") e (separa_lixo <> "n")   faca

      escreval ("Os moradores da residência possuem separacao do lixo? S para sim e N para nao")

      leia(separa_lixo)

      escolha  separa_lixo

      caso "S"

         total_com_sep_lixo <- total_com_sep_lixo + 1

      caso "N"

         total_sem_sep_lixo <- total_sem_sep_lixo + 1

      caso "s"

         total_com_sep_lixo <- total_com_sep_lixo + 1

      caso "n"

         total_sem_sep_lixo <- total_sem_sep_lixo + 1

      outrocaso

         escreval ("Valor digitado incorretamente digite novamente")

      fimescolha

   fimenquanto

   coleta_agua <- "A"

   enquanto  (coleta_agua <> "S") e (coleta_agua <> "N") e (coleta_agua <> "s") e (coleta_agua <> "n")   faca

      escreval ("Os moradores da residência possuem coleta de água da chuva? S para sim e N para nao")

      leia(coleta_agua)

      escolha  coleta_agua

      caso "S"

         total_com_agua <- total_com_agua + 1

      caso "N"

         total_sem_agua <- total_sem_agua + 1

      caso "s"

         total_com_agua <- total_com_agua + 1

      caso "n"

         total_sem_agua <- total_sem_agua + 1

      outrocaso

         escreval ("Valor digitado incorretamente digite novamente")

      fimescolha

   fimenquanto

   escolaridade <- 0

   enquanto (escolaridade <> 1) e (escolaridade <> 2)e (escolaridade <> 3) e (escolaridade <> 4)e (escolaridade <> 5) e (escolaridade <> 6) e (escolaridade <> 7) faca

      escreval ("Qual a escolaridade da pessoa que recebe o maior salário da casa? As respostas podem ser :1- Analfabeto  2- Serie inicial  3- Ensino Fundamental   4- Ensino Médio  5 – Ensino Superior   6- Pos Graduação 7 - outros")

...