chiquin2008

bom dia pessoal meu problema e o seguinte estou criando um algoritmo de uma biblioteca virtual no visualg sou muito inciante e encontrei um erro que não consequi resolver aqui o codigo algoritmo "semnome" // Função : // Autor : // Data : 20/04/2012 // Seção de Declarações var i:inteiro op,op1,op2,op3,op4,op5:inteiro nomeadmin,voltar:literal user,livro:vetor [1..5,1..4] de literal inicio // Seção de Comandos // inicio do programa escreval ("======================================") escreval ("============== BEM VINDO =============") escreval ("================= A ==================") escreval ("========== BIBLIOTECA VIRTUAL ========") escreval ("") escreval (" como deseja se logar ? ") escreval (" 1 - Administrador ") escreval (" 2 - Usuario ") leia (op) se op=1 então escreval ("digite seu nome") leia (nomeadmin) limpatela // inicio do sistema administrador ] voltar:= "menu" enquanto voltar = "menu" faca escreval (" ========== bem vindo " ,nomeadmin, " ===============") escreval ("") escreval (" o que deseja fazer?") escreval ("") escreval ("1 - Cadastro ") escreval ("2 - Alterar ") escreval ("3 - Excluir ") escreval ("4 - Consulta ") escreval ("5 - Renovar ") escreval ("6 - Emprestimo") escreval ("7 - Reservar ") escreval ("8 - Voltar ") escreval ("9 - Sair ") leia (op1) limpatela se op1=1 então escreval (" o que deseja cadastrar?") escreval (" 1 - usuarios " ) escreval (" 2 - livros " ) leia (op2) limpatela fimse // inicio cadastro de usuarios se op2=1 então escreval ("quantos usuarios deseja cadastrar 1 a 5 ") leia (op3) limpatela fimse se op3=1 então escreval ("----Cadastro 1° Usuario-----") escreval ("Digite o nome: ") leia(user[1,1]) escreval ("Digite o cpf: ") leia (user[1,2]) escreval ("Digite o telefone: ") leia (user[1,3]) escreval ("Digite o endereco: ") leia (user[1,4]) limpatela escreval (" Para voltar ao menu digite menu ") escreval (" Para sair digite sair ") leia (voltar) limpatela fimse // fim cadastro 1 usuario se op3=2 então escreval ("----Cadastro 1° Usuario-----") escreval ("Digite o nome: ") leia(user[1,1]) escreval ("Digite o cpf: ") leia (user[1,2]) escreval ("Digite o telefone: ") leia (user[1,3]) escreval ("Digite o endereco: ") leia (user[1,4]) escreval ("") escreval ("----Cadastro 2° Usuario-----") escreval ("Digite o nome: ") leia(user[2,1]) escreval ("Digite o cpf: ") leia (user[2,2]) escreval ("Digite o telefone: ") leia (user[2,3]) escreval ("Digite o endereco: ") leia (user[2,4]) limpatela escreval (" Para voltar ao menu digite menu ") escreval (" Para sair digite sair ") leia (voltar) limpatela fimse // fim cadastro 2 usuarios se op3=3 então escreval ("----Cadastro 1° Usuario-----") escreval ("Digite o nome: ") leia(user[1,1]) escreval ("Digite o cpf: ") leia (user[1,2]) escreval ("Digite o telefone: ") leia (user[1,3]) escreval ("Digite o endereco: ") leia (user[1,4]) escreval ("") escreval ("----Cadastro 2° Usuario-----") escreval ("Digite o nome: ") leia(user[2,1]) escreval ("Digite o cpf: ") leia (user[2,2]) escreval ("Digite o telefone: ") leia (user[2,3]) escreval ("Digite o endereco: ") leia (user[2,4]) escreval ("") escreval ("----Cadastro 3° Usuario-----") escreval ("Digite o nome: ") leia(user[3,1]) escreval ("Digite o cpf: ") leia (user[3,2]) escreval ("Digite o telefone: ") leia (user[3,3]) escreval ("Digite o endereco: ") leia (user[3,4]) limpatela escreval (" Para voltar ao menu digite menu ") escreval (" Para sair digite sair ") leia (voltar) limpatela fimse //fim cadastro 3 usuarios se op3=4 então escreval ("----Cadastro 1° Usuario-----") escreval ("Digite o nome: ") leia(user[1,1]) escreval ("Digite o cpf: ") leia (user[1,2]) escreval ("Digite o telefone: ") leia (user[1,3]) escreval ("Digite o endereco: ") leia (user[1,4]) escreval ("") escreval ("----Cadastro 2° Usuario-----") escreval ("Digite o nome: ") leia(user[2,1]) escreval ("Digite o cpf: ") leia (user[2,2]) escreval ("igite o telefone: ") leia (user[2,3]) escreval ("Digite o endereco: ") leia (user[2,4]) escreval ("") escreval ("----Cadastro 3° Usuario-----") escreval ("Digite o nome: ") leia(user[3,1]) escreval ("Digite o cpf: ") leia (user[3,1]) escreval ("Digite o telefone: ") leia (user[3,2]) escreval ("Digite o endereco: ") leia (user[3,3]) escreval ("") escreval ("----Cadastro 4° Usuario-----") escreval ("Digite o nome: ") leia(user[4,1]) escreval ("Digite o cpf: ") leia (user[4,2]) escreval ("Digite o telefone: ") leia (user[4,3]) escreval ("Digite o endereco: ") leia (user[4,4]) limpatela escreval (" Para voltar ao menu digite menu ") escreval (" Para sair digite sair ") leia (voltar) limpatela fimse // fim cadastro 4 usuarios se op3=5 então escreval ("----Cadastro 1° Usuario-----") escreval ("Digite o nome: ") leia(user[1,1]) escreval ("Digite o cpf: ") leia (user[1,2]) escreval ("Digite o telefone: ") leia (user[1,3]) escreval ("Digite o endereco: ") leia (user[1,4]) escreval ("") escreval ("----Cadastro 2° Usuario-----") escreval ("Digite o nome: ") leia(user[2,1]) escreval ("Digite o cpf: ") leia (user[2,2]) escreval ("Digite o telefone: ") leia (user[2,3]) escreval ("Digite o endereco: ") leia (user[2,4]) escreval ("") escreval ("----Cadastro 3° Usuario-----") escreval ("Digite o nome: ") leia(user[3,1]) escreval ("Digite o cpf: ") leia (user[3,2]) escreval ("Digite o telefone: ") leia (user[3,3]) escreval ("Digite o endereco: ") leia (user[3,4]) escreval ("") escreval ("----Cadastro 4° Usuario-----") escreval ("Digite o nome: ") leia(user[4,1]) escreval ("Digite o cpf: ") leia (user[4,2]) escreval ("Digite o telefone: ") leia (user[4,3]) escreval ("Digite o endereco: ") leia (user[4,4]) escreval ("") escreval ("----Cadastro 5° Usuario-----") escreval ("Digite o nome: ") leia(user[5,1]) escreval ("Digite o cpf: ") leia (user[5,2]) escreval ("Digite o telefone: ") leia (user[5,3]) escreval ("Digite o endereco: ") leia (user[5,4]) limpatela escreval (" Para voltar ao menu digite menu ") escreval (" Para sair digite sair ") leia (voltar) limpatela fimse // fim cadastro de usuarios //inicio cadastro livro se op2=2 então escreval ("quantos livros deseja cadastrar 1 a 5 ") leia (op4) limpatela fimse se op4=1 então escreval ("----Cadastro 1° Livro-----") escreval ("Digite o nome: ") leia(livro[1,1]) escreval ("Digite o autor: ") leia (livro[1,2]) escreval ("Digite o telefone: ") leia (livro[1,3]) escreval ("Digite o endereco: ") leia (livro[1,4]) limpatela escreval (" Para voltar ao menu digite menu ") escreval (" Para sair digite sair ") leia (voltar) limpatela fimse // fim cadastro 1 livro se op4=2 então escreval ("----Cadastro 1° Livro-----") escreval ("Digite o titulo: ") leia(livro[1,1]) escreval ("Digite o autor: ") leia (livro[1,2]) escreval ("Digite o editora: ") leia (livro[1,3]) escreval ("Digite o ano de lancamento: ") leia (livro[1,4]) escreval ("") escreval ("----Cadastro 2° Livro-----") escreval ("Digite o titulo: ") leia(livro[2,1]) escreval ("Digite o autor: ") leia (livro[2,2]) escreval ("Digite o editora: ") leia (livro[2,3]) escreval ("Digite o ano de lancamento: ") leia (livro[2,4]) limpatela escreval (" Para voltar ao menu digite menu ") escreval (" Para sair digite sair ") leia (voltar) limpatela fimse // fim cadastro 2 livro se op4=3 então escreval ("----Cadastro 1° Livro-----") escreval ("Digite o titulo: ") leia(livro[1,1]) escreval ("Digite o autor: ") leia (livro[1,2]) escreval ("Digite o editora: ") leia (livro[1,3]) escreval ("Digite o ano de lancamento: ") leia (livro[1,4]) escreval ("") escreval ("----Cadastro 2° Livro-----") escreval ("Digite o titulo: ") leia(livro[2,1]) escreval ("Digite o autor: ") leia (livro[2,2]) escreval ("Digite o editora: ") leia (livro[2,3]) escreval ("Digite o ano de lancamento: ") leia (livro[2,4]) escreval ("") escreval ("----Cadastro 3° Livro-----") escreval ("Digite o titulo: ") leia(livro[3,1]) escreval ("Digite o autor: ") leia (livro[3,2]) escreval ("Digite o editora: ") leia (livro[3,3]) escreval ("Digite o ano de lancamento: ") leia (livro[3,4]) limpatela escreval (" Para voltar ao menu digite menu ") escreval (" Para sair digite sair ") leia (voltar) limpatela fimse //fim cadastro 3 livros se op4=4 então escreval ("----Cadastro 1° Livro-----") escreval ("Digite o titulo: ") leia(livro[1,1]) escreval ("Digite o autor: ") leia (livro[1,2]) escreval ("Digite o editora: ") leia (livro[1,3]) escreval ("Digite o ano de lancamento: ") leia (livro[1,4]) escreval ("") escreval ("----Cadastro 2° Livro-----") escreval ("Digite o titulo: ") leia(livro[2,1]) escreval ("Digite o autor: ") leia (livro[2,2]) escreval ("igite o editora: ") leia (livro[2,3]) escreval ("Digite o ano de lancamento: ") leia (livro[2,4]) escreval ("") escreval ("----Cadastro 3° Livro-----") escreval ("Digite o titulo: ") leia(livro[3,1]) escreval ("Digite o autor: ") leia (livro[3,1]) escreval ("Digite o editora: ") leia (livro[3,2]) escreval ("Digite o ano de lancamento: ") leia (livro[3,3]) escreval ("") escreval ("----Cadastro 4° Livro-----") escreval ("Digite o titulo: ") leia(livro[4,1]) escreval ("Digite o autor: ") leia (livro[4,2]) escreval ("Digite o editora: ") leia (livro[4,3]) escreval ("Digite o ano de lancamento: ") leia (livro[4,4]) limpatela escreval (" Para voltar ao menu digite menu ") escreval (" Para sair digite sair ") leia (voltar) limpatela fimse // fim cadastro 4 Livro se op4=5 então escreval ("----Cadastro 1° Livro-----") escreval ("Digite o titulo: ") leia(livro[1,1]) escreval ("Digite o autor: ") leia (livro[1,2]) escreval ("Digite o editora: ") leia (livro[1,3]) escreval ("Digite o ano de lancamento: ") leia (livro[1,4]) escreval ("") escreval ("----Cadastro 2° Livro-----") escreval ("Digite o titulo: ") leia(livro[2,1]) escreval ("Digite o autor: ") leia (livro[2,2]) escreval ("Digite o editora: ") leia (livro[2,3]) escreval ("Digite o ano de lancamento: ") leia (livro[2,4]) escreval ("") escreval ("----Cadastro 3° Livro-----") escreval ("Digite o titulo: ") leia(livro[3,1]) escreval ("Digite o autor: ") leia (livro[3,2]) escreval ("Digite o editora: ") leia (livro[3,3]) escreval ("Digite o ano de lancamento: ") leia (livro[3,4]) escreval ("") escreval ("----Cadastro 4° Livro-----") escreval ("Digite o titulo: ") leia(livro[4,1]) escreval ("Digite o autor: ") leia (livro[4,2]) escreval ("Digite o editora: ") leia (livro[4,3]) escreval ("Digite o ano de lancamento: ") leia (livro[4,4]) escreval ("") escreval ("----Cadastro 5° Livro-----") escreval ("Digite o titulo: ") leia(livro[5,1]) escreval ("Digite o autor: ") leia (livro[5,2]) escreval ("Digite o editora: ") leia (livro[5,3]) escreval ("Digite o ano de lancamento: ") leia (livro[5,4]) limpatela escreval (" Para voltar ao menu digite menu ") escreval (" Para sair digite sair ") leia (voltar) limpatela fimse // fim cadastro de Livro fimse fimenquanto senao se op=2 então escreval ("lol") fimse fimalgoritmo o grande problema e que quando termino o cadastro dos usuarios e volto ao menu para tentar cadastrar livros mesmo escolhendo a opcao 2 para cadastrar os livros retorno ao cadastro de usuarios e tenho que recadastrar todos os usuarios antes de cadastrar os livros