搞什么,这么水的我还以为是赛题送分题,才审核通过的

LK也真是,不给我说过就把题目显示了

那个出题的.难道是故意的?

果然够水……但还是耗费了我半个小时……

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

果然够水.

在DFS一开始注意了只有一个点的情况,却忘了初始化ans数组,悲剧了......

直接DFS,裸的.

八十分的原因 ! 一次提交的教训 !

注意只有一个起点可以开发的情况!

我发誓~~

这个题目绝对比比赛中最简单的题目还要简单~~~

下一题比比赛中最难的程序还要难~~~

期待比赛~~~

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

无语了，好水的一题……不过这个题目还真是不清楚，n和m也没有说明,蒙了一个，幸好rp好……

真的有加强版也...

http://acm.pku.edu.cn/JudgeOnline/problem?id=3603

搜两次ac

提供一组fenghao的数据

开始我错的程序过不了，但ac了...

现在可以了...

so...过了这个基本可以ac...

5 5

1111S

11111

11110

11101

11111

22

(1,5)

(1,4)

(1,3)

(1,2)

(1,1)

(2,1)

(2,2)

(2,3)

(2,4)

(3,4)

(3,3)

(3,2)

(3,1)

(4,1)

(5,1)

(5,2)

(4,2)

(4,3)

(5,3)

(5,4)

(5,5)

(4,5)

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

水题交了2次

for i:=1 to m do

for j:=1 to n do

m是行数，n是列数（绝大部分题目都是这样吧。。提交前我只看了题目）。一次AC。。

为了更直观，给个自己编的数据：

3 3

101

1S1

110

输出：

5

(2,2)

(3,2)

(3,1)

(2,1)

(1,1)

猥琐的ans+1~~~~~

输入第一个是列数。。。

以先上后左再右然后下顺序扩展。

是M在前还是N？

5*5.......

一次AC。。。。代码懒得贴。。

竟然是5*5矩阵的搜索。。Orz

搞不懂为什么这题AC率这么低....

一次AC..

当然有

至少我是那么做得

水题一道。。睡前轻松AC。。

真的是乱搞都能过。。反正我是用了一个非常非常水的方法记录路径的。。估计数据范围再大点就挂了。。

另外回lx。。我就是DFS。。下面是我的水程序。。大家bs我吧。。

procedure dfs(i,j,d,now:longint);

var dir,ti,tj:longint;

begin

v:=true; f:=d;

if now>max then

begin

max:=now;

ei:=i; ej:=j; g:=f;

end;

for dir:=1 to 4 do

begin

ti:=i+di[dir]; tj:=j+dj[dir];

if inarea(ti,tj) and (not v[ti,tj]) then dfs(ti,tj,dir,now+1);

end;

v:=false;

end;

深搜过不掉吗？

附程序，望大牛看一下，60分，4个点“程序输出比正确答案长”

var a:array[1..5,1..5] of char;

v:array[1..25,1..2] of integer;

i,j,n,m,p,q:longint;

max:longint;

function hg(q,w:longint):boolean;

begin

if (q>=1) and (w>=1) and (q

我也占位子

我要样例。。。。