(昨晚的)codevs 旅行家的预算

题目描述 Description

一个旅行家想驾驶汽车以最少的费用从一个城市到另一个城市（假设出发时油箱是空的）。给定两个城市之间的距离D1、汽车油箱的容量C（以升为单位）、每升汽油能行驶的距离D2、出发点每升汽油价格P和沿途油站数N（N可以为零），油站i离出发点的距离Di、每升汽油价格Pi（i=1，2，……N）。计算结果四舍五入至小数点后两位。如果无法到达目的地，则输出“No Solution”。

输入描述 Input Description

第一行D1 C D2 P N

之后N行，每行2个数表示离出发点的距离Di和每升汽油的价格Pi

输出描述 Output Description

最消费用，保留2位小数

样例输入 Sample Input

275.6 11.9 27.4 2.8 2

102.0 2.9

220.0 2.2

样例输出 Sample Output

26.95

数据范围及提示 Data Size & Hint

N<=100

分析：

这题是一道贪心的题，注意如果可以到达的一个城市比当前城市油价低，则加油只加到可以刚好到达那个城市如果可以到达的城市油价都比当前城市高，则把油加满，开到油价第二低的城市。

代码：

var

  a,b:array[0..100] of real;

  n,i,j,x:longint;

  d1,d2,d3,p,c,you,min,ans:real;

begin

  read(d1,c,d2,p,n);

  for i:=1 to n do

    read(a[i],b[i]);

  ans:=0;

  i:=0; you:=0; a[0]:=0; b[0]:=p;

  while i<n do

  begin

    min:=100000000; x:=0;

    for j:=i+1 to n do

      if a[j]-a[i]>c*d2 then break

      else

        if b[j]<min then

        begin

          min:=b[j];

          x:=j;

        end;

    if x=0 then begin write('No Solution'); halt; end;

    if min<b[i] then

    begin

      ans:=ans+((a[x]-a[i])/d2-you)*b[i];

      you:=0;

    end

    else

    begin

      d3:=(d1-a[i])/d2;

      if d3<=c then

      begin

        if d3>you then

          ans:=ans+(d3-you)*b[i];

        write(ans:0:2);

        halt;

      end;

      ans:=ans+(c-you)*b[i];

      you:=c-(a[x]-a[i])/d2;

    end;

    i:=x;

  end;

  d3:=(d1-a[i])/d2;

  if d3>c then begin write('No Solution'); halt; end;

  if d3>you then

    ans:=ans+(d3-you)*b[i];

  write(ans:0:2);

end.