题解

19 条题解

  • 0
    @ 2013-08-13 16:49:04

    给大家看一下我这个菜鸟的程序吧
    var
    a:array[0..201,0..201]of char;
    n,m,i,j,k,l,sum,ti,tj,di,dj,bi,bj:longint;
    s:string;

    procedure n1;
    begin
    if (ti<>1)and(a[ti-1,tj]<>'D')and(a[ti-1,tj]<>'#')and(a[ti-1,tj]<>'&') then dec(ti);
    bi:=ti-di;
    bj:=abs(tj-dj);
    if not(bj<=bi) then inc(sum);
    end;

    procedure e1;
    begin
    if (tj<>m)and(a[ti,tj+1]<>'D')and(a[ti,tj+1]<>'#')and(a[ti,tj+1]<>'&') then inc(tj);
    bi:=abs(ti-di);
    bj:=dj-tj;
    if not(bi<=bj) then inc(sum);
    end;

    procedure w1;
    begin
    if (tj<>1)and(a[ti,tj-1]<>'D')and(a[ti,tj-1]<>'#')and(a[ti,tj-1]<>'&') then dec(tj);
    bi:=abs(ti-di);
    bj:=tj-dj;
    if not(bi<=bj) then inc(sum);
    end;

    procedure s1;
    begin
    if (ti<>n)and(a[ti+1,tj]<>'D')and(a[ti+1,tj]<>'#')and(a[ti+1,tj]<>'&') then inc(ti);
    bi:=di-ti;
    bj:=abs(tj-dj);
    if not(bj<=bi) then inc(sum);
    end;

    begin
    readln(n,m);
    for i:=1 to n do
    begin
    for j:=1 to m do read(a[i,j]);
    readln;
    end;
    readln(s);
    readln(l);
    for i:=1 to n do
    for j:=1 to m do
    begin
    if a[i,j]='D' then
    begin
    di:=i;
    dj:=j;
    end
    else if a[i,j]='T' then
    begin
    ti:=i;
    tj:=j;
    end;
    end;
    //writeln(di,' ',dj);
    //writeln(ti,' ',tj);
    if (di=0)or(ti=0) then
    begin
    writeln(l);
    halt;
    end;
    //writeln(s);
    a[ti,tj]:='.';
    k:=0;sum:=0;
    if s<>'' then
    begin
    //writeln('Y(U.U)Y');
    for i:=1 to l do
    begin
    inc(k);
    if k>length(s) then k:=1;
    case s[k] of
    'N':n1;
    'E':e1;
    'W':w1;
    'S':s1;
    end;
    end;
    end
    else
    begin
    //writeln('Y(U^U)Y');
    bi:=ti-di;
    bj:=abs(tj-dj);
    //writeln(bi,' ',bj);
    if not(bj<=bi) then sum:=l
    else
    begin
    writeln('55555~~');
    halt;
    end;
    end;
    if sum>0 then writeln(sum)
    else writeln('55555~~');
    end.
    有点长

  • 0
    @ 2012-10-18 16:57:18

    此坑爹题的详尽解答与代码,见:

    http://hi.baidu.com/samroxas/item/af46892259c596fc50fd87d2

  • 0
    @ 2012-09-23 10:58:51

    十分感谢a894844523.....

    还有就是地图中可能没有鸭子!!!!!!!!!!

  • 0
    @ 2009-10-27 18:59:28

    同学跟课桌是干什么用的?能挡住老师视线不?。。。

  • 0
    @ 2009-09-06 19:45:16

    每一句话看似鸭子呱呱呱,其实暗藏玄机。。。。。。

    这印证了,我们不仅要追求正确,而且要追求苛刻条件下的正确

  • 0
    @ 2009-10-30 20:44:47

    郁闷死了,自己编的题目还交了两遍才过………………

    楼上的这位仁兄什么意思啊………………………………

    • - |||||
      怎么突然跳到顶楼来了……………………………………
  • 0
    @ 2009-08-06 19:08:57

    自己看一下貌似模拟出来样例了 = = 。。。

  • 0
    @ 2009-07-21 16:01:54

    下面简单的说一下此题要注意的地方:

    ***|\**|以免更多的人被阴了\**|\**|*

    1:输入时老师或鸭子没在教室--》直接输出answer;

    2:注意边界--》在第一行不能向北走,在n行不能向南走(东西我没考虑但A了)......;

    3:老师的路线小于时间时路线是循环的

    如样例一:老师路线是:NEWSNE

    4:数据中有三个S是空集(容易200*被0除*);

    5:走不了就原地不动但要转向;

    6:老师的视线:(这是回答 Kanon 的)

    。。》

    。》》

    A》》

    。》》

    。。》

  • 0
    @ 2009-02-03 09:35:22

    此题  无语了!

    权当花AC率买个教训

    不能AC的可以去看讨论

    看了肯定知道被阴在哪

  • 0
    @ 2008-11-07 21:44:10

    这题啥意思哦?样例一怎么弄出来的诶 ?看不懂诶 ToT

  • 0
    @ 2008-10-22 11:51:05

    出者语文水平有限。

  • 0
    @ 2008-09-06 13:50:49

    BS莫问忘情水,没通过还说通过,强烈BS

  • 0
    @ 2008-07-27 18:28:19

    原来老师是按照那个模式来回走,残念~

  • 0
    @ 2008-07-21 08:31:43

    貌似挺好玩的,但是看不懂题目。囧……

  • 0
    @ 2008-07-17 13:33:48

    老师的视野是A还是B?(朝东,》——视野)

    。。》

    。》》

    A》》

    。》》

    。。》

    。。》

    B》》

    。。》

    谁把样例分析一下

    这题太猛了

  • 0
    @ 2008-07-17 18:51:24

    终于过了。。。。我恨这道题

  • 0
    @ 2008-07-19 12:36:30

    看不懂题目!!!

    什么时间啊,什么意思?

    走完后还剩下不少时间那么老师就不动了?可是样例数据都看不懂。

  • 0
    @ 2008-07-16 20:03:51

    样例1中teacher第二步怎么向E走?

  • 0
    @ 2008-07-16 19:56:39

    那我地下室好了

  • 1

信息

ID
1365
难度
6
分类
模拟 点击显示
标签
(无)
递交数
304
已通过
73
通过率
24%
被复制
2
上传者