标签：des style blog http io ar color sp for
Farmer John是一个令人惊讶的会计学天才，他已经明白了他可能会花光他的钱，这些钱本来是要维持农场每个月的正常运转的。他已经计算了他以后N(1<=N<=100,000)个工作日中每一天的花费moneyi(1<=moneyi<=10,000)，他想要为他连续的M(1<=M<=N)个被叫做“清算月”的结帐时期做一个预算，每一个“清算月”包含一个工作日或更多连续的工作日，每一个工作日都仅被包含在一个“清算月”当中。 FJ的目标是安排这些“清算月”，使得每个清算月的花费中最大的那个花费达到最小，从而来决定他的月度支出限制。
第一行：两个用空格隔开的整数：N和M
第2..N+1行：第i+1行包含FJ在他的第i个工作日的花费
第一行：能够维持每个月农场正常运转的钱数
题解：坑坑坑坑坑——题目中写的是按照题目的顺序来划分“清算月”，可是我还是很逗比的排了个序，然后WA。。。这题要说也没啥说的，就是一道经典的二分答案题（解具有单调性的题目均可），先确定一个答案的上下限，然后开始先二分+判定是否可行，然后没有然后了。。。
1 var 2 i,j,k,l,m,n,x,y,t:longint; 3 a:array[0..100000] of longint; 4 procedure sort(l,r:longint); 5 var 6 i,j,x,y:longint; 7 begin 8 i:=l;j:=r; 9 x:=a[(l+r) div 2]; 10 repeat 11 while a[i]<x do inc(i); 12 while a[j]>x do dec(j); 13 if i<=j then 14 begin 15 y:=a[i]; 16 a[i]:=a[j]; 17 a[j]:=y; 18 inc(i);dec(j); 19 end; 20 until i>j; 21 if i<r then sort(i,r); 22 if l<j then sort(l,j); 23 end; 24 function check(x:longint):boolean; 25 var 26 i,j,k,l:longint; 27 begin 28 l:=0;k:=0; 29 for i:=1 to n do 30 begin 31 l:=l+a[i]; 32 if l>x then 33 begin 34 inc(k); 35 l:=a[i]; 36 end; 37 if l>x then exit(false); 38 end; 39 exit(k<m); 40 end; 41 begin 42 readln(n,m); 43 for i:=1 to n do readln(a[i]); 44 //sort(1,n); 45 x:=a[n];y:=0; 46 for i:=n downto m do y:=y+a[i]; 47 while x<y do 48 begin 49 t:=(x+y) div 2; 50 if check(t) then 51 y:=t 52 else 53 x:=t+1; 54 end; 55 writeln(x); 56 end. 57
1639: [Usaco2007 Mar]Monthly Expense 月度开支
标签：des style blog http io ar color sp for
原文地址：http://www.cnblogs.com/HansBug/p/4163882.html
