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: 1295
    User: HansBug
    Language: Pascal
    Result: Accepted
    Time:3820 ms
    Memory:54448 kb
****************************************************************/
 
const
        xx:array[1..4] of longint=(1,0,-1,0);
        yy:array[1..4] of longint=(0,1,0,-1);
var
        a:array[1..35,1..35,1..35,1..35,0..35] of boolean;
        b:array[1..35,1..35,1..35,1..35] of boolean;
        c:array[1..35,1..35] 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:=1 to 4 do begin
                        x:=x2+xx[i]; y:=y2+yy[i];
                        if (x>0) and (x<=n) and (y>0) and (y<=m) then
                begin
                                    if (c[x,y]=false) and (zz+1<=t) and (a[x1,y1,x,y,zz+1]=false) then
                        begin
                                                a[x1,y1,x,y,zz+1]:=true;
                                                dfs(x1,y1,x,y,zz+1);
                                        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:=1 to n do
        begin
                    for j:=1 to m do
                begin
                                read(ch);
                                if ch='1' then c[i,j]:=false;
                        end;
                    readln;
            end;
        for i:=1 to n do
                for j:=1 to m do
                        if c[i,j]=true then
                           dfs(i,j,i,j,0)
                        else
                            if t>0 then dfs(i,j,i,j,1);
        max:=0;
        for i:=1 to n do
                for j:=1 to m do
                        for ii:=1 to n do
                                for jj:=1 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:0:6);
end.