2017-07-08【NOIP提高组】模拟赛B组-山峰(summits)-题解

原题：

http://172.16.0.132/senior/#contest/show/2041/2

题目描述：

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

输入：

第一行n,m,d
第二行开始，有一个n*m的矩阵表示地图，用空格隔开。

输出：

输出d-山峰的个数。

样例输入：

6 10 2
0 0 0 0 0 0 0 0 0 0
0 1 2 1 1 1 1 0 1 0
0 2 1 2 1 3 1 0 0 0
0 1 2 1 3 3 1 1 0 0
0 2 1 2 1 1 1 0 2 0
0 0 0 0 0 0 0 0 0 0

样例输出：

4

数据范围限制：

30% n,m<=10
100% n,m<=500

提示：

分析：

正难则反，用总共的点-不合法的点，即为合法点。
枚举每一个点，暴力跑答案判断，用记忆化优化，如果发现当前点的高度>h-d,并是没有遍历过的就exit(true) else exit(false);
每次找到不合法的点，就dec(ans)；
如果跑的点数>n*m的话就直接exit掉了。
暴力可以宽搜，也可以深搜。

实现：

uses math;
const
        u:array[1..4,1..2]of longint=((0,1),(1,0),(0,-1),(-1,0));
var
        ans,n,m,d,i,j,maxn:longint;
        a,f:array[0..501,0..501]of longint;
        bz:array[0..501,0..501]of boolean;
function dg(x,y,h,sum,tot:longint):boolean;
var
        i,xx,yy:longint;
begin
        f[x,y]:=sum;
        if a[x,y]>h then
        begin
                dec(ans);
                exit(true);
        end;
        if (a[x,y]=h)and(bz[x,y]) then
        begin
                dec(ans);
                exit(true);
        end;
        if tot>n*m then exit(false);
        for i:=1 to 4 do
        begin
                xx:=x+u[i,1];
                yy:=y+u[i,2];
                if (xx>0)and(xx<=n)and(yy>0)and(yy<=m) then
                        if (f[xx,yy]<>sum)and(a[xx,yy]>h-d)and(dg(xx,yy,h,sum,tot+1)) then exit(true);
        end;
        exit(false);
end;
begin
        readln(n,m,d);
        for i:=1 to n do
                for j:=1 to m do
                begin
                        read(a[i,j]);
                        maxn:=max(a[i,j],maxn);
                end;
        ans:=n*m;
        for i:=1 to n do
                for j:=1 to m do
                        if a[i,j]<>maxn then bz[i,j]:=dg(i,j,a[i,j],i*m+j,0);
        writeln(ans);
end.