?? ac1105.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -