VisualG Como contabilizar caracteres no VisualG?

[SAUKi]

Algoritmo "Seletor de pessoas"
// 
//homens, +18,castanhos e mulheres entre 25 e 30 anos loiras
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 2/6/2022
Var
// Seção de Declarações das variáveis 

sexo,opcao:caractere
cabelo,idade:inteiro

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc... 



   repita

   escreval("=======================")
   escreval("   SELETOR DE PESSOAS  ")
   escreval("=======================")
   
   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] Castanho")
   escreval("[3] Loiro")
   escreval("[4] Ruivo")
   leia(cabelo)
   
   escolha cabelo
           caso 1
                escreva("Quer continuar? [S/N]")
                leia(opcao)
           caso 2
                escreva("Quer continuar? [S/N]")
                leia(opcao)
           caso 3
                escreva("Quer continuar? [S/N]")
                leia(opcao)
           caso 4
                escreva("Quer continuar? [S/N]")
                leia(opcao)
   fimescolha
   


   ate (opcao = "n") ou (opcao = "N")
   


Fimalgoritmo

Eu preciso fazer com que o programa, ao final, diga quantos homens de 18 anos e cabelos castanhos foi contabilizado. E também quantas mulheres entre  25 e 30 anos loiras foram contabilizadas.

 

Como eu faço isso? A variável [sexo] é caractere então eu não consigo somar [sexo <- sexo+1] pra contabilizar. Como eu resolvo isso?

[devair1010]

@Samuel G.S    use o comando  "se"  e veja qual sexo ,e se for m de masculino então soma a variável , do tipo inteiro , referente a homem 

[kgin]

@Samuel G.S Pense um pouco no problema antes de tentar implementar.

 

Algoritmo "Seletor de pessoas"

Var
   sexo,opcao:caractere
   cabelo,idade:inteiro
   q_homens_castanhos:inteiro

Inicio
   q_homens_castanhos <- 0 // Inicia a variavel
   repita
      escreval("=======================")
      escreval("   SELETOR DE PESSOAS  ")
      escreval("=======================")

      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] Castanho")
      escreval("[3] Loiro")
      escreval("[4] Ruivo")
      leia(cabelo)

      escolha cabelo
      caso 2
         se (sexo = "M") ou (sexo = "m") entao
            se idade > 18 entao
               q_homens_castanhos <- q_homens_castanhos+1
            fimSe
         fimSe
      fimescolha
      escreva("Quer continuar? [S/N]")
      leia(opcao)

   ate (opcao = "n") ou (opcao = "N")

   escreval("A quantidade de homens acima de 18 com o cabelo castanho e:", q_homens_castanhos)
Fimalgoritmo

 

[SAUKi]

@kgin Consegui perceber o problema, muito obrigado.