çerçeve çizme programı dışarıdan girilen byutlar sayesinde bir kare bir çerçeve çizen program...( yaptığım en amatör program )
uses crt;
var
a,x,y,z: integer;
begin
clrscr;
writeln('Kare Çerçevenin Boyutunu Giriniz');
readln(x);
y:=5;
a:=x-1;
clrscr;
gotoxy(y,1);
write(#218);
gotoxy(y,a+1);
write(#192);
repeat
y:=y+1;
gotoxy(y,1);
write(#196);
gotoxy(y,a+1);
write(#196);
x:=x-1;
until x=0;
gotoxy(y+1,1);
write(#191);
gotoxy(y+1,a+1);
write(#217);
z:=a+2;
repeat
y:=5;
gotoxy(y,a);
write(#179);
gotoxy(y+z,a);
write(#179);
a:=a-1;
until a<2;
readln;
end.
uses crt;
var
a,x,y,z: integer;
begin
clrscr;
writeln('Kare Çerçevenin Boyutunu Giriniz');
readln(x);
y:=5;
a:=x-1;
clrscr;
gotoxy(y,1);
write(#218);
gotoxy(y,a+1);
write(#192);
repeat
y:=y+1;
gotoxy(y,1);
write(#196);
gotoxy(y,a+1);
write(#196);
x:=x-1;
until x=0;
gotoxy(y+1,1);
write(#191);
gotoxy(y+1,a+1);
write(#217);
z:=a+2;
repeat
y:=5;
gotoxy(y,a);
write(#179);
gotoxy(y+z,a);
write(#179);
a:=a-1;
until a<2;
readln;
end.
