讨论 / Pascal AC 纪念嘿嘿
lani711 2016-03-15 22:53:09
点我顶贴 收藏 删除
var f:array[0..31] of real;

m,n,a,b,i:longint;

p,q:real;

begin

readln(m,n,a,b,p,q);

if a>b then f[m]:=a

else f[m]:=b;

p:=1-p; q:=1-q;

for i:=m-1 downto 1 do

if a-b+f[i+1]*(p-q)>0 then f[i]:=a+f[i+1]*p

else f[i]:=b+f[i+1]*q;

writeln(f[1]*n:0:5);

end.

查看更多回复
提交回复