Ayuda imprimir paginacion de datos
Publicado por Agustin Guerra (5 intervenciones) el 16/11/2015 22:27:04
Hola, que tal? Tengo un problema, tengo un programa en pascal que presentar el miercoles, y este imprime un listado de libros que existen en una biblioteca.
Al ser una de las consignas del proyecto la recursividad, se me ocurrio hacer esto
Donde el procedimiento "mensaje" imprime la informacion de cada elemento de la lista.
El problema es que cuando muestro mas de 5 libros, no me deja subir y ver los datos impresos previamente. No se me ocurre como hacer una paginacion sin eliminar la recursividad, (la llamada imprimir_listado(lis^.sig); ). Alguien podria darme una mano??
Desde ya muchas gracias
Al ser una de las consignas del proyecto la recursividad, se me ocurrio hacer esto
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure imprimir_listado(lis:lista);
begin
if (lis = nil) then begin
textcolor(red); writeln('');
write('Presione cualquier tecla para volver al menu principal');
readkey; end
else begin
mensaje(lis);
writeln;
imprimir_listado(lis^.sig);
end
end;
Donde el procedimiento "mensaje" imprime la informacion de cada elemento de la lista.
El problema es que cuando muestro mas de 5 libros, no me deja subir y ver los datos impresos previamente. No se me ocurre como hacer una paginacion sin eliminar la recursividad, (la llamada imprimir_listado(lis^.sig); ). Alguien podria darme una mano??
Desde ya muchas gracias
Valora esta pregunta
0