Procedure ile kullanılan klavyeden girilen koordinatlara göre şekli çizen pogram

Procedure ile kullanılan klavyeden girilen koordinatlara göre şekli çizen pogram.



uses crt;
var
a,b,c,d,i:integer;
procedure sekil;
begin
clrscr;
for i:=a to c do
begin
gotoxy(i,b);write('*'); gotoxy(i,d);write('*');
end;
for i:=b to d do

begin
gotoxy(a,i);write('*');
gotoxy(c,i);write('*');
end;
end;
begin
clrscr;
writeln('a sütun koordinatını gir');readln(a);
writeln('b satir koordinatını gir');readln(b);
writeln('c sütun koordinatını gir');readln(c);
writeln('d satır koordinatını gir');readln(d);
sekil;
readln;
end.


Linkback: https://www.buyuknet.com/procedure-ile-kullanilan-klavyeden-girilen-koordinatlara-gore-sekli-cizen-pogram-t10127.0.html