记录编号 |
335271 |
评测结果 |
AAAAAAAAAA |
题目名称 |
[NOIP 2014]无线网路发射器选址 |
最终得分 |
100 |
用户昵称 |
zeppoe |
是否通过 |
通过 |
代码语言 |
Pascal |
运行时间 |
0.625 s |
提交时间 |
2016-11-01 23:11:43 |
内存使用 |
10.91 MiB |
显示代码纯文本
- program wz;
- var
- num:array[-20000..20000]of longint;
- w:array[-1000..1000,-1000..1000]of longint;
- max,ans,d,n,x,y,k,i,j,p:longint;
- begin
- assign(input,'wireless.in');
- assign(output,'wireless.out');
- reset(input);
- rewrite(output);
-
- readln(d);
- readln(n);
- fillchar(w,sizeof(w),0);
- for i:=1 to n do
- begin
- readln(x,y,k);
- w[x,y]:=k;
- end;
- for i:=0 to 128 do
- for j:=0 to 128 do
- begin
- ans:=0;
- for p:=i-d to i+d do
- for k:=j-d to j+d do
- ans:=ans+w[p,k];
- if ans>max then max:=ans;
- if ans=max then inc(num[max]);
- end;
- writeln(num[max],' ',max);
- close(input);
- close(output);
- end.