Procedure TForm1. StartStopBtnClick (Sender: TObject); // процедура работает при нажатии на кнопку StartStopBtn

const WIDTH = 30; // количество клеток по высоте

HEIGHT = 25; // к-во по ширине

var x,y: Integer; // объявление переменных x и y: целые числа

Rx, Ry: Integer; // Объявление Rx Ry: целые

// объявление двумерного массива с именем Field размерности 0.31 на 0.26, сюда заносятся данные о том, где расположены клетки, тип данных в массиве - булевы значение. То есть, истина, ложь, если в поле Field [0,0], например значение true, это значит, что на позиции [0,0] живёт клетка, а если Field [22,15] имеет значение false, то в клетке с координатами 22,15 клетки нет, то Field: array [0. WIDTH + 1, 0. HEIGHT + 1] of Boolean;

// объявление массива Changes такой же размерности, куда заносятся данные о изменениях, где что умерло/зародилось

Changes: array [0. WIDTH + 1, 0. HEIGHT + 1] of Boolean;

// объявление s, i,j и l как целых чисел, i,j - для задания счётчиков циклов, s - счётчик соседей для клетки

s, i, j: Integer;

l: integer;

begin // начало непосредственной работы

l: =1;

// if IsRunning then

// если название кнопки "Стоп", тогда

if (StartStopBtn. Caption='Стоп') then

begin

// IsRunning: ='false';

// переименовываем её в "Пуск"

StartStopBtn. Caption: ='Пуск';

// выходим из процедуры

Exit;

end;

// если там не вышли и дошли до сюда, переименовываем кнопку в "Стоп"

StartStopBtn. Caption: = 'Стоп';

// Is Running: = true;

// вычисляем радиусы для рисования эллипсов-клеток

// радиус по иксу - ширина Img (поля, где всё рисуется), делённая на количество клеток с остатком

// (div - остаток от деления) и делённая на 2

Rx: = (Form1. Img. Width div WIDTH) div 2;

// аналогично для y, но высота Img и кол-во клеток по вертикали

Ry: = (Form1. Img. Height div HEIGHT) div 2;

Form1. Img. Canvas. Refresh; { очистка Img }

// запускаем два цикла, по горизонтали и вертикали, чтобы пройтись по всем значениям матриц Field и Changes

for i: = 0 to WIDTH + 1 do

for j: = 0 to HEIGHT + 1 do

begin

Field [i, j]: = false; // чистим поле, обнуляем локации клеток, живых клеток нет

Changes [i, j]: = false; // массив с изменениями тоже чистим

end;

{ здесь внести строки, задающие конфигурацию инфузорий }

// тут запускаем так же два цикла, чтобы пройтись по всему Dataset'у StgStart, считать нарисованное там расположение клеток и заполнить в программе поля с соответствующими координатами, т.е., указать, где клетки расположены

For i: to 30 do

For j: to 25 do

begin

If StgStart. Cells [i,j] <>'' then // если текущая клетка, до координат которой сейчас дошли в циклах не пуста, то заполняем поле значением "true", то есть, в поле [.,.] есть клетка

Field [i+1,j+1]: =true;

end;

// while IsRunning do { основной цикл }

// пока на кнопке надпись "Стоп", выполняем

while StartStopBtn. Caption='Стоп' do

begin

{ отображение текущего состояния }

// два цикла, считать значения из массива Field, узнать, где живые клетки и отрисовать их

// запускаем циклы

for i: = 1 to WIDTH do

for j: = 1 to HEIGHT do

begin

// если значение поля с координатами, до которых дошли в цикле равно правде

// (здесь можно было написать if (Field [i,j] =true), но это можно опускать, так как по умолчанию в условии if проверяется, получим ли мы правду или ложь, а так как если Field [i,j] =true, то мы получим и что условие if равно true, поэтому можно просто сразу проверять, true или false в if получилось, проверив только,

// чему равно значение Field [i,j])

if Field [i, j] then

