一個旅行家想駕駛汽車以最少的費用從一個城市到另一個城市（假設出發時油箱是空的）。給定兩個城市之間的距離D1、汽車油箱的容量C（以升爲單位）、每升汽油能行駛的距離D2、出發點每升汽油價格P和沿途油站數N（N可以爲零），油站i離出發點的距離Di、每升汽油價格Pi（i=1，2，……N）。計算結果四捨五入至小數點後兩位。如果無法到達目的地，則輸出“No Solution”。
第一行D1 C D2 P N
之後N行，每行2個數表示離出發點的距離Di和每升汽油的價格Pi
最消費用，保留2位小數
275.6 11.9 27.4 2.8 2
102.0 2.9
220.0 2.2
26.95
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.