游泳池 (Standard IO)

题意/Description:

       有一个游泳池，形状为等腰直角三角形，直角边长250米。

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

 

读入/Input：

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

 

输出/Output：

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

 

题解/solution：

      自己画6个图，分点在每条边的左边和右边6种情况。然后，求出被分成两半的面积，不停比较，暴力，即可。正解见http://blog.csdn.net/liangzihao1/article/details/51917457。

       我的代码长，不易懂。样例过不了，千万别复制。但AC了。

 

代码/Code：

 

var
  x,y:longint;
  a,max,k:real;
procedure fd;
begin
  if (x=0) and (y=0) then
    begin
      write('125.00 125.00'); halt;
    end;
  if (x=250) and (y=0) then
    begin
      write('0.00 125.00'); halt;
    end;
  if (x=0) and (y=250) then
    begin
      write('125.00 0.00'); halt;
    end;
  if (x=125) and (y=125) then
    begin
      write('0.00 0.00'); halt;
    end;
  if (x=0) and (y=125) then
    begin
      write('250.00 0.00'); halt;
    end;
  if (x=125) and (y=0) then
    begin
      write('0.00 250.00'); halt;
    end;
end;

procedure main1;
var
  sum,t,k:real;
  i:longint;
begin
  t:=(250*y)/2;
  for i:=1 to 125 do
    begin
      sum:=t+(i*x)/2;
      if max-sum<sum then
        begin
          k:=i-1;
          break;
        end;
    end;
  for i:=1 to 100 do
    begin
      sum:=t+(k*x)/2;
      if max-sum>=sum then k:=k+0.01
                      else break;
    end;
  write('0.00 ',k:0:2);
end;

procedure main2;
var
  sum,t,k:real;
  i:longint;
begin
  t:=(250*x)/2;
  for i:=1 to 125 do
    begin
      sum:=t+(i*y)/2;
      if max-sum<sum then
        begin
          k:=i-1;
          break;
        end;
    end;
  for i:=1 to 100 do
    begin
      sum:=t+(k*y)/2;
      if max-sum>=sum then k:=k+0.01
                     else break;
    end;
  write(k-0.01:0:2,' 0.00');
end;

procedure main3;
var
  sum,k:real;
  i:longint;
begin
  for i:=125 to 250 do
    begin
      sum:=(x*i)/2;
      if max-sum<sum then
        begin
          k:=i-1;
          break;
        end;
    end;
  for i:=1 to 100 do
    begin
      sum:=(x*k)/2;
      if max-sum>=sum then k:=k+0.01
                     else break;
    end;
  write('0.00 ',k-0.01:0:2);
end;

procedure main4;
var
  sum,k:real;
  i:longint;
begin
  for i:=125 to 250 do
    begin
      sum:=((250-x)*i)/2;
      if max-sum<sum then
        begin
          k:=i-1;
          break;
        end;
    end;
  for i:=1 to 100 do
    begin
      sum:=((250-x)*k)/2;
      if max-sum>=sum then k:=k+0.01
                     else break;
    end;
  if max-sum<sum then k:=k-0.01;
  write(250-k:0:2,' ',k:0:2);
end;

procedure main5;
var
  sum,k:real;
  i:longint;
begin
  for i:=125 to 250 do
    begin
      sum:=(y*i)/2;
      if max-sum<sum then
        begin
          k:=i-1;
          break;
        end;
    end;
  for i:=1 to 100 do
    begin
      sum:=(y*k)/2;
      if max-sum>=sum then k:=k+0.01
                     else break;
    end;
  write(k-0.01:0:2,' 0.00');
end;

procedure main6;
var
  sum,k:real;
  i:longint;
begin
  for i:=125 to 250 do
    begin
      sum:=((250-y)*i)/2;
      if max-sum<sum then
        begin
          k:=i-1;
          break;
        end;
    end;
  for i:=1 to 100 do
    begin
      sum:=((250-y)*k)/2;
      if max-sum>=sum then k:=k+0.01
                     else break;
    end;
  write(k:0:2,' ',250-k:0:2);
end;

begin
  readln(x,y);
  fd;
  max:=(250*250)/2;
  k:=maxlongint;
  if (x>125) and (y<125) and (y<>0) then main1;
  if (x<125) and (y>125) and (x<>0) then main2;
  if (x>125) and (y=0) then main3;
  if (x<125) and (y=0) then main4;
  if (x=0) and (y>125) then main5;
  if (x=0) and (y<125) then main6;
end.