Pascal/Turbo Pascal - Mostrar por pantalla.

   
Vista:

Mostrar por pantalla.

Publicado por Matias (1 intervención) el 13/06/2011 23:15:45
Hola que tal soy nuevo en el foro. Les cuento que soy estudiante de analista en sistemas en primer año en un terciario .
El problema que tengo es el siguiente , al final del algoritmo donde tengo que mostrar los resultados por pantalla (supongamos que tenemos 20 resultados) me piden que muestre de a 5 datos por pantalla .
osea muestro 5 datos y que me aparezca un mensaje presione una tecla y me muestre en "otra" pantalla los 5 datos siguientes no se si me explico bien.
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

Mostrar por pantalla.

Publicado por ramon (2072 intervenciones) el 14/06/2011 13:02:36
{Espero sea esto lo que pides acopla lo a tu nivel de pascal}

program presen;
uses
crt;
var
datos : array[1..20] of integer;
cont : integer;
tecla : char;

procedure carga_valores;
var
i : integer;
begin
for i := 1 to 20 do
begin
datos[i] := i;
end;
end;


procedure presenta;
var
paso : integer;
sal : boolean;
begin
carga_valores;
cont := 0;
sal := false;
paso := 1;
repeat
for paso := 1 to 5 do
begin
write(' ',datos[cont + paso]);
end;
cont := cont + paso;
writeln;
writeln(' **** Pulse una tecla para segir ****');
repeat
tecla := readkey;
until tecla = #13;
tecla := #0;
clrscr;
if cont = 20 then
begin
sal := true;
end;
until sal = true;
writeln;
writeln('************* Final de datos pulse una tecla *************');
repeat until keypressed;
end;

begin
clrscr;
textcolor(15);
presenta;
end.
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