vf程序设计题

来源：百度知道 编辑：UC知道 时间：2024/05/24 09:39:58
设s＝1＋1/2＋1/3＋…＋1/n，n为正整数，求使s不超过10的最大的n（分别用do while enddo和for…endfor
两种结构设计程序求

方法一
set talk off
clear
s=0
n=1
do while s<=10
s=s+1/n
n=n+1
enddo
?"满足算式1+1/2+1/3+...+1/n<=10的最大的n是:",n-1
set talk on

方法二
SET TALK OFF
s=0
for n=1 to 100000
s=s+1/n
if s>10
exit
endif
endfor
?"满足算式1+1/2+1/3+...+1/n<=10的最大的n是:",n
SET TALK ON