Pascal/Turbo Pascal - ayuda!!!

   
Vista:

ayuda!!!

Publicado por Martn (2 intervenciones) el 29/01/2009 19:16:50
hola!!! necesito ayuda con 2 cuestiones q necesito hacer para un programilla.....

1º) al hacer listados, necesito q se detenga el listado cuando se llene la pantalla y q continue al pulsar la barra espaciadora

2º) el programa solo puede aceptar numeros reales con 1 decimal como máximo
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

RE:ayuda!!!

Publicado por Willy (181 intervenciones) el 06/02/2009 03:33:10
Hola Martn.
Aquí te hice un programilla para tu primer cuestión. Espero te sirva!

Program ASCII;
Uses Crt;
Var Tecla : Char;
I, CuentaLineas : Integer;

Begin
ClrScr;
CuentaLineas := 1;
For I := 1 to 256 do
Begin
Writeln(I,': ',Char(I));
CuentaLineas := CuentaLineas + 1;
if CuentaLineas = 25 then
Begin
Tecla := ReadKey;
Repeat until Tecla = char(32);
CuentaLineas := 1;
End;{CuentaLineas}
End;{For}
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