POJ 1005(向后去整）

最新推荐文章于 2021-11-15 22:13:06 发布

原创最新推荐文章于 2021-11-15 22:13:06 发布 · 2.3k 阅读

0 ·

CC 4.0 BY-SA版权

杂题专栏收录该内容

50 篇文章

订阅专栏

本文介绍了一个使用Pascal语言实现的小数处理算法。该算法通过读取坐标值计算属性开始侵蚀的年份，并进行适当的四舍五入处理。适用于需要解决特定数学问题的场景。

小数处理……

Program P1005;
const
   pi=3.1415926;
Var
   t,i,j:longint;
   x,y,s:double;
begin
   read(t);
   for i:=1 to t do
   begin
      read(x,y);
      s:=sqrt(x*x+y*y);
      s:=s*s*pi/2;
      s:=s/50;
      if trunc(s)<s then s:=trunc(s)+1
      else s:=trunc(s);
      writeln('Property ',i,': This property will begin eroding in year ',s:0:0,'.');

   end;
   writeln('END OF OUTPUT.');
end.