游泳池 (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.



 

posted @   猪都哭了  阅读(244)  评论(0编辑  收藏  举报
编辑推荐:
· DeepSeek 解答了困扰我五年的技术问题
· 为什么说在企业级应用开发中,后端往往是效率杀手?
· 用 C# 插值字符串处理器写一个 sscanf
· Java 中堆内存和栈内存上的数据分布和特点
· 开发中对象命名的一点思考
阅读排行:
· DeepSeek 解答了困扰我五年的技术问题。时代确实变了!
· PPT革命!DeepSeek+Kimi=N小时工作5分钟完成?
· What?废柴, 还在本地部署DeepSeek吗?Are you kidding?
· 赶AI大潮:在VSCode中使用DeepSeek及近百种模型的极简方法
· DeepSeek企业级部署实战指南:从服务器选型到Dify私有化落地
点击右上角即可分享
微信分享提示