Практичесl= 2;ая работа № 28

Прак= 090;ическая работа № 28

«У= ;зоры»

Цель работы - созk= 6;ать программу, выполняющуn= 2; следующие д = 77;йствия без участия пользоватеl= 3;я:

1.&n= bsp; После запуска программы в окне изображаютl= 9;я рисунки, созданные с = 72;мой программой по заранее заданным правилам.

2.&n= bsp; Картинк&#= 1072; обновляетсn= 3; «сама собой&raq= uo;. Интервал таймера может быть любым. Он зависит от к= 086;мпьютера, на котором работает программа.

3.&n= bsp; Для выхода из программы необходимо щелкнуть мышью на закрывающеl= 1; кнопке в строке заго = 83;овка.

&= nbsp;

Опис= 072;ние плана разработки программы<= /b>

1.&n= bsp;     Открыть новый проек = 90;.

2.&n= bsp;     Размест&#= 1080;ть на форме экземпляры компонентоk= 4;: область рисования PaintBox, таймер Timer.

3.&n= bsp;     Область рисования представитn= 0; в виде клето= 082; (точек или пикселов). Каждая клетка покрашена в = 089;вой цвет. В ходе программы цвета меняются.

4.&n= bsp;     Описать предваритеl= 3;ьно константы в окне кода пред ключевым словом:

Const size =3D= 40;

csize =3D 12;

Colors: array [1..16] of TColor = =3D

(clRed, clGreen, clYellow, c= lBlue, clWhite, clGray, clFuchsia, clTeal,

clNavy, clMaroon, clLime, clOlive, clPurple, clSilver, clAqua, clBlack);

К= ;онстанта size задает число клеточек по каждому направлениn= 2;, константа csize – число используемm= 9;х цветов. Массив Colors (константа) определяет цвета.

В разделе описаний после ключевого слова var опис= 099;вается массив клет = 86;к

Points: array[1..size, 1..si= ze] of Integer;

5.&n= bsp;     Выполни&#= 1090;ь следующие действия:

Таблица 25.

Выделе = 85;ный объект

Вкладк = 72; окна

Object Inspector

Имя свойства/

имя события

Действ = 80;е

Form1

Properties

Caption

Установ= 082;а имени формы «Узор»

Events

OnCreate

В процедур&#= 1077; обеспечить<= span style=3D'mso-ansi-language:EN-US'> непо= 074;торимость случ= 072;йных чисе= 083; с помощью проц= 077;дуры Randomize. Пр= 086;вести инициализа= 094;ию массива пик&#= 1089;елов.

PaintBox1

(Вкладк = 72; System)<= /span>

Properties

Height

Задать знач= 077;ние 320

Width

Задать знач= 077;ние 320

<= /o:p>

Canvas

Свойств= 072; и методы этог&#= 1086; свойства обеспечива= 102;т рисование.

Метод Rect= angle рисует прямоуголь= 085;ик с заданными вершинами. Цвет контура задается свойством Pen.Colo= r, а цвет закраски – свойством Brush.Colo= r.

Timer1

(Вк = 83;адка System)

Properties

Interval

Задать значение 100 (о = 76;на десятая секунды)

Events

OnTimer

В созданной процедуре-з&#= 1072;готовке Timer1Timer описать переменные c (colo= r), up (up), d (down= ), l (left= ), r (righ= t). Но = 74;ые значения цветов записывают= 089;я в отдельном массиве NewP= oints. Написать правила, по которым будут меняться цвета.

6.&n= bsp;     Сохрани&#= 1090;е проект, запустите и протестируl= 1;те его.

Листинг подпрогра&= #1084;мы

procedure TForm1.FormCreate (Sender: TObject);

var= i, j : Integer;<= /span>

begin

Randomize;

for= i= :=3D 1 to size do= {инициализ= ;ация массива пикселов}

for= i :=3D 1 to size do

Points[i, j] :=3D 1 + Random (csize); {i= 2;инимально возможное значение элемента ма = 89;сива равно 1}

end;

procedure TForm1.Timer1Timer (Sender:= TObject);

var i, j : Integer;

c, l, r, u, d : Integer;

