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

CloseGraph;

End.

2) Создаю многоцветный вариант данной композиции, задавая цвет закрашивания отдельных элементов композиции в зависимости от номера шага цикла.Для выполнения данного пункта задания ввожу в программу некоторую вспомогательную переменную (например, k), принимающую значения от 1 до 15. Тогда на каждом шаге цикла установку цвета рисования можно осуществлять по текущему значению данной переменной, соответствующему какому либо из цветов графики языка Паскаль.

Закрашивание составляющих композицию окружностей при этом может быть осуществлено целым рядом способов. Одним из них является способ вложения в каждую основную окружность дополнительных концентрических окружностей с изменяющимся в цикле радиусом. Это обеспечит зрительное восприятие окружностей как закрашенных, причем с дополнительным крапчатым эффектом. Текст программы в данном случае имеет следующий вид:

Program pr2;

Uses Craph;

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

Begin

d:=0;

m:=0;

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

SetBkColor(15);

k:=1

x:=0;

while x<=650 do

begin

y:=0;

while y<=500 do

begin

setColor(k);

k:=k+1;

if k>15 then k=1;

for r:=1 to 70

circle (x, y, r);

y:=y+60;

end;

x:=x+50:

end;

readln;