1295: [SCOI2009]最长距离

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.