2017.1.20【初中部 】普及组模拟赛C组 晒衣服 题解

原题：

http://172.16.0.132/junior/#contest/show/1370/1

题目描述：

洗完衣服后，你就要弄干衣服。衣服在自然条件下用1个单位的时间可以晒干A点湿度。现在买了1台烘衣机，使用烘衣机可以让你用1个单位的时间使1件衣服除开自然晒干的A点湿度外，还可烘干B点湿度，但在1个单位的时间内只能对1件衣服使用。
N件衣服因为种种原因而不一样湿，现在告诉你每件衣服的湿度，要你求出弄干所有衣服的最少时间（湿度为0为干）。

输入：

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

输出：

一行一个整数，表示最少时间。

样例输入：

3 2 1
1
2
3

样例输出：

1

数据范围限制：

（1<=湿度,A,B<=500000,1<=N<=500000）

样例解析：

第1个单位时间内，用机器处理第3件衣服，此外，所有衣服自然晒干2。

分析：

二分答案

实现：

var 
    n,a,b,i,l,r,ans,t,y,mid:longint;
    d:array[0..500001]of longint;
function pd(x:longint):boolean;
begin
    t:=0;
    for i:=1 to n do 
    begin
        if d[i]<=a*x then continue;
        y:=d[i]-a*x;
        t:=t+(y+b-1)div b;
    end;
    if t<=x then exit(true) else exit(false); 
end;
begin
    assign(input,'dry.in');reset(input);
    assign(output,'dry.out');rewrite(output);
    readln(n,a,b);
    for i:=1 to n do readln(d[i]);
    l:=1; r:=5000001;
    while l<=r do
    begin
        mid:=(l+r)shr 1;
        if pd(mid) then
        begin
            r:=mid-1;
            ans:=mid;
        end
        else l:=mid+1;
    end;
    writeln(ans);
    close(input);close(output);
end.