{Esto te ayudara algo}
program libreria;
uses
crt;
type
ptlibro = ^libro;
libro = record
numero : longint;
titulo : string[80];
autor : string[100];
editorial : string[80];
edicion : string[12];
codigo : string[20];
estado : boolean;
sig : ptlibro;
end;
const
codigo_temas : array[1..8] of string[20] = (
'matematica','lengua y literatura','ciencias sociales',
'idiomas extranjeros','informatica','arte y cultura',
'pedagogia y didactica','otros');
var
actul, priml, ultiml : ptlibro;
plibros : libro;
procedure entrada_puntero;
begin
if priml = nil then
begin
new(actul);
actul^ := plibros;
priml := actul;
actul^.sig := nil;
end
else
begin
ultiml := actul;
new(actul);
actul^ := plibros;
ultiml^.sig := actul;
actul^.sig := nil;
end;
end;
procedure entrada_libros;
var
codi : integer;
begin
clrscr;
writeln(' ***** Entrada Libros *****'); writeln;
write(' Numero : '); readln(plibros.numero);
write(' Titulo : '); readln(plibros.titulo);
write(' Autor : '); readln(plibros.autor);
write(' Editorial : '); readln(plibros.editorial);
write(' Edicion : '); readln(plibros.edicion);
write(' Codigo Num. 1 a 8 : '); readln(codi);
if (codi < 1) or (codi > 8) then
begin
repeat
writeln('Codigo No Correcto Es De 1..8'); writeln;
write(' Codigo Num. 1 a 8 : '); readln(codi);
until codi in[1..8];
end;
plibros.codigo := codigo_temas[codi];
plibros.estado := true;
entrada_puntero;
end;
procedure presentadatos;
var
temp : ptlibro;
begin
temp := priml;
while temp <> nil do
begin
with temp do
begin
writeln(' Numero : ',numero); writeln(' Titulo : ',titulo); writeln(' Autor : ',autor); writeln(' Editorial : ',editorial); writeln(' Ediccion : ',edicion); writeln(' Serie : ',codigo); writeln(' Estado : ',estado); end;
readkey;
clrscr;
end;
end;
begin
priml := nil;
entrada_libros;
presentadatos;
if priml <> nil then
dispose(actul);
end.
Crear cuenta