VisualG Exercício de repetição determinada

Kakahh · 27 de maio de 2018

Uma loja de Calçados deseja fazer uma estimativa para saber quais calçados vendem mais entre femininos e masculinos. Considerando 50 vendas, leia o valor do calçado vendido e se é feminino (F) ou masculino (M). Após as vendas mostre qual o gênero de calçado mais vendido e o valor total de vendas dos calçados masculinos e femininos.

var
   f,m,genero,mais_vend:caracter
    total_fem,total_masc, x,valor:inteiro
inicio
      escreval("Veja qual o gênero do calçado mais vendido e o valor total das vendas de ambos")
      acm<-0
      para x de 1 ate 5 passo 1 faca
           escreva("Informe o valor do calçado:")
           leia(valor)
           escreval("Informe o gênero do calçado:")
           escreval("Digite F para feminino")
           escreval("Digite M para masculino")
           escreva("->")
           leia(genero)
           se (f > m) então
            mais_vend<- f
           fimse
           se(m > f ) então
           mais_vend<- m
           fimse
      fimpara
      escreva("O genero mais vendido é:" ,mais_vend)
      
fimalgoritmo

Estou tendo dificuldade em conseguir mostrar qual o gênero mais vendido, fiz dessa forma mas não funcionou. O valor total das vendas de cada gênero também não sei como colocar, se alguém pode me mostrar o caminho, o que estou errado eu agradeço.

devair1010 · 28 de maio de 2018

@Kakahh o erro é por que você está comparando variáveis do tipo caractere se uma é maior que a outra , e assim só funciona com inteiro , e também nem precisa ver se é m é maior que f , pois só precisa saber a quantidade de cada hum , então seu código com algumas modificações ficaria assim :

Algoritmo "calçados"
var
  genero,mais_vend                  : caracter
  f,m,total_fem,total_masc,valor,x  : inteiro
  v_c_masc,v_c_fem                  : inteiro
inicio
  escreval("Veja qual o gênero do calçado mais vendido e o valor total das vendas de ambos")
  para x de 1 ate 5 passo 1 faca
    escreva("Informe o valor do calçado:")
    escreva("-> ")
    leia(valor)
    escreval("Informe o gênero do calçado:   F / M ")
    escreva("-> ")
    leia(genero)
    se (genero = "m") ENTÃO
      m := m + 1
      v_c_masc := v_c_masc + valor
    senao
      se genero = "f" ENTÃO
        f := f + 1
        v_c_fem := v_c_fem + valor
      fimse
    fimse
  fimpara
  se m > f ENTÃO
    mais_vend := "Masculino"
  senao
    mais_vend := "Feminino"
  fimse
  escreval("O genero mais vendido é:" ,mais_vend)
  escreval("O Total Das Vendas De Calçados Masculinos é ",v_c_masc)
  escreval("O Total Das Vendas De Calçados Femininos é " ,v_c_fem )
fimalgoritmo