游泳池 (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.
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· DeepSeek 解答了困扰我五年的技术问题
· 为什么说在企业级应用开发中,后端往往是效率杀手?
· 用 C# 插值字符串处理器写一个 sscanf
· Java 中堆内存和栈内存上的数据分布和特点
· 开发中对象命名的一点思考
· DeepSeek 解答了困扰我五年的技术问题。时代确实变了!
· PPT革命!DeepSeek+Kimi=N小时工作5分钟完成?
· What?废柴, 还在本地部署DeepSeek吗?Are you kidding?
· 赶AI大潮:在VSCode中使用DeepSeek及近百种模型的极简方法
· DeepSeek企业级部署实战指南:从服务器选型到Dify私有化落地