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

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的三位数的个数。clearn=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到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%10qw=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%20and(gw+sw+bw+qw)%25=0s=s+iendifnext?“和：”,nreturn9．求出所有能被17整除且不含重复数字的三位数的和。clears=0fori=100to999gw=i%10sw=int(i/10)%10bw=int(i/100)ifi%17=0andgwswandswbwandbwgws=s+iendifnext?“和：”,nreturn————————————————————————————————————10．求1到500的偶数立方和与奇数立方和之差。clears1=0s2=0fori=1to500ifi%2=0s1=s1+i^3elses2=s2+i^3endifnext?“偶数立方和与奇数立方和之差为：”,s1-s2return————————————————————————————————————11．求3+9+27+81+243+...这样的数之和.若累加数大于500时,则结束累加.clears=0n=1dowhile.t.s=s+3^nifs500exitendifn=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．求出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的最大的Nclears=0n=0dowhile.t.n=n+1s=s+1/nifs10exitendifenddo?n-1return18．求S=8!+9!+10!clears=0forx=8to10t=1fory=1toxt=t*ynexts=s+tnext?sreturn19．编写程序，求10!20．计算S=3!+5!+7!+...+N!，求直到S=680000为止的奇数N。clears=0n=3dowhile.t.t=1m=1dowhilemnt=t*mm=m+1enddos=s+tifs=680000exitendifn=n+2enddo?nreturn21．s=1!+2!+3!+....+n!当s大于61000时结束累加，求n。22．数列xi各元素的值是：x1＝1，x2＝1＋2,x3＝1＋2＋3,.....xn＝1＋2＋3＋......＋n。对数列求和：S=x1+x2+x3....，直到S3000止，求此时数列中最大的元素值。clears=0n=1dowhile.t.x=0m=1dowhilemnx=x+mm=m+1enddos=s+xifs=3000exitendifn=n+1enddo?xreturn————————————————————————————————————23．已知S1=1,S2=1+2,S3=1+2+3,…,SN=1+2+…+N,求S20到S80有多少数能被17或35整除。clearn=0forx=20to80s=0fory=1toxs=s+ynextifs%17=0ors%35=0n=n+1endifnext?nreturn————————————————————————————————————24．求在1,2,3,4,...,10这10个数中，任意选两个不同的数,求它们的和能被2整除的数的总对数。(注意:象3+5和5+3认为是同一对数)clearn=0forx=1to10fory=1tox-1if(x+y)%2=0n=n+1endifnextnext?nreturn————————————————————————————————————25．已知一个数列的前三个数是1,2,3,从第四个数起,每个数都是前三个数之和。求出该数列的第15个数。cleardimea(15)a(1)=1a(2)=2a(3)=3fori=4to15a(i)=a(i-1)+a(i-2)+a(i-3)next?a(15)return————————————————————————————————————26．编写程序，求200到800之间素数的个数。clearn=0forx=200to800flag=.t.fori=2tosqrt(x)ifx%i=0flag=.f.exitendifnextifflag=.t.n=n+1endifnext?nreturn27．编写程序，求600到900之间素数的和。————————————————————————————————————28．所谓回文数是从左至右或从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求在100—900的范围内所有能被3整除的回文数的和。clears=0forx=100to900a=x%10b=int(x/100)ifa=bandx%3=0s=s+xendifnext?sreturn29．编写程序，计算在0至50的范围内有多少个数，其每位数的乘积大于每位数的和。clearn=0fori=10to50a=i%10b=int(i/10)ifa*ba+bn=n+1endifnext?nreturn————————————————————————————————————30．把18元钱分成一元、二元和五元的纸币且纸币数共为10张的分法有多少种？（注：在兑换中一元、二元、五元的纸币数可以为0）。clearn=0forfive=0to3fortwo=0to9one=10-five-twoifone=0andfive*5+two*2+one=18n=n+1endifnextnext?nreturn————————————————————————————————————31．编写程序，求共有几组I、j、k符合算式ijk+kji=1333，其中I、j、k是0~9之间的一位整数。clearn=0fori=0to9forj=0to9fork=0to9if(i*100+j*10+k)+(k*100+j*10+i)=1333n=n+1endifnextnextnext?nreturn————————————————————————————————————32．一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，如：6=1+2+3，则6就是一个完数。求出10000以内的完数的个数及它们的和。clearn=0t=0forx=1to10000s=0fori=1tox/2ifx%i=0s=s+iendifnextifx=sn=n+1t=t+xendifnext?个数：,n,和：,treturn————————————————————————————————————33．已知abc，且a+b+c50，求满足条件1/(a^2)+1/(b^2)=1/(c^2)的共有多少组。clearn=0fora=1to49forb=1toa-1forc=1tob-1ifa+b+c50and1/a^2+1/b^2=1/c^2n=n+1endifnextnextnext?nreturn