Biblioteca em pascal

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (383 palavras )
  • Download(s) : 0
  • Publicado : 15 de dezembro de 2012
Ler documento completo
Amostra do texto
{Faça um programa que realiza o cadastro de LIVROS que em uma biblioteca e um livro contém as infromações de Código de identificação (ISBN), Título e Autor.
O programa deve continuamente mostrar oseguinte 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árioescolhe 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; // menuprincipal

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 (' == Cadastrode 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...
tracking img