// тогда цвет кисти - голубой

Form1. Img. Canvas. Pen. Color: = clBlue

// иначе

else

// цвет кисти выбираем нейтральный, цвет "лица кнопки"

Form1. Img. Canvas. Pen. Color: = clBtnFace;

// рисуем тем цветом, который выбрали эллипс

Form1. Img. Canvas. Ellipse ( (2*i - l) *Rx - Rx, (2*j - l) *Ry - Ry, (2*i - l) *Rx + Rx, (2*j - l) *Ry + Ry);

end;

// опять циклы, чтобы по всем клеткам пройтись

for x: = 1 to WIDTH do

for y: = 1 to HEIGHT do

begin { для каждой клетки поля }

s: = 0; { подсчет соседей }

for i: = - 1 to 1 do

for j: = - 1 to 1 do

// Функция Ord возвращает целочисленное значение для любого перечислимого типа Arg

// чтобы найти, сколько соседей вокруг

s: = s + Ord (Field [x + i] [y + j]);

s: = s - Ord (Field [x] [y]);

{ если произошло рождение или смерть }

// если в поле с текущими координатами клетки нет и соседей 3 или если клетка есть и соседей <2 или >3, тогда

if ( (Field [x, y] = false) and (s = 3)) or ( (Field [x, y] = true) and ( (s < 2) or (s > 3))) then

// в ячейку массива с изменениями с текущими координатами заносим "правда", тут будет клетка

Changes [x, y]: = true;

end;

{ внесение изменений }

// циклы

for x: = 1 to WIDTH do

for y: = 1 to HEIGHT do

// если в массиве Changes ячейка с координатами x,y = правде, то есть, если в массиве с изменениями на этом месте числится клетка,

if Changes [x, y] then

// то

begin

// пауза 50

Sleep (50);

Field [x, y]: = not Field [x, y]; { меняем состояния на }

Changes [x, y]: = false; // противоположные, где не было клетки - будет в массиве Field, в массиве Changes отмечаем таким образом

// что изменения внесены

end;

// пауза 100

Sleep (100);

//

Application. ProcessMessages;

end;

end;

procedure TForm1. StgCleanClick (Sender: TObject);

var i: integer;

begin

For i: to 30 do

// цикл по количеству столбцов

StgStart. Cols [i]. Clear; // Очищается столбец с номером i

end;

procedure TForm1. StgStartSelectCell (Sender: TObject; ACol, ARow: Integer;

var CanSelect: Boolean); // тут отрисовка расположения клеток в StgStartStop

begin

If (StgStart. Cells [ACol, ARow] <>'*') then // Если в выделенной клетке нет звёздочки,

StgStart. Cells [ACol, ARow]: ='*' // рисуем её там

else // иначе

StgStart. Cells [ACol, ARow]: =''; // удаляем (чтобы отдельно чистить не пришлось)

end;

end.

2.4 Проектирование графического интерфейса

· окно стартовой формы - Form 1;

3.2 Практический материал по созданию модели "Жизнь"

Для начала работы нужно запустить Delphi 7. На появившейся форме создадим 2 кнопки: Button (Рис.8). Кнопка находится во вкладке Standard. Задаем имена кнопкам, это можно сделать в окне Object Inspector, в строке Caption. Назовем их "Старт" и "Очистить поле".

Рис.8. Форма, на которую добавляем 2 кнопки (Button)

Далее создадим поле String grid (Рис.9), в которой в будущем задавать положение клеток. String grid находится во вкладке Additional.

Рис.9. Добавление String grid на форму

Зададим размерность поля. Чтобы это сделать нужно ввести нужные данные в Object Inspector. Находим 2 строчки: ColCount и RowCount. Вводим значения.

Также добавим окно Img (Рис.10), в котором в дальнейшем будут изображаться нарисованные нами клетки в String grid. Img находится во вкладке Additional.

Рис.10. Добавление Img на форму

Форма модели готова, осталось ее запрограммировать.

Заключение