1295: [SCOI2009]最长距离

Time Limit: 10 Sec Memory Limit: 162 MB
Submit: 960 Solved: 498
[Submit][Status][Discuss]

Description

windy有一块矩形土地，被分为 N*M 块 1*1 的小格子。有的格子含有障碍物。如果从格子A可以走到格子B，那么两个格子的距离就为两个格子中心的欧几里德距离。如果从格子A不可以走到格子B，就没有距离。如果格子X和格子Y有公共边，并且X和Y均不含有障碍物，就可以从X走到Y。如果windy可以移走T块障碍物，求所有格子间的最大距离。保证移走T块障碍物以后，至少有一个格子不含有障碍物。

Input

输入文件maxlength.in第一行包含三个整数，N M T。接下来有N行，每行一个长度为M的字符串，'0'表示空格子，'1'表示该格子含有障碍物。

Output

输出文件maxlength.out包含一个浮点数，保留6位小数。

Sample Input

【输入样例一】
3 3 0
001
001
110

【输入样例二】
4 3 0
001
001
011
000

【输入样例三】
3 3 1
001
001
001

Sample Output

【输出样例一】
1.414214

【输出样例二】
3.605551

【输出样例三】
2.828427

HINT

20%的数据，满足 1 <= N,M <= 30 ； 0 <= T <= 0 。
40%的数据，满足 1 <= N,M <= 30 ； 0 <= T <= 2 。
100%的数据，满足 1 <= N,M <= 30 ； 0 <= T <= 30 。

Source

Day2

题解：又是一道搜索水题，直接灌水大法好。。。

 /**************************************************************

     Problem:

     User: HansBug

     Language: Pascal

     Result: Accepted

     Time: ms

     Memory: kb

 ****************************************************************/

 const

         xx:array[..] of longint=(,,-,);

         yy:array[..] of longint=(,,,-);

 var

         a:array[..,..,..,..,..] of boolean;

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

         c:array[..,..] of boolean;

         n,m,i,j,ii,jj,t:longint;

         ch:char;

         max:extended;

 procedure dfs(x1,y1,x2,y2,zz:longint);

         var

                 i,j,x,y:longint;

         begin

                 b[x1,y1,x2,y2]:=true;

                 a[x1,y1,x2,y2,zz]:=true;

                 for i:= to  do begin

                         x:=x2+xx[i]; y:=y2+yy[i];

                         if (x>) and (x<=n) and (y>) and (y<=m) then

                 begin

                                     if (c[x,y]=false) and (zz+<=t) and (a[x1,y1,x,y,zz+]=false) then

                         begin

                                                 a[x1,y1,x,y,zz+]:=true;

                                                 dfs(x1,y1,x,y,zz+);

                                         end

                     else

                         if (c[x,y]=true) and (a[x1,y1,x,y,zz]=false) then

                             begin

                                                     a[x1,y1,x,y,zz]:=true;

                                                     dfs(x1,y1,x,y,zz);

                                             end;

                             end;

                 end;

         end;

 begin

         readln(n,m,t);

         fillchar(c,sizeof(c),true);

         fillchar(a,sizeof(a),false);

         fillchar(b,sizeof(b),false);

         for i:= to n do

         begin

                     for j:= to m do

                 begin

                                 read(ch);

                                 if ch='' then c[i,j]:=false;

                         end;

                     readln;

             end;

         for i:= to n do

                 for j:= to m do

                         if c[i,j]=true then

                            dfs(i,j,i,j,)

                         else

                             if t> then dfs(i,j,i,j,);

         max:=;

         for i:= to n do

                 for j:= to m do

                         for ii:= to n do

                                 for jj:= to m do

                                         if (b[i,j,ii,jj]) and (sqrt(sqr(i-ii)+sqr(j-jj))>max) then max:=sqrt(sqr(i-ii)+sqr(j-jj));

         writeln(max::);

 end.

巴特西

1295: [SCOI2009]最长距离