用倒推法
program oil_lib;
var
k:integer;
d,
dl:real;
oil,dis:array[1..10] of real;
i:integer;
begin
k:=1;
d:=500;
dis[1]=500;
oil[1]:=500;
repeat
k:=k+1;
d:=d+5002/(2*k-1);
dis[k]:=d;
oil[k]:=oil[k-1]+500;
until d>=1000;
dis[k]:=1000;
di:=1000-dis[k-1];
oil[k]:=d1*(2*k+1)+oil[k-1];
for i:=0 to k do
writeln(i,1000-dis[k-i]:30,oil[k-i]:80);
end.
program oil_lib;
var
k:integer;
d,
dl:real;
oil,dis:array[1..10] of real;
i:integer;
begin
k:=1;
d:=500;
dis[1]=500;
oil[1]:=500;
repeat
k:=k+1;
d:=d+5002/(2*k-1);
dis[k]:=d;
oil[k]:=oil[k-1]+500;
until d>=1000;
dis[k]:=1000;
di:=1000-dis[k-1];
oil[k]:=d1*(2*k+1)+oil[k-1];
for i:=0 to k do
writeln(i,1000-dis[k-i]:30,oil[k-i]:80);
end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货