marlonbrito 0 Denunciar post Postado Março 20, 2015 pessoal estou criando um algorítimo para a conclusão da materia de introdução a programação só que estou na minha primeira tela e ja estou confuso :( esta dando erro no fim algorítimo. estou esquecendo algo? segue código portugol do visualg algoritmo "semnome" // Função : // Autor : // Data : 07/03/2015 // Seção de Declarações var nome,data,se xo,civil:vetor [0..49] de caractere filho:vetor [0..49] de inteiro cpf:vetor [0..49] de real resp:caractere func,i:inteiro cpfcliente:real inicio // Seção de Comandos enquanto (func <> 9) faca ESCREVAL ("----------------------------------------------------------------------------------") ESCREVAL ("| MENU |") ESCREVAL ("----------------------------------------------------------------------------------") ESCREVAL ("| 1. Gerenciar Cliente |") ESCREVAL ("| 2. Gerar Relatório |") ESCREVAL ("| 9. SAIR |") ESCREVAL ("| |") ESCREVAL ("----------------------------------------------------------------------------------") ESCREVAL(" ") ESCREVA("DIGITE A OPÇÃO DESEJADA: ") leia(func) escolha func caso 1 LIMPATELA ESCREVAL ("----------------------------------------------------------------------------------") ESCREVAL ("| MENU |") ESCREVAL ("----------------------------------------------------------------------------------") ESCREVAL ("| 1. Inserir Dados do Cliente |") ESCREVAL ("| 2. Alterar Dados do Cliente |") ESCREVAL ("| 3. excluir cliente |") ESCREVAL ("| |") ESCREVAL ("----------------------------------------------------------------------------------") ESCREVAL(" ") ESCREVA("DIGITE A OPÇÃO DESEJADA: ") leia(func) escolha(func) caso 1 para i de 0 ate 49 faca repita //cadastra nomes se nome[i]<>"" entao i<-i+1 fimse ate nome[i]="" fimrepita escreval("digite o nome") leia (nome[i]) //cadastra ---o repita se se xo[i]<>"" entao i<-i+1 fimse ate se xo[i]="" //forum não permite nome ---o kkk fimrepita escreval("digite o se xo Masculino ou Feminino") leia (se xo[i]) //cadastra data de nascimento repita se data[i]<>"" entao i<-i+1 fimse ate data[i]="" fimrepita escreval("digite a data de nascimento do cliente no formato XX/XX/XXX") escreval("(adicionar barra para separar a o dia mes e ano)") leia (data[i]) //cadastra estado civil repita se civil[i]<>"" entao i<-i+1 fimse ate civil[i]="" fimrepita escreval("digite o estado civil") escreval("(casado(a),solteiro(a),viúvo(a),divorciado(a))") leia (civil[i]) //cadastra CPF repita se cpf[i]<>0 entao i<-i+1 fimse ate cpf[i]=0 fimrepita escreval("digite o CPF do cliente sem pontos ou tracos") leia (cpf[i]) //cadastra numero de filhos repita se filho[i]<>0 entao i<-i+1 fimse ate filho[i]=0 fimrepita escreval("digite a quantidade de filhos do cliente") leia (filho[i]) //depois de preencher o ultimo dado da erro fimrepita fimpara caso 2 repita escreval("digite o cpf do cliente que deseja alterar:") leia(cpfcliente) repita para i de 0 ate 49 faca se cpfcliente= cpf[i] entao escreval("cliente encontrado no slot: ",i) ate cpfcliente=cpf[i] fimpara fimrepita caso 3 caso 2 limpatela ESCREVAL ("----------------------------------------------------------------------------------") ESCREVAL ("| MENU |") ESCREVAL ("----------------------------------------------------------------------------------") ESCREVAL ("| 1. Relatório de Clientes Aniversariantes de um mês (informado pelo usuário) |") ESCREVAL ("| 2. Relatório de Clientes pela faixa etária |") ESCREVAL ("| 3. Relatório de Clientes pelo ---o e idade (informado pelo usuário) |") ESCREVAL ("| 4. Relatório de Clientes pelo Estado Civil e ---o |") ESCREVAL ("| 5. Relatório de Clientes pelo Estado Civil e Quantidade de Filhos |") ESCREVAL ("| 6. Relatório Geral de todos os Clientes |") ESCREVAL ("| |") ESCREVAL ("----------------------------------------------------------------------------------") ESCREVAL(" ") ESCREVA("DIGITE A OPÇÃO DESEJADA: ") leia(func) escolha (func) caso 1 caso 2 limpatela ESCREVAL ("----------------------------------------------------------------------------------") ESCREVAL ("| MENU |") ESCREVAL ("----------------------------------------------------------------------------------") ESCREVAL ("| 1. 18~25 – Jovens |") ESCREVAL ("| 2. 26~55 – Adultos |") ESCREVAL ("| 3. 56+ - Idosos |") ESCREVAL ("| |") ESCREVAL ("----------------------------------------------------------------------------------") ESCREVAL(" ") ESCREVA("DIGITE A OPÇÃO DESEJADA: ") leia(func) escolha(func) escolha caso 1 caso 2 caso 3 caso 3 caso 4 caso 5 caso 6 fimescolha caso 9 escreval(" OBRIGADO POR UTILIZAR NOSSO SISTEMA ") outrocaso limpatela escreval("OPÇÃO INVALIDA") ESCREVAL("DIGTE UM NUMERO DE 1 A 4 OU 5 PARA SAIR") fimescolha fimenquanto fimalgoritmo Compartilhar este post Link para o post Compartilhar em outros sites
Beraldo 864 Denunciar post Postado Março 20, 2015 esta dando erro no fim algorítimo que erro? cole a mensagem de erro aqui Compartilhar este post Link para o post Compartilhar em outros sites
marlonbrito 0 Denunciar post Postado Março 21, 2015 que erro? cole a mensagem de erro aqui que erro? cole a mensagem de erro aqui esperava encontrar fimalgoritimoO fim do algoritmo foi encontrado inesperadamente. alguma luz amigos? :kiss: kk Compartilhar este post Link para o post Compartilhar em outros sites
KhaosDoctor 242 Denunciar post Postado Março 23, 2015 Isso ai é algo que você não fechou ou está fechado errado... If, else ou coisa do tipo Compartilhar este post Link para o post Compartilhar em outros sites
marlonbrito 0 Denunciar post Postado Março 23, 2015 obigado pela ajuda pessoal eu desfiz e refiz tudo agora deu certo obrigado mesmo assim :) Compartilhar este post Link para o post Compartilhar em outros sites