求大神看看昨天tyvj第二题我的做法哪错了。。只过了6个点。。。

同过6个点。。。

关于多次提交成绩不一致的公告
今天群里好多人在说测评机抽掉了，多次提交测评成绩不一致。我随机看了三个这样的程序，其中两个是因为矩阵期望这个题目的统计值会超过int64，越界的行为是不可预知的，得到不同的分数也就不是什么奇怪的事情；另外一个是写了这样的语句：for(j=0;j<=strlen(st[i].c_str());j++)
我不能保证测评机100%正确，不过在这么长时间的测试来看，它在绝大部分情况下都是正确的。
这里对自己写程序不标准，却一味说测评机有问题的人表示强烈谴责。希望你们在马上到来的NOIP中规范自己的代码。
重点在这：“矩阵期望这个题目的统计值会超过int64，越界的行为是不可预知的”
难道要用高精度？？？

把qword改成int64过了七个点……这不科学！

过了三个点的蒟蒻路过……

tyvj抽了每个点都过但都不是一起过是闹哪样……

我是边算边除，目前也6个点

精度问题 你若是乘完再除，像LZ那样 中间会爆Qword和Int64。若是边算边除，那么每一步都要extended存下来。Program ex;
Var a:array[1..1005,1..1005] of longint;
i,j,n:longint;
ans,base,t:extended;
Begin
readln(n);
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
base:=extended(sqr((n)*(n+1)/2));
for i:=1 to n do
for j:=1 to n do
begin
t:=a[i,j]*i;
t:=t*(n-i+1);
t:=t*j;
t:=t*(n-j+1);
ans:=ans+extended(t/base);
end;
writeln(trunc(ans));
End.附个人程序 神牛莫鄙视。

rp测试机

有时EXTENDED也会不准（我前几次都是与答案只差1），这时我们直接把它全加在EXTENDED里后再除（这里的要INT64），然后我过了……

http://tieba.baidu.com/p/1971880710

据我所知noip最近很少考高精 且基本不会出连int64/longlong都会爆掉的题目。。

挖坟＋膜拜