UC知道吉普车穿越沙漠问题 pascal
来源：百度知道 编辑：UC知道 时间：2024/06/14 09:09:21
吉普车穿越沙漠问题
一辆吉普车来到1000km宽的沙漠边沿。吉普车的耗油量为1L/Km,总装油量为500L。显然，吉普车必须用自身油箱中设几个临时加油点，否则是通不过沙漠的。假设在沙漠边沿有充足的汽油可供使用，那末吉普车应在那些地方，建多大的临时加油点，才能以最少的油耗穿过这块沙漠？
小鸟我百思不得要领，请各位大虾不吝赐教！
最好有pascal编的程序。
program kc;
var
K: Integer; {贮油点位置序号}
D, {累计终点至当前贮油点的距离}
D1: Real; {I=n至终点的距离}
Oil, Way: array [1 .. 10] of Real;
i: Integer;
begin
Writeln(‘No.’, ‘Distance’:30, ‘Oil’:80);
K := 1;
D := 500; {从I=1处开始向终点倒推}
Way[1] := 500;
Oil[1] := 500;
repeat
K := K + 1;
D := D + 500 / (2 * K – 1);
Way[K] := D;
Oil[K] := Oil[K – 1] + 500;
until D >= 1000;
Way[K] := 1000; {置始点到终点的距离值}
D1 := 1000 – Way[K – 1]; {求I=n处至至点的距离}
Oil[K] := D1 * (2 * k + 1) + Oil[K – 1]; {求始点贮油量}
{由始点开始，逐一打印至当前贮油点的距离和贮油量}
for i := 0 to K do
Writeln(i, 1000 – Way[K – i]:30, Oil[K – i]:80);
end.
动态规划，查一下‘pascal加油问题’就有了 吉普车穿越沙漠问题 pascal 数学问题 《穿越沙漠》 PASSCAL-的吉普车过沙漠问题 穿越内蒙古库尔布沙漠 沙漠风暴是什么牌子的吉普车? 关于吉普车的问题！ 穿越沙漠应该注意那些事项 一个PASCA编程题 关于吉普车改装和油耗问题 徒步旅行独自一人穿越库布齐沙漠