Biblioteca em pascal
O programa deve continuamente mostrar o seguinte menu:
I - Inserir
P - Pesquisar
S - Sair
Quando o usuário digita a opção "I", o programa insere um novo LIVRO num vetor de registros usado para armazenar as informações.
Quando o usuário escolhe a opção "P", o programa solicita um título e retorna em que posição o registro equivalente está armazenado e quais os dados do registro.
Se o usuário digitar a opção "S", o programa é encerrado.
Reforçando, faça o programa usando vetores e registros.}
program biblioteca; uses crt; type cad_livro = record // registros de livros cod : integer; titulo :string; autor : string; end;
var livro:array[1..999] of cad_livro; // vetores de aramazenamento dos registros j,p,x,l:integer; // varáveis de contagem op:char; // menu principal
procedure MenuPrincipal(var op:char); // menu begin writeln (' ====== Programa da biblioteca ====== '); writeln; writeln (' I - inserir livro '); writeln; writeln (' P - pesquisar '); writeln; writeln (' L - Listar '); writeln; writeln (' S - Sair '); writeln; writeln ('Qual a opcao desejada ?'); writeln; readln (op); clrscr; end;
procedure cadLivro; //cadastro de livros begin writeln; writeln (' == Cadastro de livro == '); writeln; writeln('Livro: ',j); write('digite o codigo: '); readln(livro[j].cod); write('digite o titulo: '); readln(livro[j].titulo); write('digite o autor: '); readln(livro[j].autor); j:=j+1; clrscr; end;
procedure pesquisaLivro; // pesquisa de