洛谷——P1514 引水入城
2017-02-25 08:54
274 查看
题目描述
输入格式:
输出格式:
题解:
代码:
在一个遥远的国度,一侧是风景秀美的湖泊,另一侧则是漫无边际的沙漠。该国的行政区划十分特殊,刚好构成一个N 行M 列的矩形,如上图所示,其中每个格子都代表一座城市,每座城市都有一个海拔高度。
为了使居民们都尽可能饮用到清澈的湖水,现在要在某些城市建造水利设施。水利设施有两种,分别为蓄水厂和输水站。蓄水厂的功能是利用水泵将湖泊中的水抽取到所在城市的蓄水池中。 因此,只有与湖泊毗邻的第1 行的城市可以建造蓄水厂。而输水站的功能则是通过输水管线利用高度落差,将湖水从高处向低处输送。故一座城市能建造输水站的前提,是存在比它海拔更高且拥有公共边的相邻城市,已经建有水利设施。由于第N 行的城市靠近沙漠,是该国的干旱区,所以要求其中的每座城市都建有水利设施。那么,这个要求能否满足呢?如果能,请计算最少建造几个蓄水厂;如果不能,求干旱区中不可能建有水利设施的城市数目。
输入格式:
输入文件的每行中两个数之间用一个空格隔开。输入的第一行是两个正整数N 和M,表示矩形的规模。接下来N 行,每行M 个正整数,依次代表每座城市的海拔高度。
输出格式:
输出有两行。如果能满足要求,输出的第一行是整数 1,第二行是一个整数,代表最少建造几个蓄水厂;如果不能满足要求,输出的第一行是整数0,第二行是一个整数,代表有几座干旱区中的城市不可能建有水利设施。
题解:
这个题解是转载的,能力不足。 如果能够满足要求,可以证明一个结论:每个蓄水站所覆盖到的城市是连接的,若中间有断开,则断开的点一定高于左右,若比之上方的点低,则其上方的点一定高于其左右,而起始点又是可以通过一条路到达右边被断开的区域的,则断开的点一定不能被其他点管辖.那么就成了最少线段覆盖问题,可以用dp解决.记录每个蓄水站能到达的左右点l[i],r[i],那么f[i] = min(f[i],f[l[j] - 1] + 1);点i必须要在l[j]到r[j]内.其实这道题用一个dfs就可以解决,不过为了方便,还是用了3个dfs. 搜了1年,才发现是DP。
代码:
var n,m,ans:longint; map:array [0..501,0..501] of longint; l,r,f:array [0..501] of longint; v:array [0..501,0..501] of boolean; function min(o,p:longint):longint; begin if o<p then exit(o); exit(p); end; procedure dfs1(x,y:longint); begin if v[x,y] then exit; v[x,y]:=true; if (x+1<=n) and (map[x,y]>map[x+1,y]) then dfs1(x+1,y); if (x-1>=1) and (map[x,y]>map[x-1,y]) then dfs1(x-1,y); if (y+1<=m) and (map[x,y]>map[x,y+1]) then dfs1(x,y+1); if (y-1>=1) and (map[x,y]>map[x,y-1]) then dfs1(x,y-1); end; procedure init; var i,j:longint; begin readln(n,m); for i:=1 to n do for j:=1 to m do read(map[i,j]); ans:=0; for i:=1 to m do dfs1(1,i); for i:=1 to m do if v[n,i]=false then inc(ans); if ans>0 then begin writeln('0'); write(ans); halt; end; end; procedure dfs2(x,y,z:longint); begin if v[x,y] then exit; if x=1 then l[y]:=z; v[x,y]:=true; if (x+1<=n) and (map[x,y]<map[x+1,y]) then dfs2(x+1,y,z); if (x-1>=1) and (map[x,y]<map[x-1,y]) then dfs2(x-1,y,z); if (y+1<=m) and (map[x,y]<map[x,y+1]) then dfs2(x,y+1,z); if (y-1>=1) and (map[x,y]<map[x,y-1]) then dfs2(x,y-1,z); end; procedure dfs3(x,y,z:longint); begin if v[x,y] then exit; if x=1 then r[y]:=z; v[x,y]:=true; if (x+1<=n) and (map[x,y]<map[x+1,y]) then dfs3(x+1,y,z); if (x-1>=1) and (map[x,y]<map[x-1,y]) then dfs3(x-1,y,z); if (y+1<=m) and (map[x,y]<map[x,y+1]) then dfs3(x,y+1,z); if (y-1>=1) and (map[x,y]<map[x,y-1]) then dfs3(x,y-1,z); end; procedure main; var i,j:longint; begin fillchar(v,sizeof(v),false); for i:=1 to m do dfs2(n,i,i); fillchar(v,sizeof(v),false); for i:=m downto 1 do dfs3(n,i,i); fillchar(f,sizeof(f),63); f[0]:=0; for i:=1 to m do for j:=1 to m do if (l[j]<=i) and (r[j]>=i) then f[i]:=min(f[i],f[l[j]-1]+1); writeln('1'); write(f[m]); end; begin init; main; end.
相关文章推荐
- 洛谷 P1514 引水入城
- |洛谷|NOIP2010|搜索|贪心|P1514 引水入城
- 洛谷 P1514 引水入城
- 洛谷 P1514 引水入城
- 洛谷P1514 引水入城
- 洛谷P1514 [NOIP2010提高组T4]引水入城
- 洛谷 P1514 [NOIP2010 T4] 引水入城
- 引水入城(dfs的做法)洛谷p1514
- 洛谷 P1514 引水入城
- 引水入城 洛谷 1514 bfs 贪心
- P1514 引水入城
- 引水入城 洛谷 1514 bfs 贪心
- 引水入城 洛谷 1514 bfs 贪心
- P1514 引水入城
- 洛谷Oj-P1514 引水入城-搜索+DP
- 引水入城 洛谷 1514 bfs 贪心
- 引水入城 洛谷 1514 bfs 贪心
- 引水入城_洛谷1514_搜索 + dp
- 洛谷 1514 [NOIP2010]引水入城 bfs+贪心
- 引水入城 洛谷 1514 bfs 贪心