小小小学生 2009-02-02 02:28:00
点我顶贴
收藏
删除
程序如下：
program li；
const c:array[1..8,1..2] of integer=((1,0),(0,1),(-1,0),(0,-1),(1,1),(1,-1),(-1,1),(-1,-1))；
var n,m,t,i,j,k,time,temp:longint；
a1:array[1..100,1..100] of char；
a,b:array[1..100,1..100] of integer；
begin
readln(m,n,time)；
for i:=1 to n do
begin
for j:=1 to m do begin read(a1[i,j])； a[i,j]:=ord(a1[i,j])-48； end；
readln；
end；
b:=a； t:=1；
while t<time do
begin
inc(t)；
b:=a；
for i:=1 to n do
for j:=1 to m do
begin
temp:=0；
for k:=1 to 8 do
if (i+c[k,1]>0) and (i+c[k,1]<=n) and
(j+c[k,2]>0) and (j+c[k,2]<=m) then
if b[i+c[k,1],j+c[k,2]]=1 then inc(temp)；
if temp<>3 then a[i,j]:=0；
end；
end；
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j])； writeln；
end；
end.
我还想今晚过90呢。。。。555555555555