Рисование

[btf]

Всем привет. Помогите пожалуйста нарисовать такую фигуру:

меня интересует только сам цикл рисования таких прямоугольников.

[Stilet]

А язык то какой?

[NetSpace]

допустим, у Вас есть процедура прорисовки прямоугольника RECTANGLE(X,Y,W,H,C), где X,Y - положение верхнего левого угла, W,H - его ширина и высота, C - цвет фигуры. Тогда сам код будет выглядеть как-то так:

const W=50
         H=10;
for a:=1 to 3 do//по 3-м столбцам
begin
   for b:=(a*2-1) downto 1 do//по всем прямоугольникам в каждом столбце
   begin
       if(b div 2=1)then RECTANGLE((a-1)*W,(b-1)*H,W,H,Yellow);//все нечётные номера в столбце жёлтые
        if(b div 2=0)then RECTANGLE((a-1)*W,(b-1)*H,W,H,Red);//все чётные номера - красные
       end;
   end;   
end;