vfp程序设计题(附参考答案)

vfp程序设计题(附参考答案)

ID:6723036

大小:78.00 KB

页数:8页

时间:2018-01-23

vfp程序设计题(附参考答案)_第1页
vfp程序设计题(附参考答案)_第2页
vfp程序设计题(附参考答案)_第3页
vfp程序设计题(附参考答案)_第4页
vfp程序设计题(附参考答案)_第5页
资源描述:

《vfp程序设计题(附参考答案)》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、VFP程序设计题(附参考答案)范茂华1.求1到2000之间,能被3或7整除,并且含有数字5的整数的个数、它们的和、它们的平方根的和(保留2位小数)、以及它们的平方和。clearstore0ton,s1,s2,s3fori=1to2000if(mod(i,3)=0ori%7=0)and‘5’$str(i)n=n+1s1=s1+is2=s2+sqrt(i)s3=s3+i^2endifnext?“个数:”,n,”和:”,s1,”平方根和:”,s2,”平方和:”,s3return2.求能被3整除且至少有一位数字为5的三位数的个数。clea

2、rn=0fori=100to999ifi%3=0and'5'$str(i)n=n+1endifnext?nreturn3.求出只要能被2,7,9之一整除的800以内的正整数的个数。clearn=0fori=1to800ifi%3=0ori%7=0ori%9=0n=n+1endifnext?nreturn4.求[105,625]间能同时被7和11整除的自然数之和。求[200,600]间奇数之和。clears=0fori=105to625ifi%7=0andi%11=0s=s+iendifnext?sreturn5.编程序求出1000

3、到2000之间同时满足除3余2和除5余3条件的数的个数。clearn=0fori=1000to2000ifi%3=2andi%5=3n=n+1endifnext?“个数:”,nreturn6.输出[10,100]中除以17的余数和除以5的商相等的整数的个数。clearn=0fori=10to100ifi%17=int(i/5)n=n+1endifnext?“个数:”,nreturn7.统计区间[1000,9999]内所有能被3整除,且千位数字与个位数字之和为8的整数的个数。clearn=0fori=1000to9999gw=i%1

4、0qw=int(i/1000)ifi%3=0andgw+qw=8n=n+1endifnext?“个数:”,nreturn8.求在四位数的奇数中,所有各位数字之和是25的倍数的数的和。clears=0fori=1000to9999gw=i%10sw=int(i/10)%10bw=int(i/100)%10qw=int(i/1000)ifi%2<>0and(gw+sw+bw+qw)%25=0s=s+iendifnext?“和:”,nreturn9.求出所有能被17整除且不含重复数字的三位数的和。clears=0fori=100to99

5、9gw=i%10sw=int(i/10)%10bw=int(i/100)ifi%17=0andgw<>swandsw<>bwandbw<>gws=s+iendifnext?“和:”,nreturn————————————————————————————————————10.求1到500的偶数立方和与奇数立方和之差。clears1=0s2=0fori=1to500ifi%2=0s1=s1+i^3elses2=s2+i^3endifnext?“偶数立方和与奇数立方和之差为:”,s1-s2return——————————————————

6、——————————————————11.求3+9+27+81+243+...这样的数之和.若累加数大于500时,则结束累加.clears=0n=1dowhile.t.s=s+3^nifs>500exitendifn=n+1enddo?sreturn12.求1+3+5+7+9+11+...这样的奇数之和.若累加数大于500时,则结束累加。13.计算S=1*5*9*13*...*k,直到累乘数k>=25中止。clears=1n=1dowhile.t.s=s*nifn>=25exitendifn=n+4enddo?sreturn14.

7、求出1到5000之间的能被5整除的前若干个偶数之和,当和大于500时程序退出。————————————————————————————————————15.编写程序,s=1+1/2+1/3+…+1/99,保留两位小数。clears=0forn=1to99s=s+1/nnext?sreturn16.编程求S=1*3+2*4+3*5+...+198*200。clears=0forn=1to198s=s+n*(n+2)next?sreturn17.设S=1+1/2+1/3+...+1/N,N为正整数。编程求使S不超过10的最大的Ncle

8、ars=0n=0dowhile.t.n=n+1s=s+1/nifs>10exitendifenddo?n-1return18.求S=8!+9!+10!clears=0forx=8to10t=1fory=1toxt=t*ynexts=s+tnext?

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。