ayuda grafica
Publicado por pirulex (37 intervenciones) el 06/04/2001 23:31:35
tengo un pequeño problema con este procedimiento
program present;
uses crt;
var
i:integer;
begin
gotoxy(10,10);
writeln('╔════════════════════╗');{estas son las líneas de arriba del marco de menú}
for i:=11 to 41 do
begin
gotoxy(10,i);
writeln('║ ║');{este es para hacer los lados del marco}
end;
readkey;
end.
el problema que tengo es que el programa solo me escribe los caracteres al final, o sea se ve mas o menos así:
╔════════════════════╗
║ ║
ves y me faltan los del centro, por que sucede eso??
gracias...
program present;
uses crt;
var
i:integer;
begin
gotoxy(10,10);
writeln('╔════════════════════╗');{estas son las líneas de arriba del marco de menú}
for i:=11 to 41 do
begin
gotoxy(10,i);
writeln('║ ║');{este es para hacer los lados del marco}
end;
readkey;
end.
el problema que tengo es que el programa solo me escribe los caracteres al final, o sea se ve mas o menos así:
╔════════════════════╗
║ ║
ves y me faltan los del centro, por que sucede eso??
gracias...
Valora esta pregunta
0