,显然卡车装一次油一辆重型卡车欲通过1000公里的沙漠,卡车耗油量为1公升/公里,卡车总载油量为500公升,显然卡车装一
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/06/13 11:28:58
,显然卡车装一次油一辆重型卡车欲通过1000公里的沙漠,卡车耗油量为1公升/公里,卡车总载油量为500公升,显然卡车装一次油是通过不了沙漠的.因此司机必须在沿途设立几个储油点,使卡车能顺利通过沙漠.试问司机如何建这些储油点?每个储油点应该储多少升油?才能使用卡车以最小耗油量的代价通过沙漠 VB
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.
Pascal的,自己看看后改吧
再问: 能帮我改成VB吗
再答: 。。。对不起,我不会VB,括号里是解释,自己看了理解了改一下吧。
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.
Pascal的,自己看看后改吧
再问: 能帮我改成VB吗
再答: 。。。对不起,我不会VB,括号里是解释,自己看了理解了改一下吧。
有137吨货物从甲地运往乙地,大卡车的载重量是5吨,小卡车的载重量是2吨,大卡车与小卡车每次耗油量分别是10公升和6公升
有137吨货物要从甲地运往乙地,大卡车的载重量是5吨,小卡车的载重量是2吨,大卡车与小卡车每车次的耗油量分别是10公升和
一辆重型卡车匀速行驶时发动机的功率为20千瓦
一辆重型卡车匀速行驶时的功率为202kw,速度为80km/h,汽车行驶2h,发动机做的功?卡车牵引力?
一辆重型卡车重500N,匀速行驶时发动机的功率为202kW,速度为80km/h,汽车行驶了1h.
一辆卡车的长度
莫工厂大门上半部为一个半圆,一辆装满货物的卡车要通过此门,已知卡车高为2.5M,车宽为1.6M,
一辆重型卡车匀速行驶时发动机的功率为202kW,速度为80km/h,汽车行驶1h,
用英文翻译“我是一名重型卡车销售人员”
重型大卡车为什么有很多轮子
一辆卡车装满货物后,高4m,宽3m,这辆卡车能通过横截面如图(上方为半圆)的隧道吗?为什么?
某工厂大门形状如图所示,其中上部分为一个半圆,一辆装满货物的卡车要通过此门,已知卡车高为2.6m,车宽