NOIP 2017 提高组 奶酪___dfs

题目大意：

题解：

这题有多种做法，我来讲讲怎么去实现dfs，虽然也可用bfs啊，并查集啊去实现，可是搜索的代码实现很容易。

①将老鼠一开始能到的空洞标记，即所有满足圆心zi-r≤0的空洞。
②以这些空洞为基础去看是否能够到达其他空洞，需满足2个圆点间距离≤2*r。
③被标记过的点除了一开始的基础点，其他不需要再次搜，大力剪枝，暴力AC。

代码：

var
         x,y,z,f:array [-5..1001] of extended;
         t,i,n,h,r:longint;
         cp:boolean;

function check(x1,y1,z1,x2,y2,z2:extended):boolean;
var
         rp:extended;
begin
         rp:=sqrt(sqr(x1-x2)+sqr(y1-y2)+sqr(z1-z2));
         if rp<=2*r then exit(true);
         exit(false);
end;

procedure dfs(dep:longint);
var
         i:longint;
begin
         for i:=1 to n do
             if f[i]=0 then
                if check(x[dep],y[dep],z[dep],x[i],y[i],z[i]) then
                   begin
                         f[i]:=-1;
                         dfs(i);
                   end;
end;


begin
         readln(t);
         f[-1]:=-1;
         while t>=1 do
           begin
                  readln(n,h,r);
                  fillchar(f,sizeof(f),0);
                  for i:=1 to n do
                      begin
                            readln(x[i],y[i],z[i]);
                            if z[i]-r<=0 then f[i]:=-1;
                      end;
                  for i:=1 to n do
                      if f[i]=-1 then dfs(i);
                  cp:=true;
                  for i:=1 to n do
                    begin
                      if not(cp) then break;
                      if f[i]=-1 then
                         if z[i]+r>=h then
                            begin
                                  writeln('Yes');
                                  cp:=false;
                            end;
                    end;
                  if cp then writeln('No');
                dec(t);
           end;
end.