特长生模拟——Biotech

题目大意：
一个n*m的矩阵每个格子都有一个细胞。
每个细胞有两个状态：放电/平静。
它们每秒钟都会按以下的规则转换状态：
首先我们定义，一个细胞的邻居为它周围的8个细胞。同时设k为某一个细胞的处于放电状态的邻居的个数。
分4种情况讨论：
1.k<2，则这个细胞在下一秒因电量不足而变为/保持平静状态。
2.k=2，则这个细胞在下一秒保持原来的状态。
3.k=3，则这个细胞在下一秒因得到充足的电量而变为/保持放电状态。
4.k>3，则这个细胞在下一秒因过载而变为/保持平静状态。
Bob想预测t 秒后这些细胞的状态。

1≤n，m≤100 0≤t≤100

题解：
直接模拟就可以了：
每一秒都枚举每一个细胞的放电的邻居的个数，然后判断一下改变状态。
时间复杂度:O(NMT)

const
   dx:array [1..8] of longint=(0,0,-1,-1,-1,1,1,1);
   dy:array [1..8] of longint=(-1,1,0,-1,1,-1,0,1);
var
   a:Array [0..101,0..101] of longint;
   b:array [0..101,0..101] of boolean;
   i,j,k,l,p,n,m,t:longint;
   x:char;
begin
   assign(input,'biotech.in'); reset(input);
   assign(output,'biotech.out');rewrite(output);
   readln(n,m,t);
   for i:=1 to n do
   begin
       for j:=1 to m do
       begin
            read(x);
            if x='1'
               then begin
                        b[i,j]:=true;
                        for k:=1 to 8 do
                            inc(a[i+dx[k],j+dy[k]]);
                    end
               else b[i,j]:=false;
       end;
       readln;
   end;
   for l:=1 to t do
       begin
            for i:=1 to n do
                for j:=1 to m do
                begin
                    if (a[i,j]<2) or (a[i,j]>3)
                       then b[i,j]:=false
                       else if a[i,j]=3 then b[i,j]:=true;
                    a[i,j]:=0;
                end;
            for i:=1 to n do
                for j:=1 to m do
                    if b[i,j] then
                    begin
                       for k:=1 to 8 do
                           inc(a[i+dx[k],j+dy[k]]);
                    end;
       end;
   for i:=1 to n do
   begin
       for j:=1 to m do
           if b[i,j] then write(1)
                     else write(0);
       writeln;
   end;
   close(input); close(output);
end.