Читать практическое задание по всему другому: "Знакомство с фрактальной графикой" Страница 1

(Назад) (Cкачать работу)

ЛАБОРАТОРНАЯ РАБОТА

(название работы) «Знакомство с фрактальной графикой»

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

Похожие работы