Помогите Пожалуйста с Задачей!!!!

[Sasuke-sama]

Люди добрые прошу вас помочь мне с задачей по паскалю!!!! А то уже схожу с ума и начинаю превращаться в аборигена))))
http://pic.ipicture.ru/uploads/090522/SVaxgmt5cR.jpg

[Sazary]

Так а что непонятно? Сделайте процедуру, которая по заданным координатам левого верхнего угла будет рисовать квадрат (с помощью linerel, например). И потом нарисуйте сколько надо..

[Sasuke-sama]

Не так я не понимаю))) Я вообще тугодум по сути!!
Uses Graph;
Var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
Res: Integer;
Begin
grDriver:=detect;
InitGraph(grDriver, grMode, ‘x:\BP\BGI’);
ErrCode:=GraphResult;
If ErrCode = 0 then
Begin
{сюда следует поместить основные инструкции программы}
End
Else
Begin
{сюда следует поместить инструкции, которые направляют работу программы в том случае, если графический режим не может быть инициирован}
End;
Что-то в этом роде но напишите полностью! Спасибо заранее!!

[Sasuke-sama]

Как именно плз получить акой узор!!

[Sazary]

Вы привели только скелет программы.
Процедура будет выглядеть примерно так:

procedure kvadr(x,y : integer; a : integer);
begin
moveto(x,y);
linerel(a,0);
linerel(0,a);
linerel(-a,0);
linerel(0,-a);
end;

Вот и вызовите ее в программе несколько раз с разными (нужными) параметрами.

[Sasuke-sama]

Должно получиться что-то в этом роде??:
Uses Graph;
Var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
Res: Integer;
Begin
grDriver:=detect;
InitGraph(grDriver, grMode, ‘x:\BP\BGI’);
ErrCode:=GraphResult;
If ErrCode = 0 then
procedure kvadr(x,y : integer; a : integer);
begin
moveto(x,y);
linerel(a,0);
linerel(0,a);
linerel(-a,0);
linerel(0,-a);
end;
procedure kvadr(x,y : integer; a1 : integer);
begin
moveto(x,y);
linerel(a1,0);
linerel(0,a1);
linerel(-a1,0);
linerel(0,-a1);
end;
procedure kvadr(x,y : integer; a2 : integer);
begin
moveto(x,y);
linerel(a2,0);
linerel(0,a2);
linerel(-a2,0);
linerel(0,-a2);
end;
procedure kvadr(x,y : integer; a2 : integer);
begin
moveto(x,y);
linerel(a2,0);
linerel(0,a2);
linerel(-a2,0);
linerel(0,-a2);
end;
procedure kvadr(x,y : integer; a3 : integer);
begin
moveto(x,y);
linerel(a3,0);
linerel(0,a3);
linerel(-a3,0);
linerel(0,-a3);
end;
procedure kvadr(x,y : integer; a4 : integer);
begin
moveto(x,y);
linerel(a4,0);
linerel(0,a4);
linerel(-a4,0);
linerel(0,-a4);
end;
procedure kvadr(x,y : integer; a5 : integer);
begin
moveto(x,y);
linerel(a5,0);
linerel(0,a5);
linerel(-a5,0);
linerel(0,-a5);
end;
End.

[Sasuke-sama]

но чёт не получается))))

[Sasuke-sama]

Или нужно было координаты менять, а не длину. Там же они одинаковой длинны.

[Sazary]

Sasuke-sama, вы знаете что такое процедуры и для чего они вообще нужны?
Судя по приведенному выше коду, нет. Советую почитать.
Процедура пишется один раз. Вне тела программы. А потом уже вызывается.
Как-нибудь так:

kvadr(1,1,5);

[Sasuke-sama]

А как подключить графический модуль??