[ Foro de Pascal ]

hacer un cuadro simple con freepascal

24-Mar-2020 17:07
carlos_lalo88 orrego
0 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.









Si ya eres usuario del sistema, puedes contestar desde tu cuenta y así ganar prestigio.

Si sólo eres un visitante, puedes optar por...