奶牛晒衣服 (Standard IO)

题意/Description:

       在熊大妈英明的带领下，时针和它的同伴生下了许多牛宝宝。熊大妈决定给每个宝宝都穿上可爱的婴儿装。于是，为牛宝宝洗晒衣服就成了很不爽的事情。
　　圣人王担负起了这个重任。洗完衣服后，你就要弄干衣服。衣服在自然条件下用1的时间可以晒干A点湿度。抠门的熊大妈买了1台烘衣机。使用烘衣机可以让你用1的时间使1件衣服除开自然晒干的A点湿度外，还可烘干B点湿度，但在1的时间内只能对1件衣服使用。
　　N件衣服因为种种原因而不一样湿，现在告诉你每件衣服的湿度，要你求出弄干所有衣服的最少时间（湿度为0为干）。

读入/Input：

        第一行N,A,B；接下来N行，每行一个数，表示衣服的湿度（1<=湿度，A，B<=500000，1<=N<=500000）。

输出/Output：

       一行，最少时间。

题解/solution：

       给衣服的湿度排序，用r记录最长衣服干的时间，l记录开始时间，mid为中间时间。然后二分，如果A*mid可以自然干，那往前二分。否则，算一下烘干机是否能烘干，可以往前二分。不可，往后二分。

代码/Code：

var  n,aa,bb:longint;  a:array [0..500001] of longint;procedure qsort(l,r:longint);var i,j,m,t:longint;begin  i:=l; j:=r;  m:=a[(l+r) div 2];  repeat    while a[i]>m do inc(i);    while a[j]<m do dec(j);    if i<=j then      begin        t:=a[i]; a[i]:=a[j]; a[j]:=t;        inc(i); dec(j);      end;  until i>j;  if l<j then qsort(l,j);  if i<r then qsort(i,r);end;procedure init;var  i:longint;begin  readln(n,aa,bb);  for i:=1 to n do    readln(a[i]);  qsort(1,n);end;function fd(mid:longint):boolean;var  i,sum,t:longint;begin  sum:=0;  for i:=1 to n do    begin      t:=a[i]-mid*aa;      if t<=0 then exit(true);      sum:=sum+t div bb;      if t mod bb<>0 then sum:=sum+1;      if sum>mid then exit(false);    end;end;procedure main;var  i,l,r,mid:longint;begin  l:=1;  if a[1] mod aa=0 then r:=a[1] div aa                   else r:=a[1] div aa+1;  mid:=(l+r) div 2;  while l<=r do    begin      if fd(mid) then r:=mid-1                 else l:=mid+1;      mid:=(l+r) div 2;    end;  if not fd(mid) then mid:=mid+1;  write(mid);end;begin  init;  main;end.