19 条题解
-
0hwwyx LV 10 @ 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.
有点长 -
02012-10-18 16:57:18@
此坑爹题的详尽解答与代码,见:
http://hi.baidu.com/samroxas/item/af46892259c596fc50fd87d2 -
02012-09-23 10:58:51@
十分感谢a894844523.....
还有就是地图中可能没有鸭子!!!!!!!!!! -
02009-10-27 18:59:28@
同学跟课桌是干什么用的?能挡住老师视线不?。。。
-
02009-09-06 19:45:16@
每一句话看似鸭子呱呱呱,其实暗藏玄机。。。。。。
这印证了,我们不仅要追求正确,而且要追求苛刻条件下的正确 -
02009-10-30 20:44:47@
郁闷死了,自己编的题目还交了两遍才过………………
楼上的这位仁兄什么意思啊………………………………
- - |||||
怎么突然跳到顶楼来了……………………………………
- - |||||
-
02009-08-06 19:08:57@
自己看一下貌似模拟出来样例了 = = 。。。
-
02009-07-21 16:01:54@
下面简单的说一下此题要注意的地方:
***|\**|以免更多的人被阴了\**|\**|*
1:输入时老师或鸭子没在教室--》直接输出answer;
2:注意边界--》在第一行不能向北走,在n行不能向南走(东西我没考虑但A了)......;
3:老师的路线小于时间时路线是循环的
如样例一:老师路线是:NEWSNE
4:数据中有三个S是空集(容易200*被0除*);
5:走不了就原地不动但要转向;
6:老师的视线:(这是回答 Kanon 的)
。。》
。》》
A》》
。》》
。。》 -
02009-02-03 09:35:22@
此题 无语了!
权当花AC率买个教训
不能AC的可以去看讨论
看了肯定知道被阴在哪 -
02008-11-07 21:44:10@
这题啥意思哦?样例一怎么弄出来的诶 ?看不懂诶 ToT
-
02008-10-22 11:51:05@
出者语文水平有限。
-
02008-09-06 13:50:49@
BS莫问忘情水,没通过还说通过,强烈BS
-
02008-07-27 18:28:19@
原来老师是按照那个模式来回走,残念~
-
02008-07-21 08:31:43@
貌似挺好玩的,但是看不懂题目。囧……
-
02008-07-17 13:33:48@
老师的视野是A还是B?(朝东,》——视野)
。。》
。》》
A》》
。》》
。。》。。》
B》》
。。》
谁把样例分析一下
这题太猛了 -
02008-07-17 18:51:24@
终于过了。。。。我恨这道题
-
02008-07-19 12:36:30@
看不懂题目!!!
什么时间啊,什么意思?
走完后还剩下不少时间那么老师就不动了?可是样例数据都看不懂。 -
02008-07-16 20:03:51@
样例1中teacher第二步怎么向E走?
-
02008-07-16 19:56:39@
那我地下室好了
- 1