Question

Помогите!Разработать циклический алгоритм для рисования следуйщих фигурзаранее СПАСИБО!

Answer 1

Вот хоть бы указывали язык, ей богу.

Паскаль я не знаю, но постарась помочь чем смогу

примерный алгоритм таков

 

var

    space:integer; {Расстояние между квадратами и границами}

    a : integer; {сторона квадрата}

    rows,columns:integer;{количество строк, столбцов}

    i,j:integer; 

 

begin

    {Инициализируйте переменные уж как-нибудь сами}

    For i:=1 to rows do

    begin

         For j:=1 to columns do

         begin

                 {рисоватьПрямоугольник(поз X, поз Y, длина, ширина);}

                 {По позициям начала отрисовки мы пропускаем нужное нам количество 

                  пространства, а именно нужное количество занимаемого места пропусками

                 и квадратами}

                 drawRect(space*j+a*(j-1) , space*i + a*(i-1), a,a );

          end;

    end;