Лабораторная работа: Знакомство с фрактальной графикой

End.

3) Создаю двухцветный вариант данной композиции, основанный на чередовании светлого и темного цвета.Эффект чередования двух цветов в композиции легко достичь присваиванием цвету рисования одного из двух возможных значений. Реализовать это можно с помощью оператора mod, служащего для нахождения остатка от деления. Введя переменную k для обозначения номера элемента в композиции и учитывая, что выражение k mod 2 всегда принимает только два значения – 0 либо 1, можно добиться требуемого чередования цветов элементов.

Внеся в предыдущую программу следующие изменения можно получить композицию в виде двухцветного орнамента:

Program pr3;

Uses Craph;

Var d, m, x, y, r, k: integer;

Begin

d:=0;

m:=0;

InitGraph (d, m,’d:\bp\bgi’);

SetBkColor(15);

x:=0;

while x<=650 do

begin

y:=0;

while y<=500 do

begin

k:=k+1;

setColor(k mod 2);

for r:=1 to 70 do

circle (x, y, r);

y:=y+60;

end;

x:=x+50:

end;

readln;

CloseGraph;

End.

5. Контрольные вопросы

1) Что понимают под фрактальной графикой?