首页 > 代码库 > 1218: [HNOI2003]激光炸弹
1218: [HNOI2003]激光炸弹
1218: [HNOI2003]激光炸弹
Time Limit: 10 Sec Memory Limit: 162 MBSubmit: 1139 Solved: 542
[Submit][Status]
Description
一种新型的激光炸弹,可以摧毁一个边长为R的正方形内的所有的目标。现在地图上有n(N<=10000)个目标,用整数Xi,Yi(其值在[0,5000])表示目标在地图上的位置,每个目标都有一个价值。激光炸弹的投放是通过卫星定位的,但其有一个缺点,就是其爆破范围,即那个边长为R的正方形的边必须和x,y轴平行。若目标位于爆破正方形的边上,该目标将不会被摧毁。 0
Input
输入文件的第一行为正整数n和正整数R,接下来的n行每行有3个正整数,分别表示
Output
输出文件仅有一个正整数,表示一颗炸弹最多能炸掉地图上总价值为多少的目标(结果不会超过32767)。
Sample Input
2 1
0 0 1
1 1 1
0 0 1
1 1 1
Sample Output
1
HINT
Source
Dp
题解:虽然是明显的Dp,但是本萌妹偏不——我就是要每个点花600ms的暴力,其实就是个段求和而已。。。别的没了,相信程序不难懂(PS:注意边界情况,注意坐标下线是从0开始的)
1 var
2 i,j,k,l,m,n:longint;
3 a:array[-1..5001,-1..5001] of longint;
4 begin
5 readln(n,m);l:=0;
6 fillchar(a,sizeof(a),0);
7 for i:=1 to n do
8 begin
9 readln(j,k,l);
10 a[j,k]:=a[j,k]+l;
11 end;
12 for i:=1 to 5000 do
13 for j:=0 to 5000 do
14 a[i,j]:=a[i-1,j]+a[i,j];
15 for i:=0 to 5000-m+1 do
16 begin
17 k:=0;
18 for j:=0 to m-1 do
19 begin
20 k:=k+a[i+m-1,j]-a[i-1,j];
21 end;
22 for j:=m to 5001 do
23 begin
24 if k>l then l:=k;
25 k:=k-(a[i+m-1,j-m]-a[i-1,j-m])+(a[i+m-1,j]-a[i-1,j]);
26 end;
27 end;
28 writeln(l);
29 readln;
30 end.
2 i,j,k,l,m,n:longint;
3 a:array[-1..5001,-1..5001] of longint;
4 begin
5 readln(n,m);l:=0;
6 fillchar(a,sizeof(a),0);
7 for i:=1 to n do
8 begin
9 readln(j,k,l);
10 a[j,k]:=a[j,k]+l;
11 end;
12 for i:=1 to 5000 do
13 for j:=0 to 5000 do
14 a[i,j]:=a[i-1,j]+a[i,j];
15 for i:=0 to 5000-m+1 do
16 begin
17 k:=0;
18 for j:=0 to m-1 do
19 begin
20 k:=k+a[i+m-1,j]-a[i-1,j];
21 end;
22 for j:=m to 5001 do
23 begin
24 if k>l then l:=k;
25 k:=k-(a[i+m-1,j-m]-a[i-1,j-m])+(a[i+m-1,j]-a[i-1,j]);
26 end;
27 end;
28 writeln(l);
29 readln;
30 end.
1218: [HNOI2003]激光炸弹
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。