POJ 1003(小数处理？）

最新推荐文章于 2014-11-30 20:03:22 发布

最新推荐文章于 2014-11-30 20:03:22 发布 · 153 阅读

本文展示了一个使用Pascal语言编写的程序，该程序通过级数逼近的方式计算一个特定数值。程序采用数组来存储每一步的计算结果，并通过循环结构不断累加直到达到指定条件。用户可以输入目标值，程序会输出最接近该值的级数项数。

此题题目看了半天……才发现是水题

Program P1003;
var
   a:array[0..10000] of double;
   i,j:longint;
   n:double;
begin
   i:=1;
   a[0]:=0;
   while a[i-1]<5.2 do
   begin
      a[i]:=a[i-1]+1/(i+1);
      inc(i);
   end;
   read(n);
   while n<>0.00 do
   begin
      i:=0;
      while a[i]<n do inc(i);
      writeln(i,' card(s)');
      read(n);
   end;
   writeln;
end.