POJ 1005(向后去整）

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

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

本文介绍了一个使用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.