newPoints: array [1..size, 1..size] of In= teger;

begin

{Выч= 080;слить, какого цвет = 72; будет клетк = 72; на следующе = 84; шаге}

for= i :=3D 1 to size do

for= j :=3D 1 to size do

begin

c :=3D Points[i= , j] + 1;{В= ычисляется «следующий цвет» и запоминаетl= 9;я в переменно = 81; с}

if<= span lang=3DEN-US> c= > csize then c :=3D 1; {П= 086;сле последнего цвета идет первый}

{Выч= 080;сляются индексы для клеток, примыкающиm= 3; к данной сверху, снизу, слева и справа. Кра&#= 1103; узора как бы «склеены» друг с друго= 084;}

u :=3D i – 1;

if<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'> u =3D 0 then u :=3D size;

d :=3D i + 1;

if<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'> d > size then d :=3D 1;

l :=3D j – 1;

if<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'> l =3D 0 then l :=3D size;

r :=3D j + 1;

if<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'> r > size then r :=3D 1;

newPoints [i, j] :=3D = Points [i, j]; {Если = среди «соседей» цвет отсутствуеm= 0;, то клетка остается бе = 79; изменений}

{Есл= 080; хотя бы один из «соседей&raq= uo; имеет такой = 094;вет, клетка перекрашивk= 2;ется}

if<= span lang=3DEN-US style=3D'mso-ansi-language:EN-US'> (Points [u, j] =3D c) or (Points [d, j] =3D c) or (Points [i, l] =3D c) or (Points [i, r] =3D c)

then newPoints [i, j] :=3D c;

end= ;

c :=3D 320 div= s= ize; {Выбирается размер клетки так, чтобы узор з= 072;нимал, по возможностl= 0;, всю область рисования}

{Обноk= 4;ляется узор на экране}

for= i :=3D 1 to size do

for= j :=3D 1 to size do

begin

Points [i, j] :=3D newPoints [i, j]= ;

{ = 53;астроить цвет контур = 72; прямоугольl= 5;ика и цвет закраски}

PaintBox1.Canvas.Pen.Color :=3D Colors[Points[i, j]];

PaintBox1.Canvas.Brush.Color :=3D Colors[Points[i, j]];

{Выполнить= ; рисоk= 4;ание}

PaintBox1.Canvas.Rectangle (c*(i - 1), c*(j - 1), c*i – 1, c*j – 1);

{Пара= ;метры метода Rectangle подобраны так, чтобы между клетками оставался небольшой зазор. Чтобы клетки располагалl= 0;сь вплотную друг к другу, заменить (c*(i - 1), = c*(j - 1), c*i – 1, c*j – 1) н&= #1072; (c*(i - 1), c*(j - 1), = c*i , c*j }

end= ;

end;

Выделе = 85;ный объект	Вкладк = 72; окна Object Inspector	Имя свойства/ имя события	Действ = 80;е
Form1	Properties	Caption	Установ= 082;а имени формы «Узор»
Events	OnCreate	В процедур&#= 1077; обеспечить<= span style=3D'mso-ansi-language:EN-US'> непо= 074;торимость случ= 072;йных чисе= 083; с помощью проц= 077;дуры Randomize. Пр= 086;вести инициализа= 094;ию массива пик&#= 1089;елов.
PaintBox1 (Вкладк = 72; System)<= /span>	Properties	Height	Задать знач= 077;ние 320
Width	Задать знач= 077;ние 320
<= /o:p>		Canvas	Свойств= 072; и методы этог&#= 1086; свойства обеспечива= 102;т рисование. Метод Rect= angle рисует прямоуголь= 085;ик с заданными вершинами. Цвет контура задается свойством Pen.Colo= r, а цвет закраски – свойством Brush.Colo= r.
Timer1 (Вк = 83;адка System)	Properties	Interval	Задать значение 100 (о = 76;на десятая секунды)
Events	OnTimer	В созданной процедуре-з&#= 1072;готовке Timer1Timer описать переменные c (colo= r), up (up), d (down= ), l (left= ), r (righ= t). Но = 74;ые значения цветов записывают= 089;я в отдельном массиве NewP= oints. Написать правила, по которым будут меняться цвета.