Использование повторяющихся изображений для создания орнаментов

Задача: 

Получить изображение, состоящее из одной повторяющейся геометрической фигуры.

Алгоритм решения задачи: 

Повторяющиеся элементы изображения в сумме представляют собой орнамент. Используя правила переноса, можно создавать как простые, так и достаточно сложные орнаменты.

Количество повторений базовой фигуры определяется переменной цикла, для которой задаются начальное и конечное значения, а также шаг (значение сдвига по оси 0X и/или по оси 0Y).

Если перенос базовой фигуры осуществляется в одном направлении (например, по оси 0X), то достаточно использовать одну циклическую конструкцию. Переменной цикла может служить координата x или y, которая изменяется от начального значения до конечного с заданным шагом (обычно равным ширине или высоте базовой фигуры).

Если перенос базовой фигуры производится по обеим осям (по горизонтали и вертикали), то используется два цикла, один из которых вложен в другой. Например, внутренний цикл прорисовывает каждую строку (изменяется только координата x), а внешний осуществляет переход на новую строку (изменяется координата y).

Программа на языке Паскаль: 

uses graph;
var
    g,h:integer;
    x,y:integer;
begin
    g := detect;
    initgraph(g,h,'');
    randomize;
 
    y := 0;
    repeat
        x := 0;
        repeat
            setcolor(10);
            moveto(x,y+50);lineto(x+30,y);lineto(x+30,y+50);
            setcolor(random(10)+6);
            circle(x+30,y+50,20);
            x := x + 60;
        until x > 800;
        y := y + 100;
    until y > 600;
 
readln
end.

Комментарии

Помогите,пожалуйста,сама не могу справиться

Построить прямоугольник фиксированных размеров. Нажатие на клавишу Enter циклически изменяет цвет прямоугольника, F10 — завершает работу программы.

Пожалуйста , помогите нарисовать солнце с помощью команд для рис

Пожалуйста , помогите нарисовать солнце с помощью команд для рисования

Помогите пожалуйста !

Помогите пожалуйста ! Составить орнамент через цикл .

с клавиатуры вводится число

с клавиатуры вводится число n
нужно вывести кол-во делителей всех чисел до данного числа в следующем виде:
1+
2++
3++
4+++
5++
6++++
...
n
++-кол-во делителей

Решение похожей задачи.

Решение похожей задачи.

Помогите сделать задачку на модуль граф !!!! плииз!!!

Нужно закрасить экран : 1) кирпичиками
2) крестиками
помогите плзз

program blppa;uses crt;var

program blppa; 
uses crt;
var i, j, n, k: integer;
begin
readln(n);
clrscr;
k:=1;
repeat
  begin
   for i:=1 to k do
    begin 
    delay (100); 
    write('*'); 
    end;
   k:=k+1;
  end;
  writeln;
until n=k-1;
end.

Пожалyйста помогите решить задачy!))

С клавиатyры вводится число N.
Выведите следyющyю фигурy на последней строке N звездочек.  Для решения этой задачи примените конструкцию "цикл в цикле"
*
**
***
****
*****
******
*******

program blppa;var i, j, n,

program blppa; 
var i, j, n, k: integer;
begin
readln(n);
k:=1;
repeat
  begin
   for i:=1 to k do
   write('*');
   k:=k+1;
  end;
  writeln;
until n=k-1;
end.

Большое,спасибо!!!!!

Большое,спасибо!!!!!

даны х,y,z вычислить a,b

даны х,y,z вычислить a,b если:
а=(3+е квадрате)все это деленная на (1+х квадрате модуль открывается у-tg(z)модуль закрывается)
нужно это записать виде программы паскаль