VB题目:一辆重型卡车欲通过1000公里的沙漠,卡车耗油量为1公升/公里,卡车总载油
答案:2 悬赏:60
解决时间 2021-12-13 21:25
- 提问者网友:清羽墨安
- 2021-12-13 04:02
VB题目:一辆重型卡车欲通过1000公里的沙漠,卡车耗油量为1公升/公里,卡车总载油
最佳答案
- 二级知识专家网友:懂得ㄋ、沉默
- 2021-12-13 04:55
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.
参考自xqsxwyh知友
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.
参考自xqsxwyh知友
全部回答
- 1楼网友:一池湖水
- 2021-12-13 05:35
你好!
这个条件似乎没有给够吧。
如果对你有帮助,望采纳。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