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.