没一遍AC，郁闷……竟然看成统计不连通的块数了

先是把*弄成了#

又是把墙也算成没有淹的

交了N遍......

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

too water

dfs 才是王道

FloodFill...

淹洪水...

水...

一次ac

水啊，dfs不知道通过率为什么这么低

DFS轻松搞定!

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

太弱了，一遍直接ac

直接淹水就可以了........

无语了！水成这个样子我居然还传了4遍才AC……while true do inc(rp);

就是单纯的狂搜！

随便写了个dfs就0msAC了……

DFS一次没过，郁闷。后来发现X,Y搞反了。唉，细心细心。

编译通过...

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

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

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

├ 测试数据 04：运行超时|无输出...

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

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

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

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

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

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

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

Unaccepted 有效得分：90 有效耗时：0ms

var

b:array[0..501,0..501]of boolean;

c:array[0..501,0..501]of char;

m,n,o,p,q:longint;

procedure sou(i,j:longint);

begin

b:=false;

dec(q);

if(b)and(c='0')

then sou(i+1,j);

if(b)and(c='0')

then sou(i-1,j);

if(b)and(c='0')

then sou(i,j-1);

if(b)and(c='0')

then sou(i,j+1);

end;

begin

readln(m,n);

q:=m*n;

for o:=1to m do

begin

for p:=1to n do

begin

read(c[o,p]);

b[o,p]:=true;

if c[o,p]='*'

then dec(q);

end;

readln;

end;

for o:=1to n do

if(b[1,o])and(c[1,o]='0')

then sou(1,o);

for o:=1to n do

if(b[m,o])and(c[m,o]='0')

then sou(m,o);

for o:=1to m do

if(b[o,1])and(c[o,1]='0')

then sou(o,1);

for o:=1to m do

if(b[o,n])and(c[o,n]='0')

then sou(o,n);

write(q);

end.

谁帮我改错

搜吧 灌吧 AC吧

四面灌水 ,最后求得 还剩的总部面积

很简单的啊

拯救OIBH总部 CoVH小组系列赛2 - Noip2006普及组模拟赛 系列

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

dfs

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

弱智的搜索。。。。

墙可能很厚……

OIBH真有钱啊～

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

FLOODFILL...

通过率竟然让我加了1个点！

easy dfs