4063: [Cerc2012]Darts

4063: [Cerc2012]Darts

Time Limit: 10 Sec  Memory Limit: 128 MB
Submit: 85  Solved: 53
[Submit][Status][Discuss]

Description

考虑一个扔飞镖的游戏。板子由十个环组成，半径分别为20, 40, 60, 80, 100, 120, 140, 160, 180和200（单位：mm），均以原点为中心。每次投掷的得分取决于飞镖所击中的位置。如果包含飞镖的最小环（可以在圆上）的半径是20 * (11 - p)，则得分是p。不在最外环以内的点不得分。你的任务是计算n次投掷之后的得分。

Input

第一行一个正整数T，表示有T组数据。

每组数据第一行一个正整数n，表示有n次投掷，1 <= n <= 10^6。

接下来n行，每行两个整数x和y，表示一次投掷击中的位置为(x, y)，-200 <= x, y <= 200。

Output

对于每组数据输出一行，即n次投掷得分的总和。

Sample Input

1
5
32 -39
71 89
-60 80
0 0
196 89

Sample Output

29

HINT

 

Source

鸣谢Tjz

题解：其实是道水题= =，不过我由于担心卡精度，所以还是全部不开方，之后一个个判断，然后居然还A掉了= =

AC程序如下

 /**************************************************************
     Problem:
     User: HansBug
     Language: Pascal
     Result: Accepted
     Time: ms
     Memory: kb
 ****************************************************************/

 var i,j,k,l,m,n,ans:longint;
 function doit(x,y:longint):longint;
          var z,i:longint;
          begin
               doit:=;z:=x*x+y*y;
               for i:= downto  do if z<=(*(-i)*(-i)) then exit(i)
          end;
 begin
      readln(m);
      for i:= to m do
          begin
               readln(n);ans:=;
               for j:= to n do
                   begin
                        readln(k,l);
                        inc(ans,doit(k,l));
                   end;
               writeln(ans);
          end;
 end.

但是按照我原来思路的程序却狂WA不止，求神犇解释orz：

 /**************************************************************
     Problem:
     User: HansBug
     Language: Pascal
     Result: Wrong_Answer
 ****************************************************************/
 var i,j,k,l,m,n,ans:longint;
 function doit(x,y:longint):longint;
          begin
               doit:=(-(trunc(sqrt(sqr(x)+sqr(y)))-) div );
               if doit< then doit:=;
          end;
 begin
      readln(m);
      for i:= to m do
          begin
               readln(n);ans:=;
               for j:= to n do
                   begin
                        readln(k,l);
                        inc(ans,doit(k,l));
                   end;
               writeln(ans);
          end;
 end.