escolhendo pessoas

[Ueibson Santos]

Tou tendo problema com guarda na caixa er pra grava a quantidade de pessoas co certa idade mais so fica sempre a ultima

 

 

 

 

algoritmo "semnome"
var
   Sexo,C,A,M,F,Homens,h:Caractere
   Idade,B,B1:Inteiro
inicio
      C <- "S"
      Repita
            Escreva("Qual o sexo? [M/F] ")
            Leia(Sexo)
            Escreva("Qual a idade? ")
            Leia(Idade)
            EscrevaL("Qual a cor do cabelo")
            EscrevaL("-_-_-_-_-_-_-_-_-_-_")
            EscrevaL("|[1]Preto|")
            EscrevaL("|[2]Loiro|")
            EscrevaL("|[3]Ruivo|")
            EscrevaL("|[4]Castanho|")
            Leia(A)
            Escolha A
                    Caso "1"
                         EscrevaL("Quer continuar? [S/N]")
                         Leia(C)
                    Caso "2"
                         EscrevaL("Quer continuar? [S/N]")
                         Leia(C)
                    Caso "3"
                         EscrevaL("Quer continuar? [S/N]")
                         Leia(C)
                    Caso "4"
                         EscrevaL("Quer continuar? [S/N]")
                         Leia(C)
            FimEscolha
            LimpaTela
      Ate C = "N"
      EscrevaL("==============")
      EscrevaL("RESUTADO FINAL")
      EscrevaL("==============")
       Se (Idade > 18)então
         B <- B + 1
         Escolha Sexo
                 Caso "M"
                      M <- "CASTANHOS"
                        Escolha A
                                Caso "4"
                                EscrevaL("TOTAL DE HOMENS COM MAIS DE 18 ANOS DE CABELOS ",M," É ",B)
                                FimEscolha
                      FimEscolha
                 FimSe
           Se (Idade >= 25) e (Idade <= 30)então
              B1 <- B1 + 1
              Escolha Sexo
                          Caso "F"
                          F <- "LOIRIOS"
                          Escolha A
                          Caso "2"
                               EscrevaL("TOTAL DE MULHERES ENTRE 25 E 30 ANOS DE CABELOS ",F," É ",B1)
                               FimEscolha
                          FimEscolha

                      FimSe

fimalgoritmo
 

[Smoly933]

olá eu sou novato, porém com base no seu codigo eu consegui formular corretamente

algoritmo "escolhendoPessoas"

var
Sexo,C,A, M,F : caractere
Idade,B,B1 : Inteiro
inicio
  C <- "S"
  B<- 0
  B1 <- 0
  Repita
            Escreva("Qual o sexo? [M/F] ")
            Leia(Sexo)
            Escreva("Qual a idade? ")
            Leia(Idade)
            EscrevaL("Qual a cor do cabelo")
            EscrevaL("-_-_-_-_-_-_-_-_-_-_")
            EscrevaL("|[1]Preto|")
            EscrevaL("|[2]Loiro|")
            EscrevaL("|[3]Ruivo|")
            EscrevaL("|[4]Castanho|")
            Leia(A)
            Escolha A
                    Caso "1"
                         EscrevaL("Quer continuar? [S/N]")
                         Leia(C)
                    Caso "2"
                         Se Sexo = "F" e(idade >=25) e (idade <=30) então
                         B1 <- B1 + 1
                         FimSe
                         EscrevaL("Quer continuar? [S/N]")
                         Leia(C)
                    Caso "3"
                         EscrevaL("Quer continuar? [S/N]")
                         Leia(C)
                    Caso "4"
                         Se Sexo = "M" e (Idade > 18) então
                         B <- B+ 1
                         FimSe
                         EscrevaL("Quer continuar? [S/N]")
                         Leia(C)
            FimEscolha
            LimpaTela
     Ate C = "N"
      EscrevaL("==============")
      EscrevaL("RESUTADO FINAL")
      EscrevaL("==============")
              EscrevaL ("O total de Homens com mais de 18 anos de cabelo castanho é : " , B )
              EscrevaL ("O total de Mulheres entre 25 e 30 anos de cabelos loiros é : ", B1 )

fimalgoritmo