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.