题解 - Vijos

0

NaTuReHugh LV 9 @ 2009-07-24 13:52:08

记忆化搜索

Program P1294;

var c:array[0..10000] of longint;

b:array[0..10000] of boolean;

a:array[0..500,0..500] of integer;

i,j,n,m,tot,sum,ans:longint;

procedure Ts;

var i,j:longint;

ch:char;

begin

tot:=0; ans:=0;

readln(n,m);

for i:=1 to n do

begin

for j:=1 to m do

begin

read(ch);

if ch='0' then a:=0;

if ch='*' then a:=-1;

end;

readln;

end;

end;

procedure search(s,t:longint);

begin

if a=-1 then exit;

if a=0 then

begin

a:=1;

inc(sum);

if s-1>=1 then search(s-1,t)

else b[tot]:=false;

if s+1=1 then search(s,t-1)

else b[tot]:=false;

if t+1

0

lemon_TsyD LV 9 @ 2009-07-24 02:26:16

floodfill神奇啊~~~~

void floodfill_4(int x,int y,int o,int ne)

{

if(!(x>=0&&x=0&&y

0

fz1993322 LV 8 @ 2009-06-18 19:42:05

晕菜

终于A了

哎语文学得不好呜呜呜呜呜呜

记住

发洪水时

是从四周开始

宽搜的注意啦

0

liu199677 LV 10 @ 2009-05-11 13:15:43

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

0

快乐者 LV 8 @ 2009-05-11 12:46:29

20 20

0*0*0*00*0*0*0***|0**

*0*0*0*000*0**0*00*0

**|0*00000**|*0*0*00

***|\**|00\**|\**|*0*|0

*0*0**0**0*0*0*0*0*

0*0*0**|0*000*0*0*0*

0*0*0*0*0*0*0*0*0*0

00*0\**|\**|*0*0\*|0*0

*00*0***|\**|0\*0**0

0**|*0***|0**000000

**0**0*0*0*0*0**0\*|

*000**0*0*0\*0\**|*0

*0*0*00*0*000*0**0*0

0*0*0**00*0**0*0*0*0

*000\*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*0*0*0

**|*0*0*0*0*0*0*0**0

0*000*0**0*0*0*00000

0

恶魔旋律 LV 7 @ 2009-04-21 08:41:59

怎么出现128错误了，是我代码有问题还是编译器有问题？

0

木子日匀 LV 10 @ 2009-04-17 16:28:45

每次都是一不小心用了 integer

0

boyzkk LV 10 @ 2009-04-07 19:17:17

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

n搞成m，哀。。。

0

k103701 LV 10 @ 2009-03-25 18:44:34

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

水啊

0

tyeken8 LV 7 @ 2008-11-11 22:50:35

floodfill?

0

lyrics LV 3 @ 2008-11-11 22:03:25

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

Flood fill.

0

cath~ke LV 6 @ 2008-11-09 14:46:58

水题~只需从周围那一圈往里扩展就好~

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

核心码：

void dev(int m,int n)

{

if (b[m][n]==true)

return;

b[m][n]=true;

if (m>1&&a[m-1][n]=='0')

dev(m-1,n);

if (m1&&a[m][n-1]=='0')

dev(m,n-1);

if (n

0

cinferno LV 3 @ 2008-11-09 11:36:59

汗！！两处失误害我交了四次~~

1.把500看成250

2.250^2>integer!!

................................

编译通过...

├ 测试数据 01：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

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

├ 测试数据 03：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 04：运行时错误...|错误号: -1073741819

├ 测试数据 05：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 06：运行时错误...| 错误号: 216 | 存取非法

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

├ 测试数据 08：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 09：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 10：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

大家引以为戒！

0

jtjxhjl321 LV 3 @ 2008-11-07 04:01:38

开始没注意 500 不能用 string 读....

编译通过...

├ 测试数据 01：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

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

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

├ 测试数据 04：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 05：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 06：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

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

├ 测试数据 08：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 09：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 10：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

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

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

然后改成读 char型又没在行尾加 readln;

编译通过...

├ 测试数据 01：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 02：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 03：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 04：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 05：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 06：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 07：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 08：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 09：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 10：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

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

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

最后终于 ......

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

0

Fv.Cyc LV 3 @ 2008-11-06 16:33:40

從邊緣每一個點開始Depth First Searching麽。

很久沒這麽爽過了 = =

一星半留念.....

寬搜貌似也可以吧..

不過咱還是比較喜歡一些有深度的東西XDDDD

0

月光疾风 LV 3 @ 2008-10-29 21:57:37

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

这是我AC的第100题：首先我要感谢VIJOS给了我这个机会，我还要感谢CCTV，JJTV，HNTV。。。。。。。。。。。。。。。。。。。。。。。。。。。（别鄙视我，我太激动了。。。。。。。）

我还是写下我的方法吧。

我的解法：

置两层边框，内层赋为‘0’，外层赋为‘*’，首先ANS置为目前所有的‘0’的和（包括边框），然后从（0，0）点做BFS，做到‘0’则ANS减 1，并把该点置为‘*’，最后ANS剩下的就是答案了！

0

db_db_Jacky LV 10 @ 2008-10-28 09:35:15

不需要dfs吧

floodfill很快

//p1294

//jj

const di:array[1..4,1..2]of integer=((0,-1),(-1,0),(0,1),(1,0));

var map:array[0..501,0..501]of char;

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

n,m,m1,n1:longint;

procedure into;

var i,j:longint;

begin

readln(n,n1);

m1:=0;m:=0;

for i:=0 to n1+1 do map[0,i]:='0';

for i:=0 to n+1 do map:='0';

for i:=0 to n+1 do map:='0';

for i:=0 to n1+1 do map[n+1,i]:='0';

for i:=1 to n do

begin

for j:=1 to n1 do

begin

read(map);

if map='*'

then inc(m);

end;

readln;

end;

end;

procedure floodfill(x,y:longint);

var i,j:longint;

begin

inc(m1);

pd[x,y]:=true;

for i:=1 to 4 do

if (x+di>=0) and (y+di>=0) and (x+di

0

qq大QQ LV 5 @ 2009-02-05 22:25:06

水呀！真的灌水了！

0

maddog LV 3 @ 2008-10-23 11:44:36

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

75th Accepts

0

stchou LV 6 @ 2008-10-21 22:17:00

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

忘了 SEARCH后付值~ 5次才AC

被水题水~~orz orz orz orz orz orz orz

题解

121 条题解

拯救OIBH总部

信息

状态

开发

支持

题解

121 条题解

拯救OIBH总部

信息

状态

开发

支持

还没有账户？

登录