flash321

Amigo, já consegui terminar o trabalho, está funcionando perfeitamente meu algoritmo. Obg.

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