jzoj3450【NOIP2013模拟联考3】山峰(summits，dfs)

3450. 【NOIP2013模拟联考3】山峰(summits)

Description
作为地质学家的JIH,为了绘制地图进行了野外考察。考察结束，他得到了一张n*m的地面高度地图。为了科学研究，JIH定义了一种山峰叫做d-山峰。一个高度为h地点被称作d-山峰，只有满足从这里出发，在不经过小于等于h-d的地点的前提下无法达到比它更高的地方。JIH正纠结于怎么分礼物，标出d-山峰的任务就交给你了。
Input
第一行n,m,d

第二行开始，有一个n*m的矩阵表示地图，用空格隔开。
Output
输出d-山峰的个数。

代码

const
  maxn=500;
  dx:array[1..4] of longint=(0,-1,0,1);
  dy:Array[1..4] of longint=(1,0,-1,0);
var
  a,f:array[0..maxn,0..maxn] of longint;
  max,ans,n,m,d,i,j,f1:longint;
  fl:boolean;

function check(x,y,h:longint):boolean;
begin
  if a[x,y]<=h then exit(false);
  if f[x,y]=f1 then exit(false);
  if (x<1) or (x>n) or (y<1) or (y>m) then exit(false);
  exit(true);
end;

procedure dfs(x,y,h1,h2:longint);
var
  i:longint;
begin
  if fl then exit;
  if a[x,y]>h1 then
    begin
      fl:=true;
      exit;
    end;
  f[x,y]:=f1;
  for i:=1 to 4 do
    if check(x+dx[i],y+dy[i],h2)
       then dfs(x+dx[i],y+dy[i],h1,h2);
end;

begin
  readln(n,m,d);
  for i:=1 to n do
    for j:=1 to m do
      begin
        read(a[i,j]);
        if a[i,j]>max then max:=a[i,j];
      end;
  for i:=1 to n do
    for j:=1 to m do
      begin
        inc(f1);
        fl:=false;
        if a[i,j]=max then inc(ans)
          else begin
                 dfs(i,j,a[i,j],a[i,j]-d);
                 if not fl then inc(ans);
               end;
      end;
  writeln(ans);
end.