[PKU 2976]Dropping tests(分数规划)

【题目大意】：

你考了n次试，现在给你次从新做人的机会，你可以扔掉k次考试的成绩，你想让你的平均分最大，求最大平均分……

【题目分析】：

裸的不能再裸的分数规划了…………

先转化公式，先把题目中的那个碍眼的100干掉，然后我们发现对于它来说，我们就有这样的式子，k=a(x)/b(x);

因为b这个东西就是0或是1，所以规划的时候重新配权就是1；

转化a(x)-k*b(x)，然后就是一个二分答案，把每个东西的权值重新改成a-x(这个就是你二分的答案)。

然后排个序，干掉最小的k个，然后加起来，看和0的关系~~

等于0就对了~~这就解决了，注意精度其他没什么了……:-)

【代码】：

program PKU_2976; var s,t,mid,sum:double; d:array[1..1000] of double; a,b:array[1..1000] of longint; i,n,k:longint; procedure qsort(s,t:longint); var i,j:longint; k,key:double; begin i:=s; j:=t; key:=d[(s+t) shr 1]; repeat while d[i]<key do inc(i); while d[j]>key do dec(j); if i<=j then begin k:=d[i]; d[i]:=d[j]; d[j]:=k; inc(i); dec(j); end; until i>j; if s<j then qsort(s,j); if i<t then qsort(i,t); end; begin assign(input,'a.in'); assign(output,'a.out'); reset(input); rewrite(output); while true do begin readln(n,k); if n+k=0 then break; for i:=1 to n do read(a[i]); for i:=1 to n do read(b[i]); s:=0; t:=1; while t-s>1e-6 do begin mid:=(s+t)/2; for i:=1 to n do d[i]:=a[i]-mid*b[i]; qsort(1,n); sum:=0; for i:=k+1 to n do sum:=sum+d[i]; if sum>=0 then s:=mid else t:=mid; end; writeln(round(s*100)); end; close(input); close(output); end.