Формы и основные модули текста программы в среде Delphi

При решении поставленной задачи будут использованы следующие объекты:

Рисунок 2.1 – объекты главной формы

- Button - командная кнопка;

- Image – компонента для вывода графической информации;

Рисунок 2.2 – объекты дополнительной формы

- Label - информационные метки;

Основная форма приложения имеет вид:

Рисунок 2.3 – вид основной формы программы

Дополнительная форма выглядит так:

Рисунок 2.4 – вид дополнительной формы программы

Основной модуль текста программы:

procedure gf;

Const

iterations = 500000; //Кол-во итераций

Var

t, x, y: real;

p: real; //Случайная величина

k: longint;

mid_x, mid_y, radius: integer;

begin

mid_x: = form1.width div 2;

mid_y: = form1.height -200; //Масштабирование и координирование изображения

radius: = trunc(0.1 * mid_y);

randomize;

x: = 1.0;

y: = 0.0;

for k: = 1 to iterations do

begin

p: = random;

t: = x;

if p < = 0.85 then //Построение верхней части листа

begin

x: = 0.84 * x -0.045 * y;

y: = 0.045 * t + 0.86 * y + 1.6;

end

else

if p < = 0.92 then //Построение левого листа

begin

x: = 0.25 * x - 0.26 * y;

y: = 0.23 * t + 0.25 * y + 1.6;

end

else

if p < = 0.99 then //Построение стебля

begin

x: = -0.135 * x + 0.28 * y;

y: = 0.26 * t + 0.245 * y + 0.44;

end

else

begin

x: = 0.0;

y: = 0.16 * y;

end;

Form1.image1.Canvas.Pixels[mid_x+round(radius*x), mid_y-round(radius*y)+35]: =clGreen //Вывод изображения

end;

Результаты тестирования программного продукта

Кратко о программе:

· Код главной формы находится в Unit1.pas (Приложение А)

· Кнопка «Очистить форму» становится доступной только после нажатия на кнопку «Изобразить фрактал».

· Изображение фрактала «Лист папоротника» получается при нажатии кнопки «Изобразить фрактал». При этом данная кнопка становится не активной, т. к. в повторных итерациях нет необходимости. Кнопка «Очистить форму» становится доступной.

· Канва компонента Image очищается нажатием на кнопку «Очистить форму».

· При нажатии кнопки «Об авторе» главная форма становится невидимой, а дополнительная, содержащая информацию об создателе приложения появляется на экране.

· Код второй формы находится в Unit2.pas (Приложение Б)

· Кнопка «Вернуться назад» возвращает пользователя на исходную форму.

· Закрыть приложение можно, нажав на кнопку «Закрыть», стандартно располагающуюся в верхнем правом углу программы.

Для открытия программы нужно запустить файл Project1.exe.

Программа выглядит так:

Рисунок 2.5 – визуальное представление программы

1.Для получения изображения листа папоротника нужно нажать кнопку «Изобразить фрактал».

Рисунок 2.6 –результат нажатия кнопки «Изобразить фрактал»

2.Программа предоставляет возможность очистки окна с изображением, что можно сделать, нажав на кнопку «Очистить форму».

Рисунок 2.7 – при очистке формы

3.Так же можно узнать информацию об авторе данного приложения, нажав на кнопку «Об авторе».

Рисунок 2.8 – информация о создателе приложения

4.При нажатии кнопки «Вернуться назад» пользователь переместится на главную форму.

Рисунок 2.9 – Вернуться назад

5.Закрытие программы осуществляется нажатием на кнопку «Закрыть», стандартно располагающуюся в верхнем правом углу программы.

Анализ результатов тестирования программы

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

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

ЗАКЛЮЧЕНИЕ

Для выполнения выполнения задания, необходимо было реализовать алгоритм построения фрактала «Лист папоротника» в среде Delphi. В ходе работы были созданы формы на которых размещены компоненты, которые необходимы для решения поставленной задачи. Во время разработки программы были углублены и закреплены знания по алгоритмизации, программированию и разработке графических программ в интегрированной визуальной среде программирования Delphi. Также была изучена и проанализирована дополнительная литература, содержащая информацию о среде разработки Delphi, математических множествах и фракталах. В результате была разработана программа которая способна построить фрактал «Лист папоротника».

Полученные в ходе работы над курсовым проектом навыки являются незаменимыми в дальнейшем при решении практических задач.

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

1. Сжатие изображений и информации

2. Сокрытие информации на изображении, в звуке

3. Шифрование данных с помощью фрактальных алгоритмов

4. Создание фрактальной музыки

5. Моделирование систем[7].

Данное приложение можно использовать для ознакомления с графическими средствами среды программирования Borland Delphi, а также для приобретения представлений о практическом применении фрактальных множеств.

Приложение можно доработать и использовать для создания более сложных фракталов.

Таким образом, поставленные цели были достигнуты, цели работы были выполнены.

12	Поделиться: