Ir para conteúdo
Fórum Script Brasil
  • 0

escolhendo pessoas


Ueibson Santos

Pergunta

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
 

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...