Pascal/Turbo Pascal - Ayuda imprimir paginacion de datos

   
Vista:

Ayuda imprimir paginacion de datos

Publicado por Agustin Guerra mani.cs1@hotmail.com (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

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda imprimir paginacion de datos

Publicado por ramon (2072 intervenciones) el 21/11/2015 11:42:42
Las listas enlazadas simples o sea un silo enlace no se puede retroceder en ellas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar