Exercicio em VisuAlg

[victorh.marques]

Bom dia, eu estou tentando fazer este exercicio:

eu escrevi este algoritimo:

var
  x,i,qnt_A,mat,soma_A,soma_P: inteiro
  turma,P_A: caractere
  per_A: real
inicio
// Seção de Comandos
   para i de 1 ate 10 faca
        escreva ("Informe qual é a turma : ")
        leia (turma)
        escreva ("Informe a quantidade de alunos : ")
        leia (qnt_A)

                    para x de 1 ate qnt_A faca
                         escreva ("Informe a matricula do aluno : ")
                         leia (mat)
                         escreva ("O aluno está P/A : ")
                         leia (P_A)
                              se P_A <> "P" então
                                 soma_A <- soma_A + 1
                                 per_A <- (100 * soma_A)/qnt_A
                              senao
                                   soma_P <- soma_P + 1
                              fimse
                    fimpara

        se turma = "A" então
           escreval (per_A,"% dos alunos estão ausêntes na turma A !")
        senao
             se turma = "B" então
                escreval (per_A,"% dos alunos estão ausêntes na turma B !")
             senao
                  se turma = "C" então
                     escreval (per_A,"% dos alunos estão ausêntes na turma C !")
                  senao
                       se turma = "D" então
                          escreval (per_A,"% dos alunos estão ausêntes na turma D !")
                       senao
                            se turma = "E" então
                               escreval (per_A,"% dos alunos estão ausêntes na turma E !")
                            senao
                                 se turma = "F" então
                                    escreval (per_A,"% dos alunos estão ausêntes na turma F !")
                                 senao
                                      se turma = "G" então
                                         escreval (per_A,"% dos alunos estão ausêntes na turma G !")
                                      senao
                                           se turma = "H" então
                                              escreval (per_A,"% dos alunos estão ausêntes na turma H !")
                                           senao
                                                se turma = "I" então
                                                   escreval (per_A,"% dos alunos estão ausêntes na turma I !")
                                                senao
                                                     se turma = "J" então
                                                        escreval (per_A,"% dos alunos estão ausêntes na turma J !")
                                                     fimse
                                                fimse
                                           fimse
                                      fimse
                                 fimse
                            fimse
                       fimse
                  fimse
             fimse
        fimse
   fimpara
fimalgoritmo

o que está ocorrendo, é que quando o algoritimo vai dar o percentual de cada turma, os percentuais estão saindo um somado ao outro.

não esta saindo o percentual de cada turma em particular

se alguem puder ajudar obrigado !

[Heitor.V]

Neste algoritmo eu creio que o erro acontece porque você nunca mandou o valor de soma_A retornar a 0. Adicionar a linha soma_A <- 0 logo após o segundo para resolve.

Agora me diga uma coisa para que você esta usando o variável soma_P, para nada, então exclua ela.

Outra coisa use o caso positivo no se, pois facilita a leitura

A conta para checar o percentual de alunos que faltaram pode ser feita fora do para, assim o código não precisa passar todas vezes por ela.

exemplo:

para x de 1 ate qnt_A faca
     escreva ("Informe a matricula do aluno : ")
     leia (mat)
     escreva ("O aluno está P/A : ")
     leia (P_A)
     se P_A == "a" então
          soma_A <- soma_A + 1
     fimse
fimpara
per_A <- (100 * soma_A)/qnt_A
soma_A <- 0

Espero ter ajudado, qualquer duvidas poste aqui.

[victorh.marques]

consegui valeu brother !