【普及模拟】Biotech

题目描述
Bob 发现了一群有趣的细胞。
这群细胞排列成一个n m 的矩阵。每个细胞有两个状态：放电状态和平静
状态。它们每秒钟都会按以下的规则转换状态：
首先我们定义，一个细胞的邻居为它周围的8 个细胞。同时设k 为某一个细
胞的处于放电状态的邻居的个数。
若k < 2，则这个细胞在下一秒因电量不足而变为/保持平静状态。
若k = 2，则这个细胞在下一秒保持原来的状态。
若k = 3，则这个细胞在下一秒因得到充足的电量而变为/保持放电状态。
若k > 3，则这个细胞在下一秒因过载而变为/保持平静状态。
Bob 观察了这些细胞现在所处于的状态。他想预测t 秒后这些细胞的状态。
输入
第一行3 个正整数n; m; t。
接下来n 行，每行一个长度为m、只包含01 的字符串，表示每个细胞的初
始状态。’1’ 表示放电状态，’0’ 表示平静状态。
输出
输出n 行，每行一个长度为m、只包含01 的字符串，表示每个细胞的t 秒
后的状态。’1’ 表示放电状态，’0’ 表示平静状态。
样例输入
4 4 4
0100
0010
1110
0000
样例输出
0000
0010
0001
0111
数据范围
对于100% 的数据，1 n;m 100; 0 t 100。
算法讨论
数据不大，明摆着模拟。统计出周围1的个数再判断即可。

const
  maxn=105;
var
  a,b:array[0..maxn,0..maxn] of longint;
  i,j,k1,n,m,t,k:longint;
  st:string;
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(st);
      for j:=1 to m do
        val(st[j],a[i,j])
    end;
  b:=a;
  for k1:=1 to t do
    begin
      for i:=1 to n do
        for j:=1 to m do
          begin
            k:=a[i-1,j-1]+a[i-1,j]+a[i-1,j+1]+a[i,j-1]+a[i,j+1]+a[i+1,j-1]+a[i+1,j]+a[i+1,j+1];
            if k<2
              then b[i,j]:=0;
            if k=3
              then b[i,j]:=1;
            if k>3
              then b[i,j]:=0
          end;
      a:=b
    end;
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]);
      writeln
    end;
  close(input); close(output)
end.

Pixiv ID：62270190