求s=1+1/2+1/3+1/4......+1/N, 当 s>25 时退出,求此时的最大的 N 值

clear
s=0
n=1
do while .t.
   s=s+1/n
   if s>25
     exit
   endif
n=n+1
enddo
?n

这个s值你学过积分就知道不可能大于3，怎么会大于25呢，当不会退出了

可以想象  这是一个非常巨大的数字

我都跑到7位数了  结果才是14点多一些   距离25还非常遥远

代码没有问题，并且没有进入死循环，如果当N=1000000时，1/1000000=0.0000001，当N的值越大，1/N的值越小，这个道理楼主应该能明白吧
可以将条件修改下，当S>10时退出DO WHILE ENDDO

clear
s=0
n=1
do while .t.
   s=s+1/n
   if s>10
     exit
   endif
n=n+1
?s,n && 看下结果
enddo
?n

n-->∞, 1/n-->0

很想看看这个极限是多少   

先上个pp   然后继续跑着  看看究竟能跑到多少

近似公式：
1+1/2+1/3+……+1/n≈lnn+C
其中，lnn是n的自然对数，C=0.5772……叫做欧拉常数
有兴趣可关注“调和数列”

按照你这个公式  想达到25 至少也得算到11位数  大约百亿左右

如果要算到 s>25, n 要接近 10^11 了，有耐心可以等出结果。

哈哈，真能到 25 啊