vfp典型程序設(shè)計題(附參考答案)

1、典型程序設(shè)計題（附參考答案）1求1到2000之間，能被3或7整除，并且含有數(shù)字5的整數(shù)的個數(shù)、它們的和、它們的平方根的和（保留2位小數(shù)）、以及它們的平方和。2求能被3整除且至少有一位數(shù)字為5的三位數(shù)的個數(shù)。3求出只要能被2，7，9之一整除的800以內(nèi)的正整數(shù)的個數(shù)。4求105，625間能同時被7和11整除的自然數(shù)之和。求200，600間奇數(shù)之和。5編程序求出1000到2000之間同時滿足除3余2和除5余3條件的數(shù)的個數(shù)。6輸出10,100中除以17的余數(shù)和除以5的商相等的整數(shù)的個數(shù)。7統(tǒng)計區(qū)間1000，9999內(nèi)所有能被3整除，且千位數(shù)字與個位數(shù)字之和為8的整數(shù)的個數(shù)。8求在四位數(shù)的奇數(shù)中，所

2、有各位數(shù)字之和是25的倍數(shù)的數(shù)的和。9求出所有能被17整除且不含重復(fù)數(shù)字的三位數(shù)的和。10求1到500的偶數(shù)立方和與奇數(shù)立方和之差。11求3+9+27+81+243+.這樣的數(shù)之和. 若累加數(shù)大于500時,則結(jié)束累加.12求1+3+5+7+9+11+.這樣的奇數(shù)之和.若累加數(shù)大于500時, 則結(jié)束累加。13計算S=1*5*9*13*.*k，直到累乘數(shù)k=25中止。14求出1到5000之間的能被5整除的前若干個偶數(shù)之和，當(dāng)和大于500時程序退出。15編寫程序，s=1+1/2+1/3+1/99，保留兩位小數(shù)。16編程求S=1*3+2*4+3*5+.+198*200。17設(shè)S=1+1/2+1/3+.

3、+1/N，N為正整數(shù)。編程求使S不超過10的最大的N18求S=8!+9!+10!19編寫程序，求10!20計算S=3!+5!+7!+.+N!，求直到S=680000為止的奇數(shù)N。21s=1!+2!+3!+.+n! 當(dāng)s大于61000時結(jié)束累加，求n。22數(shù)列xi各元素的值是：x11，x212,x3123,.xn123.n。對數(shù)列求和：S=x1+x2+x3.，直到S3000止，求此時數(shù)列中最大的元素值。23已知S1=1,S2=1+2,S3=1+2+3,SN=1+2+N,求S20到S80有多少數(shù)能被17或35整除。24求在1,2,3,4,.,10這10個數(shù)中，任意選兩個不同的數(shù),求它們的和能被2整

4、除的數(shù)的總對數(shù)。(注意: 象3+5和5+3認(rèn)為是同一對數(shù))25已知一個數(shù)列的前三個數(shù)是1,2,3,從第四個數(shù)起,每個數(shù)都是前三個數(shù)之和。求出該數(shù)列的第15個數(shù)。26編寫程序，求200到800之間素數(shù)的個數(shù)。27編寫程序，求600到900之間素數(shù)的和。28所謂回文數(shù)是從左至右或從右至左讀起來都是一樣的數(shù)字，如：121是一個回文數(shù)。編寫程序，求在100900的范圍內(nèi)所有能被3整除的回文數(shù)的和。29編寫程序，計算在0至50的范圍內(nèi)有多少個數(shù)，其每位數(shù)的乘積大于每位數(shù)的和。30把18元錢分成一元、二元和五元的紙幣且紙幣數(shù)共為10張的分法有多少種？（注：在兌換中一元、二元、五元的紙幣數(shù)可以為0）。31編

