竟然是搜索……囧

还以为是什么神题……

 uses math;
var x,y:extended;
n:longint;
function find(x,y:extended;z:longint):extended;
var i:longint;
r1,r2:extended;
begin
find:=;
if z= then
begin
if x>y then exit(x/y) else exit(y/x);
end;
for i:= to z- do
begin
r1:=find(x*i/z,y,i);r2:=find(x*(z-i)/z,y,z-i);
find:=min(find,max(r1,r2));
end;
for i:= to z- do
begin
r1:=find(x,y*i/z,i);r2:=find(x,y*(z-i)/z,z-i);
find:=min(find,max(r1,r2));
end;
end;
begin
readln(x,y,n);
writeln(find(x,y,n)::);
end.
04-26 14:58
查看更多