NOIP2014无线网络发射选址【Pascal】

最新推荐文章于 2019-05-12 22:48:28 发布

Eirlys_North

最新推荐文章于 2019-05-12 22:48:28 发布

阅读量377

点赞数

分类专栏： noip复赛=A= 文章标签： noip复赛提高组

本文链接：https://blog.csdn.net/Eirlys_North/article/details/53088448

版权

noip复赛=A= 专栏收录该内容

15 篇文章 0 订阅

订阅专栏

其实，一看数据范围，水过就好，

乱搞模拟就可以过=。=

<span style="font-size:18px;">var
    d,n,ans,x,y,sum,t   :longint;
    i,j,k,l             :longint;
    map                 :array[0..200,0..200] of longint;
begin
   read(d);
   read(n);
   for i:=1 to n do
   begin
      read(x,y);
      inc(x);
      inc(y);
      read(map[x,y]);
   end;
   for i:=1 to 129 do
    for j:=1 to 129 do
    begin
       t:=0;
       for k:=-d to d do
        for l:=-d to d do
         if (i+k<=129) and (i+k>=1)
          and (j+l<=129) and (j+l>=1) then inc(t,map[i+k,j+l]);
          //
      if (t>ans) then
      begin
         ans:=t;
         sum:=1;
      end else
      if (t=ans) then inc(sum);
   end;
   writeln(sum,' ',ans);
end.
</span>

——by Eirlys