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.