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?NS

2、ETTALKONRETURN"运行结果：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+AIFS>2000LOOP改正：EXI

3、TENDIFENDFOR?NSETTALKONRETURN28程序改错和填空题选"运行结果：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。SETTALKOFFCLEARS=0FORN=1TO100

4、A=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"8、求出100以内最大的奇数N使得算式(1-1/2)+(1/3-1/4)+…+(1/

5、N-1/(N+1))的值小于0.68。SETTALKOFFCLEARS=0FORN=1TO100STEP2A=1/N-1/(N+1)S=S+AIFS<0.68改正：IFS>0.68EXITENDIFENDFOR?N-2SETTALKONRETURN28程序改错和填空题选"运行结果：35"9、某国在2000年时人口总数为1亿，若以每年3%的速度递增，试求出至少要到哪一年该国人口总数才会翻一翻。SETTALKOFFCLEARS=1FORN=2001TO2100S=S*1.03IFS=2改正：IFS>=2LOOP改正：EXITENDIFENDFOR?NSETTAL

6、KONRETURN"运行结果：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的最大的自然数N。SETTALKOFFCLEARA=1S=0FORN=1TO100S=S+AIFS>=2345678EXITENDIFA

7、=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改正：?NSETTALKON28程序改错和填空题选RETURN"运行结果：7"12、求出20677和42067的最大公约数。SETTALKOFFCLEARA=20677B=42067FORD=1TOAIFMOD

8、(A,D)=0ANDMOD(B,D)=0MAX=B改