POJ 1003(小数处理？）

最新推荐文章于 2016-10-13 23:16:25 发布

原创最新推荐文章于 2016-10-13 23:16:25 发布 · 2.9k 阅读

0 ·

CC 4.0 BY-SA版权

杂题专栏收录该内容

50 篇文章

订阅专栏

本文分享了一道简单的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.