例2、储油点一辆卡车欲穿过1000公里的沙漠,卡车耗油为1升/公里,卡车总载油能力为500公升,显然卡车装一次油是过不了沙漠的.因此司机必须设法在沿途建立几个贮油点,使卡车能顺利穿越沙漠,

Question

例2、储油点
一辆卡车欲穿过1000公里的沙漠,卡车耗油为1升/公里,卡车总载油能力为500公升,显然卡车装一次油是过不了沙漠的.因此司机必须设法在沿途建立几个贮油点,使卡车能顺利穿越沙漠,试问司机如何建立这些贮油点?每一贮油点应存多少油,才能使卡车以消耗最少汽油的代价通过沙漠（结果保留小数点后两位）?
编程计算及打印建立的贮油点序号,各贮油点距沙漠边沿出发的距离以及存油量.
No． distance(k．m．) oil(litre)
1 ×××. ×× ×××. ××
2 ×××. ×× ×××. ××
3 ×××. ×× ×××. ××

Answer 1

program ex2(input,output);
var k,i:integer;
d,d1:real;
dis,oil:array[0..100] of real;
begin
k:=1;d:=500; {从i=1处开始向始点倒推}
dis[1]:=500;
oil[1]:=500;
repeat
k:=k+1;d:=d+500/(2*k-1);
dis[k]:=d;
oil[k]:=oil[k-1]+500;
until d>=1000;
dis[k]:=1000; {置始点至终点的距离值}
d1:=1000-dis[k-1]; {求贮油点k处至始点的距离}
oil[k]:=d1*(2*k+1)+oil[k-1]; {求始点藏油量}
writeln(' No.Distance oil');
for i:=0 to k do {输出第i个贮油点的距离为1000-dis[k-i],藏油量为oil[k-i]；}
writeln(i:4,1000-dis[k-i]:10:2,oil[k-i]:12:2);
readln;
end.