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

[Sasuke-sama]

Sazary, __STDC__
До меня не дошло, как начинать вообще программу! я запутался!!! и как отобразить несколько квадратов тоже не особо понял!(ну сначала конечна, как начать)!!!

[Sazary]

Сообщение от Sasuke-sama

как начинать вообще программу!

???
Как и любую другую.. С описания переменных.
Потом описываете процедуру вывода квадрата по заданным координатам.
Потом пишете тело программы. Там инициализируете графический режим.
Несколько раз вызываете (а не описываете) процедуру для вывода квадрата (с разными параметрами).

[Sasuke-sama]

Покажите на примере. Нарисуйте просто квадрат один хотя бы, чтоб он не двигался!

[Sazary]

uses crt,graph;
var
d,m : smallint;  // для TP7 заменить тип на integer

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

begin
clrscr;
initgraph(d,m,'');
kvadr(50,50,50);

readln;
closegraph;
End.

чтоб он не двигался!

А куда ж он денется?

[Sasuke-sama]

Спасибо огромное Sazary !!!!!
Ещё один вопрос, вот есть команда по изменению цвета(setcolor(9)-вроди такая) можно кубики покрасить в разные цвета???

[Sazary]

можно кубики покрасить в разные цвета???

Можно
Для этого перед каждым вызовом процедуры меняйте цвет.
Или вот так измените саму процедуру:

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

И 4-м параметром посылайте цвет (число от 0 до 15).

[Sasuke-sama]

Спасибо Sazary, помогло очень!!!

[Sasuke-sama]

А можно несколько процедур функций задавать или в этой писать чтоб ещё окружность построить??

[Sazary]

Сообщение от Sasuke-sama

А можно несколько процедур функций задавать или в этой писать чтоб ещё окружность построить??

Для окружности создайте новую процедуру.

[Sasuke-sama]

Sazary, ясно. СПАСИБО ещё раз!!!))