VPF::клеточный автомат - Форум программистов

mandarinka27

Дата 30.3.2015, 19:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 25.12.2008

Репутация: нет
Всего: нет

Добрый вечер! Необходимо реализовать алгоритм похожий на клеточный автомат Жизнь. Есть клеточное поле в произвольной клетке появляется микроорганизм (1), каждый день микроорганизм делится на 2, если у микроорганизма 8 смежных соседей то он погибает (0). Делаю двумерный массив, random заполняет произвольную клетку. Вопрос как запомнить в какой клетке есть уже организм т.к размер поля заранее не известен?

Код


repeat 
if ((i-1)<>0) and ((j-1)<>0) then c:= a[i-1,j-1]+a[i-1,j]+a[i-1,j+1]+a[i+1,j-1]+a[i+1,j]+a[i+1,j+1]+a[i,j+1]+a[i,j-1]; 
If (a[i, j] = 1) And (c =8) Then a[i, j]:= 0; 
if a[k1, k2] = 1 then 
begin 
rep: K1 := Random(k1+1)+k1-1; 
K2 := Random(k2+1) + k2-1; 
if A[k1, k2]=0 then 
A[k1, k2] := 1 
else goto rep; 
end; 
i:=i+1; j:=j+1; c:=0; 
until (i=int(d)) and (j=int(d)); 
for i:=1 to k+1 do 
begin 
for j:=1 to k+1 do 
st.Cells[i,j]:= inttostr(a[i,j]); 
end;

Это сообщение отредактировал(а) Poseidon - 31.3.2015, 08:35

Antimol

Дата 16.6.2015, 09:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 118
Регистрация: 28.7.2007
Где: Украина, Киев

Репутация: нет
Всего: 4

Цитата

Делаю двумерный массив

Если вы делаете двумерный массив, значит у вас размер поля известен - он равен величине массива, соответственно можно обратиться к элементам поля.

--------------------

Лучшее спасибо это "+" к репутации. Мой блог: ИНФОРМАТИЗАЦИЯ, и mirsovetov.net. Написание программ, исправление ошибок, статьи....

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »