游泳池_纪中1439_二分+水

Description

　　有一个游泳池，形状为等腰直角三角形，直角边长250米。
　　
　　游泳池可以看作是在坐标系统中（如上图所示）。用一条两端点在三角形边上的线段把游泳池分成两个面积相同的部分。
　　在给定线段其中一个端点的情况下，要你编程输出另一个端点。

Input

　　输入第一行包含两个整数，表示线段一个端点的坐标，保证给定的端点在直角三角形的边上。

Output

　　输出线段另一个端点的坐标，答案保留2位小数。

分析

水题就要水过对不对

分情况讨论，二分找到边长，计算坐标即可

code

const
  s=250*250/2;
  xb=sqrt(250*250*2);
  ge=1.4142135623730950488016887242097;
var
  n,m:Longint;
  l,r,w,ll,mid:real;
function hellen(a,b,c:real):real;
var
  p:real;
begin
  p:=(a+b+c)/2;
  hellen:=p*(p-a)*(p-b)*(p-c);
  hellen:=sqrt(hellen);
end;
begin
  readln(n,m);
  if (n=0)and(m=125) then
  begin
    writeln('250.00 0.00');
    halt;
  end;
  if (n=125)and(m=0) then
  begin
    writeln('0.00 250.00');
    halt;
  end;
  if (n=250)and(m=0) then
  begin
    writeln('0.00 125.00');
    halt;
  end;
  if (n=0)and(m=250) then
  begin
    writeln('125.00 0.00');
    halt;
  end;
  if (n=0)and(m=0) then
  begin
    writeln('125.00 125.00');
    halt;
  end;
  if (n=125)and(m=125) then
  begin
    writeln('0.00 0.00');
    halt;
  end;
  if (n=0)and(m<125) then
  begin
    l:=0;
    r:=xb;
    while l<=r do
    begin
      mid:=(l+r)/2;
      w:=sqr(m-mid/ge)+sqr(250-mid/ge);
      w:=sqrt(w);
      ll:=hellen(250-m,xb-mid,w);
      if abs(ll-s/2)<=0.0001 then
      break;
      if ll>s/2 then
      l:=mid
      else
      r:=mid;
    end;
    writeln(250-mid/ge:0:2,' ',mid/ge:0:2);
    halt;
  end;
  if (m=0)and(n<125) then
  begin
    l:=0;
    r:=xb;
    while l<=r do
    begin
      mid:=(l+r)/2;
      w:=sqr(n-mid/ge)+sqr(250-mid/ge);
      w:=sqrt(w);
      ll:=hellen(250-n,xb-mid,w);
      if abs(ll-s/2)<=0.0001 then
      break;
      if ll>s/2 then
      l:=mid
      else
      r:=mid;
    end;
    writeln(mid/ge:0:2,' ',250-mid/ge:0:2);
    halt;
  end;
  if (n=0)and(m>125) then
  begin
    l:=0;
    r:=xb;
    while l<=r do
    begin
      mid:=(l+r)/2;
      w:=sqr(mid)+sqr(m);
      w:=sqrt(w);
      ll:=hellen(m,mid,w);
      if abs(ll-s/2)<=0.0001 then
      break;
      if ll>s/2 then
      r:=mid
      else
      l:=mid;
    end;
    writeln(mid:0:2,' 0.00');
    halt;
  end;
  if (m=0)and(n>125) then
  begin
    l:=0;
    r:=xb;
    while l<=r do
    begin
      mid:=(l+r)/2;
      w:=sqr(mid)+sqr(n);
      w:=sqrt(w);
      ll:=hellen(n,mid,w);
      if abs(ll-s/2)<=0.0001 then
      break;
      if ll>s/2 then
      r:=mid
      else
      l:=mid;
    end;
    writeln(mid:0:2,' 0.00');
    halt;
  end;
  if (n<>0)and(m<>0)and(n>125)and(m<125) then
  begin
    l:=0;
    r:=xb;
    while l<=r do
    begin
      mid:=(l+r)/2;
      w:=sqr(n)+sqr(mid-m);
      w:=sqrt(w);
      ll:=hellen(xb-m*ge,250-mid,w);
      if abs(ll-s/2)<=0.0001 then
      break;
      if ll<s/2 then
      r:=mid
      else
      l:=mid;
    end;
    writeln('0.00 ',mid:0:2);
    halt;
  end;
  if (n<>0)and(m<>0)and(n<125)and(m>125) then
  begin
    l:=0;
    r:=xb;
    while l<=r do
    begin
      mid:=(l+r)/2;
      w:=sqr(m)+sqr(mid-n);
      w:=sqrt(w);
      ll:=hellen(xb-n*ge,250-mid,w);
      if abs(ll-s/2)<=0.0001 then
      break;
      if ll<s/2 then
      r:=mid
      else
      l:=mid;
    end;
    writeln(mid:0:2,' 0.00');
  end;
end.