Pascal/Turbo Pascal - limpiar pantalla?

   
Vista:

limpiar pantalla?

Publicado por jorge (7 intervenciones) el 20/02/2008 23:59:21
esoty haciendo una factura
para eso tengo que hacer un marco, ya lo tengo hecho
y despues es ingresar datos
ahi es donde esta el problema
para no complicarme tanto lo hice con "repeat" y con una sentecia "if" entonces seria algo asi:

uses crt;
var a,b,c,d,S,N:char;
begin
repeat
clrscr;
writeln('Nombre'); readln(a);
writeln('Direccion'); readln(b);
writeln('NIT') readln(c);
writeln('Fecha'); readln(d);
write('¿Datos correctos S/N?'); readln(S,N);
if (S = 's') or (S = 'S') then
begin
writeln('asdhald');
end;
until (N = 'n') or (N = 'N');
readkey
end;

el problema es que como pongo "clrscr" borra todo y el marco tambien entonces no se como hacer para repetir sin borrar el marco?

tambien tengo otra pregunta como hago para que si el usuario presionada "N" o "n" termine inmediatamente?

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

RE:limpiar pantalla?

Publicado por Diego Romero (997 intervenciones) el 21/02/2008 15:52:24
¿Por qué pides dos variables en el readln que está después de "'¿Datos correctos S/N?'"?
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

RE:limpiar pantalla?

Publicado por Periquito (1 intervención) el 03/03/2008 19:17:50
Manda llamar o pon tu marco dentro del repeat
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