[ Foro de Pascal ]

hacer un cuadro simple con freepascal

24-Mar-2020 17:07
carlos_lalo88 orrego
1 Respuestas

hace tiempo hice un cuadrito en turbo pascal
lo probe en freepascal y no sale bien a continuacion pongo el codigo
gracias de antemanoi por su ayuda.


program cuadro;
uses crt;

procedure cuadro2(x1,y1,x2,y2:byte);
var
i:byte;
s:char;
begin
s:=#205;

for i:=(x1+1) to (x2-1) do
begin
gotoxy(i,y1);write(s);
gotoxy(i,y2);write(s);
end;
s:=#186;
for i:=(y1+1) to (y2-1) do
begin
gotoxy(x1,i);write(s);
gotoxy(x2,i);write(s);
end;
s:=#201;
gotoxy(x1,y1);write(s);
s:=#187;
gotoxy(x2,y1);write(s);
s:=#200;
gotoxy(x1,y2);write(s);
s:=#188;
gotoxy(x2,y2);write(s);
end;

begin
clrscr;
cuadro2(5,5,75,21);
readln;
end.


 


18-Apr-2020 02:05
Nacho Cabanes (+71)

Los códigos ASCII como el 201 no serán válidos en equipos recientes. Tendrás que reemplazarlos por caracteres del alfabeto inglés, los que aparecen en el teclado, si quieres que funcionen en cualquier sistema.






(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)