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
Pergunta
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
Editado por chiquin2008Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.