1218: [HNOI2003]激光炸弹

1218: [HNOI2003]激光炸弹

Time Limit: 10 Sec   Memory Limit: 162 MB
Submit: 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

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.

转载于:https://www.cnblogs.com/HansBug/p/4197875.html