error_5.prg

来自「刚才那个的补充」· PRG 代码 · 共 15 行

***程序功能：计算数列1，1/2，1/3，1/4……，1/n之和，
***当某一项的值与前一项的值之差小于0.001时停止计算。
CLEAR
n=1
m=1
nSum=0
DO WHILE .T.
	nSum=nSum+1/n
	m=1/n
	n=n+1
	IF m-1/n>0.001
		loop
	ENDIF
ENDDO
?"该数列的和为：",nSum