Paulo Koreia

Declarei "i" rodou, porém ele vai pedindo em sequencia os 50 cadastros e era para quando terminar o primeiro cadastro voltar pra tela principal para ver qual o passo seguinte do usuário. Algoritmo "Cadastro_clientes" Var cpf: vetor [1..50] de inteiro nome: vetor [1..50] de caractere end: vetor [1..50] de caractere bai: vetor [1..50] de caractere cep: vetor [1..50] de inteiro cid: vetor [1..50] de caractere est: vetor [1..50] de caractere tel: vetor [1..50] de inteiro cel: vetor [1..50] de inteiro codigo, cpfpesq: inteiro encontrado, inserir: logico procedimento principal() Inicio repita escreval ("") escreval ("Menu Principal") escreval ("--------------") escreval ("0 - Sair") escreval ("1 - Inserir Novo Cadastro") escreval ("2 - Imprimir dados do cliente") escreval ("3 - Imprimir dados de todos clientes") escreva ("Digite uma Opcao: ") leia (codigo) limpatela ate (codigo=1) ou (codigo=2) ou (codigo=3) escolha (codigo) caso 1 cadastro() caso 2 consulta_cpf() caso 3 consulta_todos() fimescolha fimprocedimento //---------------------- CADASTRO ---------------------- procedimento cadastro() var i:inteiro inicio limpatela escreval("--------------------- CADASTRO ---------------------") para i de 1 ate 50 faca escreva ("Digite o CPF: ") leia (cpf[i]) escreva ("Digite o Nome: ") leia (nome[i]) escreva ("Digite o Endereço: ") leia (end[i]) escreva ("Digite o Bairro: ") leia (bai[i]) escreva ("Digite o CEP: ") leia (cep[i]) escreva ("Digite a Cidade: ") leia (cid[i]) escreva ("Digite o Estado: ") leia (est[i]) escreva ("Digite o Telefone: ") leia (tel[i]) escreva ("Digite o Celular: ") leia (cel[i]) fimpara fimprocedimento //-------------------------- CONSULTA PELO CPF --------------------- procedimento consulta_cpf() inicio limpatela escreval("--------------------- CONSULTA ---------------------") escreva ("Digite um CPF para Consulta : ") leia (cpfpesq) para i de 1 ate 50 faca se (cpf[i]) = (cpfpesq) então escreval ("---------------------- CONSULTA PELO CPF -------------------") escreval ("CPF: ", cpf[i]) escreval ("Nome: ", nome[i]) escreval ("Endereço: ", end[i]) escreval ("Bairro: ", bai[i]) escreval ("CEP: ", cep[i]) escreval ("Cidade: ", cid[i]) escreval ("Estado: ", est[i]) escreval ("Telefone: ", tel[i]) escreval ("Celular: ", cel[i]) encontrado<-verdadeiro fimse fimpara se encontrado=falso então escreval ("------------ Nome informado não encontrado! -------------") fimse principal() fimprocedimento //-------------------------- CONSULTA TODOS --------------------- procedimento consulta_todos() inicio limpatela escreval("--------------------- CONSULTA ---------------------") para i de 1 ate 50 faca escreval ("---------------------- CONSULTA TODOS -------------------") escreval ("CPF: ", cpf[i]) escreval ("Nome: ", nome[i]) escreval ("Endereço: ", end[i]) escreval ("Bairro: ", bai[i]) escreval ("CEP: ", cep[i]) escreval ("Cidade: ", cid[i]) escreval ("Estado: ", est[i]) escreval ("Telefone: ", tel[i]) escreval ("Celular: ", cel[i]) fimpara fimprocedimento inicio principal() fimalgoritmo

O erro está na linha 44 "para i de 1 ate 50 faca" .

