hnoi2008 遥远行星

因为在网上没找到解题报告，所以这里写一下。

其实这是一道很水的题。。但是因为精度问题很多人都以为是一道难题（其实我也是这样想的 ）。。

因为这题允许5%的误差，所以可以从前面100个左右的行星推过来，因为分母的差值不会太大，所以处理一下其实误差是很小的。

然后比较靠近的几个行星就直接暴力把。。

这是代码，交bzoj是过不了的，因为那里没有check，但是我拿数据测是可以过的 。。

ar m:array[0..100001] of int64; s:array[0..100001] of extended; f:array[0..100001] of longint; n,i,j,k:longint; a,t2,t1:extended; procedure did(i:longint); begin for j:=1 to f[i] do s[i]:=s[i]+m[i]*m[j]/(i-j); end; procedure sdid(i:longint); begin k:=f[i-100]+1; s[i]:=s[i-100]/m[i-100]; t1:=i-100-f[i-100]/2;t2:=t1+100; s[i]:=s[i]*t1/t2; s[i]:=s[i]*m[i]; for j:=k to f[i] do s[i]:=s[i]+m[i]*m[j]/(i-j); end; begin assign(input,'planet.in');reset(input); assign(output,'planet.out');rewrite(output); readln(n,a); for i:=1 to n do readln(m[i]); for i:=1 to n do begin f[i]:=trunc(i*a);s[i]:=0; if f[i]<=100 then did(i) else sdid(i);end; for i:=1 to n do writeln(s[i]:0:6); close(input);close(output); end.