ac1077.pas

来自「某牛人写的acm.tongji.edu.cn上大部分ac的代码,仅供学习研究,请」· PAS 代码 · 共 17 行

program tju1077;
var
  a,b,i,j:word;
  lnc,lnd,ans:extended;
begin
  repeat
    read(b,a,i,j);
    a:=(a-1) div i+1;b:=(b-1) div j+1;
    lnc:=0;lnd:=ln(2)*(a+b-1);ans:=0;
    for i:=a+b-1 downto a do begin
      ans:=ans+exp(lnc-lnd);
      lnc:=lnc-ln(a+b-i)+ln(i);
    end;
    writeln(ans*100:0:4);
  until seekeof;
end.