5、寫程序，求共有幾組I、j、k符合算式ijk+kji=1333，其中I、j、k是09之間的一位整數(shù)。32一個數(shù)如果剛好與小于它的所有因子之和相等，則稱該數(shù)為一個“完數(shù)”，如：6=1+2+3，則6就是一個完數(shù)。求出10000以內(nèi)的完數(shù)的個數(shù)及它們的和。33已知abc，且a+b+c50，求滿足條件1/(a2)+1/(b2)=1/(c2)的共有多少組。典型程序設(shè)計題參考答案1求1到2000之間，能被3或7整除，并且含有數(shù)字5的整數(shù)的個數(shù)、它們的和、它們的平方根的和（保留2位小數(shù)）、以及它們的平方和。clearstore 0 to n,s1,s2,s3for i=1 to 2000if (mod(i,3

6、)=0 or i%7=0) and 5$str(i)n=n+1s1=s1+is2=s2+sqrt(i)s3=s3+i2endifnext? “個數(shù)：”,n,”和：”,s1,”平方根和：”,s2,”平方和：”,s3return2求能被3整除且至少有一位數(shù)字為5的三位數(shù)的個數(shù)。clearn=0for i=100 to 999 if i%3=0 and 5$str(i) n=n+1 endifnext?nreturn3求出只要能被2，7，9之一整除的800以內(nèi)的正整數(shù)的個數(shù)。clearn=0for i=1 to 800 if i%3=0 or i%7=0 or i%9=0 n=n+1 endifne

7、xt?nreturn4求105，625間能同時被7和11整除的自然數(shù)之和。求200，600間奇數(shù)之和。clears=0for i=105 to 625 if i%7=0 and i%11=0 s=s+i endifnext?sreturn5編程序求出1000到2000之間同時滿足除3余2和除5余3條件的數(shù)的個數(shù)。clearn=0for i=1000 to 2000if i%3=2 and i%5=3n=n+1endifnext? “個數(shù)：”, nreturn6輸出10,100中除以17的余數(shù)和除以5的商相等的整數(shù)的個數(shù)。clearn=0for i=10 to 100if i%17=int(i/

8、5)n=n+1endifnext? “個數(shù)：”, nreturn7統(tǒng)計區(qū)間1000，9999內(nèi)所有能被3整除，且千位數(shù)字與個位數(shù)字之和為8的整數(shù)的個數(shù)。clearn=0for i=1000 to 9999gw=i%10qw=int(i/1000)if i%3=0 and gw+qw=8n=n+1endifnext? “個數(shù)：”, nreturn8求在四位數(shù)的奇數(shù)中，所有各位數(shù)字之和是25的倍數(shù)的數(shù)的和。clears=0for i=1000 to 9999gw=i%10sw=int(i/10)%10bw=int(i/100)%10qw=int(i/1000)if i%20 and (gw+sw+

9、bw+qw)%25=0s=s+iendifnext? “和：”, nreturn9求出所有能被17整除且不含重復(fù)數(shù)字的三位數(shù)的和。clears=0for i=100 to 999gw=i%10sw=int(i/10)%10bw=int(i/100)if i%17=0 and gwsw and swbw and bwgws=s+iendifnext? “和：”, nreturn10求1到500的偶數(shù)立方和與奇數(shù)立方和之差。clears1=0s2=0for i=1 to 500if i%2=0s1=s1+i3elses2=s2+i3endifnext? “偶數(shù)立方和與奇數(shù)立方和之差為：”, s1-

10、s2return11求3+9+27+81+243+.這樣的數(shù)之和. 若累加數(shù)大于500時,則結(jié)束累加.clears=0n=1do while .t.s=s+3nif s500exitendifn=n+1enddo? sreturn12求1+3+5+7+9+11+.這樣的奇數(shù)之和.若累加數(shù)大于500時, 則結(jié)束累加。13計算S=1*5*9*13*.*k，直到累乘數(shù)k=25中止。clears=1n=1do while .t.s=s*nif n=25exitendifn=n+4enddo? sreturn14求出1到5000之間的能被5整除的前若干個偶數(shù)之和，當(dāng)和大于500時程序退出。15編寫程序，

11、s=1+1/2+1/3+1/99，保留兩位小數(shù)。clears=0for n=1 to 99s=s+1/nnext? sreturn16編程求S=1*3+2*4+3*5+.+198*200。clears=0for n=1 to 198s=s+n*(n+2)next? sreturn17設(shè)S=1+1/2+1/3+.+1/N，N為正整數(shù)。編程求使S不超過10的最大的Nclears=0n=0do while .t.n=n+1s=s+1/nif s10exitendifenddo? n-1return18求S=8!+9!+10!clears=0for x=8 to 10t=1for y=1 to xt=

