Игра Жизнь

[BDA]

const
  s = 50;

map1,map2: array[0..s-1,0..s-1] of Tkletka;
 
for i := 0 to s-1 do
  for j := 0 to s-1 do begin
    count:=0;
    for k := i-1 to i+1 do
      for m := j-1 to j+1 do
        inc(count, ord(map1[(k+s) mod s, (m+s) mod s].life));
    dec(count, ord(map1[i, j].life));

[marwell.]

Сообщение от BDA

const
  s = 50;

map1,map2: array[0..s-1,0..s-1] of Tkletka;
 
for i := 0 to s-1 do
  for j := 0 to s-1 do begin
    count:=0;
    for k := i-1 to i+1 do
      for m := j-1 to j+1 do
        inc(count, ord(map1[(k+s) mod s, (m+s) mod s].life));
    dec(count, ord(map1[i, j].life));

спасибо! а получается поле обязательно должно быть квадратным?

[BDA]

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

const
  s = 50;
  p = 70;

map1,map2: array[0..s-1,0..p-1] of Tkletka;
 
for i := 0 to s-1 do
  for j := 0 to p-1 do begin
    count:=0;
    for k := i-1 to i+1 do
      for m := j-1 to j+1 do
        inc(count, ord(map1[(k+s) mod s, (m+p) mod p].life));
    dec(count, ord(map1[i, j].life));

[marwell.]

BDA, спасибо