NOIP2014 无线网路发射器选址

来源:互联网 发布:曼威网络 编辑:程序博客网 时间:2024/06/04 18:38

描述

随着智能手机的日益普及,人们对无线网的需求日益增大。某城市决定对城市内的公共场所覆盖无线网。

假设该城市的布局为由严格平行的 129 条东西向街道和 129 条南北向街道所形成的网格状,并且相邻的平行街道之间的距离都是恒定值 1 。东西向街道从北到南依次编号为0,1,2…128,南北向街道从西到东依次编号为 0,1,2…128。

东西向街道和南北向街道相交形成路口,规定编号为 x 的南北向街道和编号为 y 的东西向街道形成的路口的坐标是(x, y)。在某些路口存在一定数量的公共场所。

由于政府财政问题,只能安装一个大型无线网络发射器。该无线网络发射器的传播范围是一个以该点为中心,边长为 2*d 的正方形。传播范围包括正方形边界。

例如下图是一个 d = 1 的无线网络发射器的覆盖范围示意图。

图片

现在政府有关部门准备安装一个传播参数为 d 的无线网络发射器,希望你帮助他们在城 市内找出合适的安装地点,使得覆盖的公共场所最多。

格式

输入格式

第一行包含一个整数 d,表示无线网络发射器的传播距离。

第二行包含一个整数 n,表示有公共场所的路口数目。

接下来 n 行,每行给出三个整数 x, y, k, 中间用一个空格隔开,分别代表路口的坐标(x, y)以及该路口公共场所的数量。同一坐标只会给出一次。

输出格式

输出一行,包含两个整数,用一个空格隔开,分别表示能覆盖最多公共场所的安装地点方案数,以及能覆盖的最多公共场所的数量。

样例1

样例输入1[复制]

124 4 106 6 20

样例输出1[复制]

1 30

限制

对于 100%的数据,1 ≤ d ≤ 20,1 ≤ n ≤ 20, 0 ≤ x ≤ 128, 0 ≤ y ≤ 128, 0 < k ≤ 1,000,000。

枚举每个点的所能覆盖的公共场所数量记录最大值并维护个数

输出结束就可以了。

 

type nono=record

    k:longint;(k为每个点的公共场所数量)

    s:int64;(s为能覆盖的公共场所数量)

    end;

var

 a:array[0..128,0..128] of nono;

 s:longint;最大值的个数

 max:longint;最大值

 i,j,k,n,m,b,c,q1,q2,p1,p2,d,x,y:longint;

procedure judge(x,y:longint);计算每个点的公共场所数量

 begin

   b:=x;c:=y;

   q1:=b+d;这四条计算覆盖的公共厕所的边界 q1 q2 为横坐标边界 p1 p2 为纵坐标边界

   q2:=b-d;

   p1:=c+d;

   p2:=c-d;

   if (q1>128) then判断是否超界

     begin

       q1:=128;

     end;

   if (q2<0) then

     begin

       q2:=0;

     end;

   if (p1>128) then

     begin

        p1:=128;

     end;

   if (p2<0) then

     begin

       p2:=0;

     end;

   for k:=q2 to q1 do 计算该点能覆盖的公共厕所的数量

     for m:=p2 to p1 do

       a[b,c].s:=a[b,c].s+a[k,m].k;

   if a[x,y].s>max then与最大值进行比较

     begin

       max:=a[x,y].s;如果大于最大值 s重新计数

       s:=1;

     end

     else

       if a[x,y].s=max then s:=s+1;如果等于最大值  s+1

 end;

begin

 assign(input,'wireless.in');

 assign(output,'wireless.out');

 reset(input);

 rewrite(output);

 readln(d);

 readln(n);

  fori:=1 to n do读入n个点的公共场所数量

   begin

     readln(x,y,k);

     a[x,y].k:=k;

   end;

  fori:=0 to 128 do计算每个点所能覆盖的公共场所数量

   for j:=0 to 128 do

     judge(i,j);

 writeln(s,' ',max);输出结束

 close(input);

 close(output);

end.


0 0