12、t*ynexts=s+tnext? sreturn19編寫程序，求10!20計算S=3!+5!+7!+.+N!，求直到S=680000為止的奇數(shù)N。clears=0n=3do while .t.t=1m=1do while m=680000exitendifn=n+2enddo? nreturn21s=1!+2!+3!+.+n! 當(dāng)s大于61000時結(jié)束累加，求n。22數(shù)列xi各元素的值是：x11，x212,x3123,.xn123.n。對數(shù)列求和：S=x1+x2+x3.，直到S3000止，求此時數(shù)列中最大的元素值。clears=0n=1do while .t.x=0m=1do while m

13、=3000exitendifn=n+1enddo? xreturn23已知S1=1,S2=1+2,S3=1+2+3,SN=1+2+N,求S20到S80有多少數(shù)能被17或35整除。clearn=0for x=20 to 80s=0for y=1 to xs=s+ynextif s%17=0 or s%35=0n=n+1endifnext? nreturn24求在1,2,3,4,.,10這10個數(shù)中，任意選兩個不同的數(shù),求它們的和能被2整除的數(shù)的總對數(shù)。(注意: 象3+5和5+3認(rèn)為是同一對數(shù))clearn=0for x=1 to 10for y=1 to x-1if (x+y)%2=0 n=n+

14、1 endifnextnext? nreturn25已知一個數(shù)列的前三個數(shù)是1,2,3,從第四個數(shù)起,每個數(shù)都是前三個數(shù)之和。求出該數(shù)列的第15個數(shù)。cleardime a(15)a(1)=1a(2)=2a(3)=3for i=4 to 15a(i)=a(i-1)+a(i-2)+a(i-3)next?a(15)return26編寫程序，求200到800之間素數(shù)的個數(shù)。clearn=0for x=200 to 800flag=.t.for i=2 to sqrt(x)if x%i=0flag=.f.exitendifnextif flag=.t.n=n+1endifnext?nreturn27編

15、寫程序，求600到900之間素數(shù)的和。28所謂回文數(shù)是從左至右或從右至左讀起來都是一樣的數(shù)字，如：121是一個回文數(shù)。編寫程序，求在100900的范圍內(nèi)所有能被3整除的回文數(shù)的和。clears=0for x=100 to 900a=x%10b=int(x/100)if a=b and x%3=0s=s+xendifnext?sreturn29編寫程序，計算在0至50的范圍內(nèi)有多少個數(shù)，其每位數(shù)的乘積大于每位數(shù)的和。clearn=0for i=10 to 50a=i%10b=int(i/10)if a*ba+bn=n+1endifnext?nreturn30把18元錢分成一元、二元和五元的紙幣且

16、紙幣數(shù)共為10張的分法有多少種？（注：在兌換中一元、二元、五元的紙幣數(shù)可以為0）。clearn=0for five=0 to 3for two=0 to 9one=10-five-twoif one=0 and five*5+two*2+one=18n=n+1endifnextnext?nreturn31編寫程序，求共有幾組I、j、k符合算式ijk+kji=1333，其中I、j、k是09之間的一位整數(shù)。clearn=0for i=0 to 9for j=0 to 9for k=0 to 9if (i*100+j*10+k)+(k*100+j*10+i)=1333n=n+1endifnextne

17、xtnext?nreturn32一個數(shù)如果剛好與小于它的所有因子之和相等，則稱該數(shù)為一個“完數(shù)”，如：6=1+2+3，則6就是一個完數(shù)。求出10000以內(nèi)的完數(shù)的個數(shù)及它們的和。clearn=0t=0for x=1 to 10000s=0for i=1 to x/2if x%i=0s=s+iendifnextif x=sn=n+1t=t+xendifnext?個數(shù)：,n,和：,treturn33已知abc，且a+b+c50，求滿足條件1/(a2)+1/(b2)=1/(c2)的共有多少組。clearn=0for a=1 to 49for b=1 to a-1for c=1 to b-1if a+b+c50 and 1/a2+1/b2=1/c2n=n+1endifnextnextnext?nreturnto correcting misunderstandings advocate good cadre style. 2, to carry out the double of human activities. Bangkun will implement on the in-depth devel