Question

pascal问题解答

细菌的繁殖与扩散
题目描述
在边长为9的正方形培养皿中，正中心位置有m个细菌。假设细菌的寿命仅一天，但每天可繁殖10个后代，而且这10个后代，有两个分布在原来的单元格中，其余的均匀分布在其四周相邻的八个单元格中。求经过n(1≤n≤4)天后，细菌在培养皿中的分布情况。

输入
输入为两个整数，第一个整数m表示中心位置细菌的个数（2 ≤ m ≤ 30），第二个整数n表示经过的天数（1 ≤ n ≤ 4）。

输出
输出九行九列整数矩阵，每行的整数之间用空格分隔。整个矩阵代表n天后细菌在培养皿上的分布情况。

样例输入
2 1
样例输出
0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0
0 0 0 2 2 2 0 0 0
0 0 0 2 4 2 0 0 0
0 0 0 2 2 2 0 0 0
0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0

Answer 1

Pascal源码：

var a,b:array[0..10,0..10]of word;i,j,k,l,p:word;begin read(k,l);fillchar(a,sizeof(a),0);a[5,5]:=k;for p:=1 to l do begin for i:=1 to 9 do for j:=1 to 9 do b[i,j]:=a[i,j]*2+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];for i:=1 to 9 do for j:=1 to 9 do a[i,j]:=b[i,j];end;for i:=1 to 9 do begin for j:=1 to 9 do write(a[i,j],' ');writeln;end;end.

追问

输出格式不正确