vfp程序设_计题(_省二必备)

《vfp程序设_计题(_省二必备)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1、求100以内最大的自然数N，使得从1开始的连续N个自然数的倒数之和小于3.5。SETTALKOFFCLEARS=0FORN=1TO100S=(S+1)/N改正：S=S+1/NIFS>=3.5LOOP改正：EXITENDIFENDFOR?N-1SETTALKONRETURN"运行结果：18"2、求100以内最小的自然数N，使得从1开始的连续N个自然数的倒数之和大于3.6。SETTALKOFFCLEARS=0FORN=1TO100S=S+1/NIFS<=3.6改正：IFS>3.6LOOP改正：EXITENDIFENDFOR?

2、NSETTALKONRETURN"运行结果：21"3、求50以内最大的自然数N，使得从102开始的连续N个偶数之和小于3000。SETTALKOFFCLEARS=0FORN=1TO50A=100+2*NS=S*A改正：S=S+AIFS>=3000LOOP改正：EXITENDIFENDFOR?N-1SETTALKONRETURN"运行结果：23"4、求50以内最小的自然数N，使得从102开始的连续N个偶数之和大于2000。SETTALKOFFCLEARS=0FORN=1TO50A=102+2*N改正：A=100+2*NS=S+

3、AIFS>2000LOOP改正：EXITENDIFENDFOR?NSETTALKONRETURN"运行结果：17"5、求出100以内使得算式1*2+2*3+…+N*(N+1)的值小于5000的最大的自然数N。SETTALKOFFCLEARS=0FORN=1TO100A=N*(N+1)S=S+AIFS<5000改正：IFS>5000EXITENDIFENDFOR?N改正：?N-1SETTALKONRETURN"运行结果：23"6、求出100以内使得算式1*2+2*3+…+N*(N+1)的值大于6000的最小的自然数N。SETT

4、ALKOFFCLEARS=0FORN=1TO100A=N*(N+1)S=S+AIFS<=6000改正：IFS>6000LOOP改正：EXITENDIFENDFOR?NSETTALKONRETURN"运行结果：26"7、求出100以内使得算式1+(1+2)+…+(1+2+…+N)的值小于1000的最大的自然数N。SETTALKOFFCLEARS=0T=0FORN=1TO100S=S+NT=T+SIFT<1000改正：IFT>1000EXITENDIFENDFOR?N改正：?N-1SETTALKONRETURN"运行结果：17"

5、8、求出100以内最大的奇数N使得算式(1-1/2)+(1/3-1/4)+…+(1/N-1/(N+1))的值小于0.68。SETTALKOFFCLEARS=0FORN=1TO100STEP2A=1/N-1/(N+1)S=S+AIFS<0.68改正：IFS>0.68EXITENDIFENDFOR?N-2SETTALKONRETURN"运行结果：35"9、某国在2000年时人口总数为1亿，若以每年3%的速度递增，试求出至少要到哪一年该国人口总数才会翻一翻。SETTALKOFFCLEARS=1FORN=2001TO2100S=S*

6、1.03IFS=2改正：IFS>=2LOOP改正：EXITENDIFENDFOR?NSETTALKONRETURN"运行结果：2024"9、设等比数列：1，2，4，8，…。求使得此数列的前N项之和大于100000的最小的自然数N。SETTALKOFFCLEARA=1S=1改正：S=0FORN=1TO100S=S+AIFS>100000EXITENDIFA=2+A改正：A=A*2ENDFOR?NSETTALKONRETURN"运行结果：17"10、设等比数列：1，2，4，8，…。求使得此数列的前N项之和小于2345678的最大

7、的自然数N。SETTALKOFFCLEARA=1S=0FORN=1TO100S=S+AIFS>=2345678EXITENDIFA=2+A改正：A=A*2ENDFOR?N改正：?N-1SETTALKONRETURN"运行结果：21"11、求出45678的所有非平凡因子（即除1和它本身以外的约数）中是奇数的因子个数。SETTALKOFFCLEARA=45678N=0FORB=3TOASTEP2IFMOD(B,A)=0改正：IFMOD(A,B)=0N=N+1ENDIFENDFOR?B改正：?NSETTALKONRETURN"运行

8、结果：7"12、求出20677和42067的最大公约数。SETTALKOFFCLEARA=20677B=42067FORD=1TOAIFMOD(A,D)=0ANDMOD(B,D)=0MAX=B改正：MAX=DENDIFENDFOR?D改正：MAXSETTALKONRETURN"运行结果：7