ac1105.pas

来自「这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码」· PAS 代码 · 共 19 行

program tju1105;
const
  zero=1e-6;
var
  a,k,l,r,t,s1,s2:extended;
begin
  repeat
    read(a,k);
    l:=k;r:=1e10;
    repeat
      t:=(l+r)/2;
      s1:=a*t*t/2;
      s2:=(t-k)*(t-k)*(t-k)/3;
      if abs(s1-s2)<zero then break else if s1>s2 then l:=t else r:=t;
    until false;
    writeln(t:0:4);
  until seekeof;
end.