Como posso melhorar meu algoritmo feito em visualg

flash321 · 8 de fevereiro de 2016

Estou desenvolvendo um algoritmo no visualg, para um trabalho da faculdade, e gostaria que alguém me dissesse se posso melhorar meu algoritmo. Sou iniciante e o trabalho é muito complexo. Consiste em criar um sistema de cadastro para alunos de terminado curso e armazenar o resultado em vetores. Alguém pode me dizer se posso melhorar o algoritmo em algo. Ele parece que tem um problema quando escolho o opção 4. Ainda nao terminei, mas gostaria que alguém opinasse se estou certo fazer dessa forma.

algoritmo "semnome"

var
cadastro: vetor [1..1,1..9]  de caractere
alunos,opcao, confirmdel,php,java,delphi,arduino,pulanum,i,sexom,sexof: inteiro
cont: inteiro
nomepesq, nomedel, snomedel: caractere
encontrado, inserir: logico

procedimento principal()
inicio

repita
escreval ("Menu Principal")
escreval ("1 - Cadastrar Aluno")
escreval ("2 - Calcular a quantidade de alunos do sexo Feminino e Masculino")
escreval ("3 - Exibir o aluno mais velho e o aluno mais novo")
escreval ("4 - Exibir a quantidade de alunos por curso")
escreval ("5 - Sair")
escreva ("Digite uma Opcao: ")
leia (opcao)
limpatela
ate (opcao=1) ou (opcao=2) ou (opcao=3) ou (opcao=4) ou (opcao=5)
escolha (opcao)

caso 1
   cadastroaluno()
caso 2
   quantidadealunosporsexo()
caso 3
   consulta_nome()
caso 4
   alunosporcurso()
caso 5
   cont<-0
   interrompa

 fimescolha


fimprocedimento
//---------------------- CADASTRO ----------------------

procedimento cadastroaluno

inicio

para i de 1 ate 1 faca

    escreval("==== CADASTRO DE ALUNOS ====")

    escreva("Digite a matricula ")

    leia(cadastro[i,1])

    escreva("")

    escreval ("Digite o nome do aluno")

    leia (cadastro[i,2])

    escreval ("sexo")

    escreval ("M - masculino")

    escreval ("F - feminino")

    leia (cadastro[i,3])

    escreval ("Idade")

    leia (cadastro[i,4])

    escreval("telefone")

    leia(cadastro[i,5])

    escreval("Email:")

    leia(cadastro[i,6])

    escreval ("turno")

    escreval ("1 - manhã")

    escreval ("2 - noite")

    leia(cadastro[i,7])

    escreval ("curso")

    escreval ("1 - PHP")

    escreval ("2 - Java")

    escreval ("3 - Delphi")
    
    escreval ("4-Arduino")

    leia (cadastro[i,8])

    escreval("Tipo ( 1-Novo/ 2-Ex Aluno/ 3-Convênio)")

    leia(cadastro[i,9])
    
    
    
fimpara
principal ()
fimprocedimento

//-------------------------- CONSULTA PELO sexo ---------------------
procedimento quantidadealunosporsexo()
inicio
escreval("---- quantidade de alunos de cada sexo ")
            para i de 1 ate 1 faca
           se cadastro[i,3] = "m" então
              sexom<- sexom + 1
           fimse
                  se cadastro[i,3] = "f" então
                      sexof<- sexof + 1

                  fimse
           fimpara
Escreval("Total de Homens: ", sexom)
Escreval("Total de Mulheres: ", sexof)
principal()
fimprocedimento

procedimento alunosporcurso()
inicio

para i de 1 ate 1 faca
     se cadastro[i,8] = "1" então
        php<- php + 1
     fimse
           se cadastro[i,8] = "2" então
                 java<- java + 1
           fimse
                        se cadastro[i,8] = "3" então
                           delphi<- delphi + 1
                        fimse
                             se cadastro[i,8] = "4" então
                                arduino<-arduino + 1
                             fimse


fimpara
escreval("o total de alunos do curso de php é ",php)
escreval("o total de alunos do curso de java é ",java)
escreval("o total de alunos do curso de delphi é ",delphi)
escreval("o total de alunos do curso de arduino é ",arduino)
principal()
fimprocedimento

inicio

  principal()
fimalgoritmo