const

c:array[1..2,1..8]of integer=

((-1,1,0,0,-1,1,-1,1),(0,0,-1,1,-1,-1,1,1));

var

max,m,n,t,i,j,l,k:longint;

a,b:array[0..120,0..120]of char;

begin

read(m,n,t);

for i:=1 to n do

begin

for j:=1 to m do

read(a);

readln;

end;

for l:=1 to t-1 do

begin

for i:=1 to n do

for j:=1 to m do

begin

max:=0;

if a='1'

then begin

for k:=1 to 8 do

if a[i+c[1,k],j+c[2,k]]='1'

then inc(max);

if (max=2)or(max=3)

then b:='1'

else b:='0';

end;

if a='0'

then begin

for k:=1 to 8 do

if a[i+c[1,k],j+c[2,k]]='1'

then inc(max);

if max=3

then b:='1'

else b:='0';

end;

end;

a:=b;

end;

writeln;

for i:=1 to n do

begin

for j:=1 to m do

write(a);

if ij

then

writeln;

end;

end.

总是T

每次超时点还不一样!!!

交了3次才过(人少的时候才过的)

AC200题纪念

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 9ms

├ 测试数据 10：答案正确... 9ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：18ms

10分的注意,理解的问题.

不能只用一个数组,要开两个,保存上一状态,然后推出t秒

另外m,n我就不说了

Program P1415;

Type

node=record

x,y:integer;

end;

Var

a:array[1..100,1..100] of integer;

m,n,t,i0,j0:longint;

b:array[1..8] of node;

str1:string;

Procedure print;

Var

p,q:longint;

Begin

for p:=1 to m-1 do

begin

for q:=1 to n do

write(a[p,q]);

writeln;

end;

for q:=1 to n do

write(a[m,q]);

End;

Procedure try(e:longint);

Var

d,a0,c:array[1..100,1..100] of integer;

i,j,p:longint;

Begin

if e>t then print

else

begin

fillchar(c,sizeof(c),0);

d:=a;

a0:=a;

for i:=1 to m do

for j:=1 to n do

begin

for p:=1 to 8 do

if a[i+b[p].x,j+b[p].y]=1 then inc(c);

if (a=1)and((c>3)or(c

【急疯ed~】谁能帮我看看这个程序啊～

const

x:array[1..8] of integer=(-1,-1,-1,0,0,1,1,1);

y:array[1..8] of integer=(-1,0,1,-1,1,-1,0,1);

var

a:array[1..100,1..100] of integer;

b:array[0..1,1..100,1..100] of integer;

m,n,t,p,q,c,flag,flag1,temp:integer;

procedure fbc(fxl:integer);

var

j,k,i:integer;

begin

if fxl=1 then begin

for j:=1 to m do

begin

for k:=1 to n do

write(a[j,k],' ');

writeln;

end;

end

else begin

for j:=1 to m do

for k:=1 to n do

begin

b[flag,j,k]:=b[flag1,j,k];

if ((b[flag1,j,k]>3) or (b[flag1,j,k]0) and ((j+x[i])0) and ((k+x[i])0) and ((j+x[i])0) and ((k+x[i])0) and ((p+x[c])0) and ((q+x[c])

处理第T秒的情况之前一定要记得先将第T秒的状态初始化为上一秒处理之后的状态！

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

Trible Kill!

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

第t秒!!

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

用两个数组就行了，朴素的秒杀！→の

编译通过...

此题恶心于两点，费我2时

1. 0是死的，1是活的

2. M，N反着来

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

33行

请大牛指点#include

main()

{int n,m,t,i,j,p,q,s=0,c;

scanf("%d%d%d\n",&n,&m,&t);

char a[101][101],b[101][101];

for(i=1;i

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

输入有问题。。连挂5次，改成char 才过

case count(x,y,a) of

0:b[x,y]:=0; {这行没写连挂4次（狂晕不止），看来写代码还是要严谨}

1:b[x,y]:=0;

2:b[x,y]:=1;

3:b[x,y]:=1;

4:b[x,y]:=0;

5:b[x,y]:=0;

6:b[x,y]:=0;

7:b[x,y]:=0;

8:b[x,y]:=0;

end

{1.t=1时需要单独考虑！！

2.读入时注意m,n顺序，用char类型记录数组}

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

m,n看反了，错了10次！

#include

using namespace std;

bool N[105][105],N1[105][105];

int m,n,t;

int A(int a,int b)

{

int k;

k=N[a-1]+N[a-1]+N[a-1]+N[a+1]+N[a+1]+N[a+1];

k+=N[a]+N[a];

return k;

}

main ()

{

cin>>m>>n>>t;

char s[104];

for (int i=0;i

呵呵,看来我比楼下几位都细心些,一便AC,超爽!!

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

#include

#include

using namespace std;

ifstream fin("p1415.in");

ofstream fout("p1415.out");

string s[102];

int a[102][102],t,n,m,p[102][102];

int g(int i,int j)

{

return(a[j]+a[j]+a[j+1]+a[j+1]+a[j-1]+a[j-1]+a[i][j+1]+a[i][j-1]);

}

main()

{

fin>>m>>n>>t;

int i,j,k,q;

for(i=1;i>s[i];

for(i=1;i

我估计我这题总得10分是因为我程序里没啥主要核心代码- -|||太囧了 我就奇怪这么简单的题我交了2遍还没过

其实这题挺简单的，写题解的时候发现错误了……一个简单的判断语句的or写成and了，唉

我没啥思路，我们同学的话说叫“暴力模拟乱裸搜”- -

主要代码：for k:=i-1 to i+1 do for x:=j-1 to j+1 do if(ik)and(jx)and(k>=0)and(k=0)and(x

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 25ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：25ms

交了3次，阴阿。。。。。。。。。。。。