ac1077.pas

来自「这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码」· 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.