Jhonathan Barcelos

@Simon Viegas entao é por que eu to numa missão de ajuda um amigo, ele ta usando o visualg, teria quer ser naquela linguagem. voce conseguiria por esse codigo no visualg ?

algoritmo "Biblioteca" // Função : // Autor : // Data : 05/02/2020 // Seção de Declarações var titulo:vetor[0..2] de caractere autor:vetor[0..2] de caractere editora:vetor[0..2]de caractere isbn:vetor[0..2] de caractere sair:real login, senha, login1, senha1, respost, empres, reserva: caractere repet, repet1, opcao, ano, reserv: inteiro inicio // Seção de Comandos escreval("biblioteca:") escreval escreval("Login: usuario") escreval("Senha: senhausuario") escreval enquanto repet < 3 faca escreval("-----------------------") escreva("|Digite o login: ") leia(login) escreval("-----------------------") escreva("Digite a senha: ") leia(senha) escreval("-----------------------") escreval se (login = "usuario") e (senha = "senhausuario") entao repet <- 5 senao repet <- repet + 1 escreval("-------> Login ou senha incorretos <-------") escreval fimse fimenquanto se (repet = 5) entao limpatela repita escreva("Entre com o ID da opção: ") escreval("| ID | Opção |") escreval("|====|=========================|") escreval("| #1 | Cadastrar livro |") escreval("| #2 | Buscar livro |") escreval("| #3 | Emprestimo/devolução |") escreval("| #4 | Reserva |") escreval("| #5 | Exibir acervo |") escreval("| #6 | Cadastrar Leitor |") escreval("| #7 | Trocar usuarior |") escreval("| #8 | Sair |") escreval(" ¯¯¯¯ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ") leia(opcao) escreval escolha opcao para i de 0 ate 2 faca caso 1 se (titulo"") entao escreva("Digite o título do livro: ") leia (titulo) escreva("Digite o Autor: ") leia(autor) escreva("Digite o nome da Editora: ") leia(editorai) escreva("Digite o ano de lançamento: ") leia(ano) escreva("Digite o ISBN: ") leia(isbn) escreval limpatela caso 2 escreva("Digite o título completo do livro: ") leia(tit) se (tit = titulo) entao escreval("Título: ", titulo) escreval("Autor: ", autor) escreval("Editora: ", editora) escreval("Ano:", ano) escreval("ISBN: ", isbn) escreva senao escreva("Livro não encontrado") fimse escreval caso 3 escreva("Deseja realizar um empréstimo [E] ou devolução [D]? ") leia(respost) escreval se (respost = "E") entao escreva("Digite o título do livro: ") leia(respost) se (respost = titulo) entao empres <- titulo escreval("Você acaba de pegar empréstimo de um livro cujo nome é:", empres) escreval fimse senao escreva("Digite o título do livro: ") leia(respost) se (respost = titulo) entao escreval("Devolução efetuada com sucesso!") escreval fimse fimse caso 4 escreva("Digite o título do livro: ") leia(reserva) se (reserva = titulo) entao reserv <- 1 escreval("Reserva efetuada com sucesso!") escreval senao escreval("Livro não encontrado!") escreval fimse caso 5 limpatela escreval("Confira agora, o menu de opções!") escreval escreval("| ID | Opção |") escreval("|====|=========================|") escreval("| #1 | Cadastrar livro |") escreval("| #2 | Buscar livro |") escreval("| #3 | Emprestimo/devolução |") escreval("| #4 | Reserva |") escreval("| #5 | Exibir acervo |") escreval("| #6 | Cadastrar Leitor |") escreval("| #7 | Trocar usuarior |") escreval("| #8 | Sair |") escreval(" ¯¯¯¯ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ") se (reserv = 1) entao escreval("Título: ", titulo, " [Reservado]") escreval("Autor: ", autor) escreval("Editora: ", editora) escreval("Ano:", ano) escreval("ISBN: ", isbn) escreva senao escreval("Título: ", titulo) escreval("Autor: ", autor) escreval("Editora: ", editora) escreval("Ano:", ano) escreval("ISBN: ", isbn) escreva fimse caso 6 escreva("Digite o novo login: ") leia(login) escreva("Digite a nova senha: ") leia(senha) escreval caso 7 enquanto repet1 < 3 faca escreva("Digite o login: ") leia(login1) escreva("Digite a senha: ") leia(senha1) escreval se (login1 = login) e (senha1 = senha) entao repet1 <- 5 limpatela escreval("Novo login efetuado") escreval("Confira agora, o menu de opções!") escreval escreval("| ID | Opção |") escreval("|====|=========================|") escreval("| #1 | Cadastrar livro |") escreval("| #2 | Buscar livro |") escreval("| #3 | Emprestimo/devolução |") escreval("| #4 | Reserva |") escreval("| #5 | Exibir acervo |") escreval("| #6 | Cadastrar Leitor |") escreval("| #7 | Trocar usuarior |") escreval("| #8 | Sair |") escreval(" ¯¯¯¯ ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ ") senao repet1 <- repet1 + 1 escreval("-------> Login ou senha incorretos <-------") escreval fimse fimenquanto fimescolha ate opcao = 8 escreval("Gerenciamento de Biblioteca Encerrado") fimse fimalgoritmo adicionado 7 minutos depois gente minha duvida é, quero armazenar os livros e exibir eles quando pedirem pra buscar ele