Ir para conteúdo
Fórum Script Brasil
  • 0

ajuda com algoritmo em portugol visualg


chiquin2008

Pergunta

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 chiquin2008
Link 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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...