ЛАБОРАТОРНАЯ РАБОТА
(название работы)
«Знакомство с фрактальной графикой»
1. Цель работы
Познакомиться с основами создания фрактальных композиций при помощи среды программирования Паскаль.
2. Задачи работы
Изучить графические возможности языка Паскаль.
3. Порядок выполнения работы
1) Загружаю среду программирования Паскаль. Создаю с ее помощью фрактальную композицию, основанную на повторении пересекающихся окружностей некоторого радиуса. При построении композиции использую исходные данные из приложения А в соответствии с вариантом, указанным преподавателем. .
2) Создаю многоцветный вариант моей композиции, задавая цвет закрашивания отдельных элементов композиции в зависимости от номера шага цикла.
3) Создаю двухцветный вариант данной композиции, основанный на чередовании светлого и темного цвета.
4. Отчет о проделанной работе
1) Загружаю среду программирования Паскаль. Создаю с ее помощью фрактальную композицию, основанную на повторении пересекающихся окружностей некоторого радиуса. При построении композиции использую исходные данные из приложения А в соответствии с вариантом 11 (dx=50, dy=60, R=70, цвет рисования – синий, цвет фона – белый.
Программа должна начинаться со стандартного раздела описаний, включающего команды подключения библиотечного графического модуля GRAPH и описания всех переменных программы. Далее должно идти основное тело программы, содержащее процедуры инициализации графического экрана, установки цвета фона и текущего цвета рисования.
Дальнейшая часть программы должна включать операторы рисования системы из пересекающихся друг с другом окружностей.
Программа имеет следующий вид:
Program pr1;
Uses Craph;
Var d, m, x, y: 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
setColor(Blue);
circle (x, y, 70);
y:=y+60;
end;
x:=x+50:
end;
readln;
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;
CloseGraph;
End.
3) Создаю двухцветный вариант данной композиции, основанный на чередовании светлого и темного цвета. Эффект чередования двух цветов в композиции легко достичь присваиванием цвету рисования одного из двух возможных значений. ............