中山培训第一题 2016.7.7

来源:互联网 发布:tensorflow amd显卡 编辑:程序博客网 时间:2024/04/29 14:30

Description

  一年一度的高一YL杯超级篮球赛开赛了。当然,所谓超级,意思是参赛人数可能多余5人。小三对这项篮球非常感兴趣,所以一场都没有落下。每个中午都准时守侯在篮球场看比赛。经过一个星期的研究,小三终于对篮球的技战术找到了一丝丝感觉了。他发现打YL杯的每个班都有一套相似的进攻战术:
1 :控球后卫带球到前场,找到一个最佳攻击点 ( x , y )
2 :所有除控卫以外的队员都从各自的当前位置迅速向 ( x , y )移动
3 :控球后卫根据场上情况组织进攻
  这个战术对于一般情况是非常奏效的,但是每个队员毕竟不像小三一样每天精力过剩,每个队员都有一个疲劳指数W,显然对于每个队员的移动需要消耗一些能量。
  假设一个队员从位置 ( x1 , y1 )移动到 ( x , y )的能量消耗为 w * (ABS ( x - x1 ) +ABS ( y - y1 ) ),这里ABS为绝对值函数。那么我们希望整个队伍一次进攻的能量消耗当然是越少越好。显然能量消耗的多少直接取决于控球后卫对于攻击点 ( x , y )的选择。
  因为参赛人数众多,所以小三希望你能编写一个程序,即帮他找出某个时刻的最佳攻击点。

Input

  第一行:一个整数N,表示篮球队人数
  第二行:一共N个整数,其中的第i个数Wi表示第i个队员的疲劳指数。
  第3~N+2行:每一行两个整数XY,其中的第i+2行,表示第i个队员的当前位置的横坐标和纵坐标。

Output

  一个实数。表示所有队员集合到最佳攻击位置的能量消耗总和,答案保留两位小数。

Sample Input

1
1
0 0

Sample Output

0.00

 

var

       n,i,j:longint;

       l,r,mid:int64;

       sum1,sum2:qword;

       ans:real;

       x,y,w:array[0..50000] of int64;

             

function checkx(a:int64):boolean;

begin

       sum1:=0;

       for i:=1 to n do

                sum1:=sum1+w[i]*abs(x[i]-a);

       a:=a+1;

       sum2:=0;

       for i:=1 to n do

                sum2:=sum2+w[i]*abs(x[i]-a);

       if sum2>sum1 then exit(false)

       else exit(true);

end;

 

function checky(a:int64):boolean;

begin

       sum1:=0;

       for i:=1 to n do

                sum1:=sum1+w[i]*abs(y[i]-a);

       a:=a+1;

       sum2:=0;

       for i:=1 to n do

                sum2:=sum2+w[i]*abs(y[i]-a);

       if sum2>sum1 then exit(false)

       else exit(true);

end;

 

begin

       read(n);

       for i:=1 to n do read(w[i]);

       for i:=1 to n do

       begin

                read(x[i],y[i]);

                x[i]:=x[i];

                y[i]:=y[i];

       end;

       l:=-maxlongint;

       r:=maxlongint;

       while l<r do

       begin

                mid:=(l+r) div 2;

                if checkx(mid) then l:=mid+1

                else r:=mid;

       end;

       for i:=1 to n do

                ans:=ans+w[i]*abs(x[i]-l);

       l:=-maxlongint;

       r:=maxlongint;

        while l<r do

       begin

                mid:=(l+r) div 2;

                if checky(mid) then l:=mid+1

                else r:=mid;

       end;

       for i:=1 to n do

                ans:=ans+w[i]*abs(y[i]-l);

       writeln(ans:0:2);

end.

 

0 0
原创粉丝点击