Biotech

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。
做法：按要求不断更新就好了

var  f:array[0..101,0..101,0..101] of longint;  n,m,t,i,j,k:longint; s:string;function check(a,b,c:longint):longint;begin  exit(f[a+1,b,c]+f[a-1,b,c]+f[a,b+1,c]+f[a,b-1,c]+f[a+1,b+1,c]+f[a+1,b-1,c]+f[a-1,b+1,c]+f[a-1,b-1,c]);end;begin  assign(input,'biotech.in'); reset(input);  assign(output,'biotech.out'); rewrite(output);  readln(n,m,t);  for i:=1 to n do    begin      readln(s);      for j:=1 to m do        if s[j]='1' then f[i,j,0]:=1;    end;  for k:=1 to t do   for i:=1 to n do    for j:=1 to m do      begin        if check(i,j,k-1)<2 then f[i,j,k]:=0;        if check(i,j,k-1)=2 then f[i,j,k]:=f[i,j,k-1];        if check(i,j,k-1)=3 then f[i,j,k]:=1;        if check(i,j,k-1)>3 then f[i,j,k]:=0;      end;  for i:=1 to n do    begin      for j:=1 to m do        write(f[i,j,t]);      writeln;    end;  close(input); close(output);end.