VFP程序设计题选

《VFP程序设计题选》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、程序改错和填空题选程序设计题选1、求100以内最大的自然数N，使得从1开始的连续N个自然数的倒数之和小于3.5。SETTALKOFFCLEARS=0FORN=1TO100S=(S+1)/NIFS>=3.5LOOPENDIFENDFOR?N-1SETTALKONRETURN"运行结果：18"2、求100以内最小的自然数N，使得从1开始的连续N个自然数的倒数之和大于3.6。SETTALKOFFCLEARS=0FORN=1TO100S=S+1/NIFS<=3.6LOOPENDIFENDFOR?NSETTALKONRETURN"运行结果：21"3、求50以内最大的自然数N，使得从102开始的连续N个偶

2、数之和小于3000。SETTALKOFFCLEARS=0FORN=1TO50A=100+2*NS=S*AIFS>=3000LOOPENDIFENDFOR?N-1SETTALKONRETURN"运行结果：23"4、求50以内最小的自然数N，使得从102开始的连续N个偶数之和大于2000。SETTALKOFFCLEARS=0FORN=1TO50A=102+2*NS=S+AIFS>2000LOOPENDIFENDFOR?NSETTALKONRETURN28程序改错和填空题选"运行结果：17"5、求出100以内使得算式1*2+2*3+…+N*(N+1)的值小于5000的最大的自然数N。SETTALKO

3、FFCLEARS=0FORN=1TO100A=N*(N+1)S=S+AIFS<5000EXITENDIFENDFOR?NSETTALKONRETURN"运行结果：23"6、求出100以内使得算式1*2+2*3+…+N*(N+1)的值大于6000的最小的自然数N。SETTALKOFFCLEARS=0FORN=1TO100A=N*(N+1)S=S+AIFS<=6000LOOPENDIFENDFOR?NSETTALKONRETURN"运行结果：26"7、求出100以内使得算式1+(1+2)+…+(1+2+…+N)的值小于1000的最大的自然数N。SETTALKOFFCLEARS=0T=0FORN=1

4、TO100S=S+NT=T+SIFT<1000EXITENDIFENDFOR?NSETTALKONRETURN"运行结果：17"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.68EXITENDIFENDFOR?N-2SETTALKONRETURN28程序改错和填空题选"运行结果：35"9、某国在2000年时人口总数为1亿，若以每年3%的速度递增，试求出至少要到哪一年该国人口总数才会翻一翻。SETTALKO

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

6、00S=S+AIFS>=2345678EXITENDIFA=2+AENDFOR?NSETTALKONRETURN"运行结果：21"11、求出45678的所有非平凡因子（即除1和它本身以外的约数）中是奇数的因子个数。SETTALKOFFCLEARA=45678N=0FORB=3TOASTEP2IFMOD(B,A)=0N=N+1ENDIFENDFOR?BSETTALKON28程序改错和填空题选RETURN"运行结果：7"12、求出20677和42067的最大公约数。SETTALKOFFCLEARA=20677B=42067FORD=1TOAIFMOD(A,D)=0ANDMOD(B,D)=0MAX=

7、BENDIFENDFOR?DSETTALKONRETURN"运行结果：713"13、求前[1,100]内能被6或8整除的所有自然数的平方根的和（将第1位小数四舍五入，结果只保留整数）。SETTALKOFFCLEARS=0FORN=1TO100IFMOD(N,6)=0ANDMOD(N,8)=0S=SQRT(S+N)ENDIFENDFOR?ROUND(S,0)SETTALKONRETURN"运行结果：