2.1 题目描述 Bob 发现了一群有趣的细胞。 这群细胞排列成一个n m 的矩阵。每个细胞有两个状态：放电状态和平静 状态。它们每秒钟都会按以下的规则转换状态： 首先我们定义，一个细胞的邻居为它周围的8 个细胞。同时设k 为某一个细 胞的处于放电状态的邻居的个数。 若k < 2，则这个细胞在下一秒因电量不足而变为/保持平静状态。 若k = 2，则这个细胞在下一秒保持原来的状态。 若k = 3，则这个细胞在下一秒因得到充足的电量而变为/保持放电状态。 若k > 3，则这个细胞在下一秒因过载而变为/保持平静状态。 Bob 观察了这些细胞现在所处于的状态。他想预测t 秒后这些细胞的状态。 2.2 输入格式 第一行3 个正整数n; m; t。 接下来n 行，每行一个长度为m、只包含01 的字符串，表示每个细胞的初 始状态。’1’ 表示放电状态，’0’ 表示平静状态。 2.3 输出格式 输出n 行，每行一个长度为m、只包含01 的字符串，表示每个细胞的t 秒 后的状态。’1’ 表示放电状态，’0’ 表示平静状态。 2.4 样例输入 4 4 4 0100 0010 1110 0000 2.5 样例输出 0000 0010 0001 0111 2.6 数据范围 对于100% 的数据，1 n;m 100; 0 t 100。 3
思路
O（nmt）
模拟，判断每一个细胞下一秒的状态。
var
a:
array[
0..
500,
0..
500]
of string;
b:
array[
0..
500,
0..
500]
of longint;
i,j,k,z,n,m,t,ans:longint;
s:char;
begin
readln(n,m,t);
for i:=
1 to n
do
begin
for j:=
1 to m
do
begin
read(s);
a[i,j]:=s;
end;
readln;
end;
for i:=
1 to t
do
begin
fillchar(b,sizeof(b),
0);
for j:=
1 to n
do
for k:=
1 to m
do
if a[j,k]=
'1' then
begin
inc(b[j-
1,k]);inc(b[j+
1,k]);
inc(b[j,k-
1]);inc(b[j,k+
1]);
inc(b[j-
1,k+
1]);inc(b[j-
1,k-
1]);
inc(b[j+
1,k+
1]);inc(b[j+
1,k-
1]);
end;
for j:=
1 to n
do
for k:=
1 to m
do
if (b[j,k]<
2)
or(b[j,k]>
3)
then a[j,k]:=
'0'
else if b[j,k]=
3 then a[j,k]:=
'1';
end;
for i:=
1 to n
do
begin
for j:=
1 to m
do
write(a[i,j]);
writeln;
end;
end.
