;:=- 236;
REPEAT
V:=0;
re:=- 1 + coeff2 * X;// Масштабування фрактала
im:=0 + coeff2 * Y; KUB;
KUB;
re:=re-coeff3;// Зміна зовнішнього вигляду
im:=im + coeff4; re * re gt; 5 then GOTO m1; re * re gt; 6 then GOTO m1;:=V + 1; V gt; 10;: IF (abs (re) lt; 7) OR (abs (im) lt; 3) then
Form1.Image5.Canvas.Pixels [X + 178, Y + 236]:=V * +8000
ELSE Form1.Image5.Canvas.Pixels [X + 178, Y + 236]:=clsilver;
Y:=Y + 1; Y gt; 237;:=X + 1;
UNTIL X gt; 478;
END;
//Виклик процедури побудови фрактала допомогою натиснення на кнопку «Намалювати»
procedure TForm1.btn2Click (Sender: TObject); coeff2, coeff3, coeff4:Real;.Canvas.Brush.Color:=clWhite;.Canvas.rectangle(0,0,image5.Width,image5.Height);:=spinedit9.value*0.0001 + 0.0007;:=spinedit2.value * 0.1;:=spinedit3.value * 0.01; (coeff2, coeff3, coeff4) ;;
end.
Програма додається на диску.
Висновок
У даній роботі були виявлені особливості представлення різних видів графічної інформації, розглянуті різні колірні схеми, а також графічні формати. Для створення своєї практичної частини, я зупинила свій вибір на одному з видів комп'ютерної графіки.
Крім цього, в даній дипломній роботі були розглянуті способи подання аудіо- та відеоінформації, а також найбільш поширені формати.
Особливу увагу було приділено написання програми, що дозволяє наочно продемонструвати побудову деяких видів фракталів.
Список літератури
1. «Інформатика. Базовий курс ». Підручник для Вузів/під ред. С.В. Симоновича, - СПб .: Питер, 2000;
. Левін А.Ш. «Самовчитель комп'ютерної графіки й звуку. 2-е изд ».- СПб .: Питер, 20064
. Борзенко А.Е. , Федоров А.Г. «Мультимедіа для всіх».- М .: ТОО фірма КомпьютерПресс raquo ;, 1995;
. В. П. Іванов, А. С. Батраков. «Тривимірна комп'ютерна графіка»/Под ред. Г. М. Поліщука.- М .: Радіо і зв'язок, 1995;
. Ніклаус Вірт - «Алгоритми + структури даних=програми». М .: Світ, 1985;
. Архангельський А.Я.- «Програмування в Delphi. Підручник за класичними версіями Delphi. Підручник за класичними версіями Delphi ». Біном-Пресс, 2008;
7. http://ru.wikipedia - Вільна енциклопедія;
. http://delphisourses - Програмування на Delphi;
. http://fractalsat - Всесвіт фракталів.