Bom dia! Retirei o que você falou, mais ainda não roda o algoritmo. Algoritmo "Cadastro_clientes" Var cpf: vetor [1..50] de inteiro nome: vetor [1..50] de caractere end: vetor [1..50] de caractere bai: vetor [1..50] de caractere cep: vetor [1..50] de inteiro cid: vetor [1..50] de caractere est: vetor [1..50] de caractere tel: vetor [1..50] de inteiro cel: vetor [1..50] de inteiro codigo, cpfpesq: inteiro encontrado, inserir: logico procedimento principal() Inicio repita escreval ("") escreval ("Menu Principal") escreval ("--------------") escreval ("0 - Sair") escreval ("1 - Inserir Novo Cadastro") escreval ("2 - Imprimir dados do cliente") escreval ("3 - Imprimir dados de todos clientes") escreva ("Digite uma Opcao: ") leia (codigo) limpatela ate (codigo=1) ou (codigo=2) ou (codigo=3) escolha (codigo) caso 1 cadastro() caso 2 consulta_cpf() caso 3 consulta_todos() fimescolha fimprocedimento //---------------------- CADASTRO ---------------------- procedimento cadastro() inicio limpatela escreval("--------------------- CADASTRO ---------------------") para i de 1 ate 50 faca escreva ("Digite o CPF: ") leia (cpf[i]) escreva ("Digite o Nome: ") leia (nome[i]) escreva ("Digite o Endereço: ") leia (end[i]) escreva ("Digite o Bairro: ") leia (bai[i]) escreva ("Digite o CEP: ") leia (cep[i]) escreva ("Digite a Cidade: ") leia (cid[i]) escreva ("Digite o Estado: ") leia (est[i]) escreva ("Digite o Telefone: ") leia (tel[i]) escreva ("Digite o Celular: ") leia (cel[i]) fimpara fimprocedimento //-------------------------- CONSULTA PELO CPF --------------------- procedimento consulta_cpf() inicio limpatela escreval("--------------------- CONSULTA ---------------------") escreva ("Digite um CPF para Consulta : ") leia (cpfpesq) para i de 1 ate 50 faca se (cpf[i]) = (cpfpesq) então escreval ("---------------------- CONSULTA PELO CPF -------------------") escreval ("CPF: ", cpf[i]) escreval ("Nome: ", nome[i]) escreval ("Endereço: ", end[i]) escreval ("Bairro: ", bai[i]) escreval ("CEP: ", cep[i]) escreval ("Cidade: ", cid[i]) escreval ("Estado: ", est[i]) escreval ("Telefone: ", tel[i]) escreval ("Celular: ", cel[i]) encontrado<-verdadeiro fimse fimpara se encontrado=falso então escreval ("------------ Nome informado não encontrado! -------------") fimse principal() fimprocedimento //-------------------------- CONSULTA TODOS --------------------- procedimento consulta_todos() inicio limpatela escreval("--------------------- CONSULTA ---------------------") para i de 1 ate 50 faca escreval ("---------------------- CONSULTA TODOS -------------------") escreval ("CPF: ", cpf[i]) escreval ("Nome: ", nome[i]) escreval ("Endereço: ", end[i]) escreval ("Bairro: ", bai[i]) escreval ("CEP: ", cep[i]) escreval ("Cidade: ", cid[i]) escreval ("Estado: ", est[i]) escreval ("Telefone: ", tel[i]) escreval ("Celular: ", cel[i]) fimpara fimprocedimento inicio principal() fimalgoritmo Fimalgoritmo

Boa noite, sou iniciante estou tentando fazer mais não estou conseguindo. Segue abaixo como estou tentando segundo algumas pesquisas feitas pela internet. Algoritmo "Cadastro_clientes" Var cpf: vetor [1..50] de inteiro nome: vetor [1..50] de caractere end: vetor [1..50] de caractere bai: vetor [1..50] de caractere cep: vetor [1..50] de inteiro cid: vetor [1..50] de caractere est: vetor [1..50] de caractere tel: vetor [1..50] de inteiro cel: vetor [1..50] de inteiro codigo, cpfpesq: inteiro encontrado, inserir: logico procedimento principal() Inicio repita escreval ("") escreval ("Menu Principal") escreval ("--------------") escreval ("0 - Sair") escreval ("1 - Inserir Novo Cadastro") escreval ("2 - Imprimir dados do cliente") escreval ("3 - Imprimir dados de todos clientes") escreva ("Digite uma Opcao: ") leia (codigo) limpatela ate (codigo=0) ou (codigo=1) ou (codigo=2) ou (codigo=3) escolha (codigo) caso 0 interrompa caso 1 cadastro() caso 2 consulta_cpf() caso 3 consulta_todos() caso 4 principal() fimescolha fimprocedimento //---------------------- CADASTRO ---------------------- procedimento cadastro() inicio limpatela escreval("--------------------- CADASTRO ---------------------") para i de 1 ate 50 faca escreva ("Digite o CPF: ") leia (cpf[i]) escreva ("Digite o Nome: ") leia (nome[i]) escreva ("Digite o Endereço: ") leia (end[i]) escreva ("Digite o Bairro: ") leia (bai[i]) escreva ("Digite o CEP: ") leia (cep[i]) escreva ("Digite a Cidade: ") leia (cid[i]) escreva ("Digite o Estado: ") leia (est[i]) escreva ("Digite o Telefone: ") leia (tel[i]) escreva ("Digite o Celular: ") leia (cel[i]) fimpara principal () fimprocedimento //-------------------------- CONSULTA PELO CPF --------------------- procedimento consulta_cpf() inicio limpatela escreval("--------------------- CONSULTA ---------------------") escreva ("Digite um CPF para Consulta : ") leia (cpfpesq) para i de 1 ate 50 faca se (cpf) = (cpfpesq) então escreval ("---------------------- CONSULTA PELO CPF -------------------") escreval ("CPF: ", cpf[i]) escreval ("Nome: ", nome[i]) escreval ("Endereço: ", end[i]) escreval ("Bairro: ", bai[i]) escreval ("CEP: ", cep[i]) escreval ("Cidade: ", cid[i]) escreval ("Estado: ", est[i]) escreval ("Telefone: ", tel[i]) escreval ("Celular: ", cel[i]) encontrado<-verdadeiro fimse fimpara se encontrado=falso então escreval ("------------ Nome informado não encontrado! -------------") fimse principal() fimprocedimento //-------------------------- CONSULTA TODOS --------------------- procedimento consulta_cpf() inicio limpatela escreval("--------------------- CONSULTA ---------------------") para i de 1 ate 50 faca escreval ("---------------------- CONSULTA PELO CPF -------------------") escreval ("CPF: ", cpf[i]) escreval ("Nome: ", nome[i]) escreval ("Endereço: ", endv) escreval ("Bairro: ", bai[i]) escreval ("CEP: ", cep[i]) escreval ("Cidade: ", cid[i]) escreval ("Estado: ", est[i]) escreval ("Telefone: ", tel[i]) escreval ("Celular: ", cel[i]) fimpara principal() fimprocedimento inicio principal() fimalgoritmo Fimalgoritmo

Boa noite, alguém poderia me ajudar a desenvolver esse algoritmo? O algoritmo deve possuir um menu que permita o usuário interagir com ele e escolher qual ação executar em cada momento: Inserir novo cliente, imprimir os dados de apenas um cliente e imprimir os dados de todos os clientes; - Sempre que a opção escolhida for inserir novo cliente, o programa deve ler os seguintes dados: CPF, nome, endereço, bairro, cep, cidade, estado, telefone e celular; (DICA: todos os campos serão do tipo caractere e vocês devem criar um vetor para cada campo desses acima citado.) - O programa deve ter o limite de inserção de 50 clientes apenas, caso já tenha inserido os 50 clientes, sempre que pedir para adicionar mais um, deve ser informado ao usuário que a base de dados já está cheia; - Sempre que pedir para imprimir os dados de apenas um cliente, o programa deve pedir que seja digitado o número do CPF, daí com esse número digitado, o sistema deverá buscar nos seus dados o registro que tiver aquele número de CPF e imprimir na tela todos os dados daquele usuário, caso o usuário não seja encontrado, escrever na tela que o usuário não existe na base de dados; - Sempre que pedir para imprimir os dados de todos os clientes, o programa deve escrever na tela os dados de todos os clientes já cadastrados, caso não exista nenhum cliente, o programa deve informar que a base de dados está vazia.