vfp 程序設(shè)計復(fù)習題

1、vfp 程序設(shè)計復(fù)習題 Vf程序綜合總復(fù)習1 判斷4004000年中，有幾個閏年？程序如下： set talk off ClearN=0 FOR Y=400 TO 4000If mod(y,4)=0 and mod(y,100)!=0 or mod(y,400)=0 N=N+1 Endif?N2 求1100之間全部奇數(shù)的平方根之和 程序如下：settalk offX=1 Y=0 DOWHILE X100 Y=Y+sqrt(x) X=X+2 Enddo ?y3 求100的階乘 程序如下：X=1 FOR N=1 TO 100 X=X*N ENDFOR ?X4 求S=1+2!+3!+4!+.+100

2、! 程序如下： S=0 R=1 FOR N=1 TO 100 R=R*NS=S+RENDFOR?S5 所謂水仙花數(shù)是指一個三位數(shù)，其各位數(shù)字的立方和等于該數(shù)本身（如15313+53+33）,求所有的水仙花數(shù)的和。程序如下：set talk off S=0 For m=100 to 999 A=int(m/100) B=int(m-a*100)/10) C=m-a*100-b*10 If m=a3+b3+c3 S=s+m Endif Endfor？s6 一個三位數(shù)，不能被3整除且至少有一位數(shù)為5的數(shù)的個數(shù)，答案：167程序如下： SET TALK OFF S=0 FOR X=100 TO 999

3、 A=INT(X/100) B=INT(X-A*100)/10) C=X-A*100-B*10IFMOD(X,3)!=0 and (A=5 OR B=5 OR C=5) S=S+1 ENDIF X=X+1 ENDFOR ?S7 試求S=1+1/1!+1/2!+1/3!+.+1/100! 求S的值 程序如下： S=1 T=1 FOR K=1 TO 100 T=T*K S=S+1/T ENDFOR ?S8 所有數(shù)字和為13的四位數(shù)的個數(shù)。 程序如下：（405） T=0 FOR K=1000 TO 9999 A=INT(K/1000)B=INT(K-A*1000)/100) C=INT(K-A*10

4、00-B*100)/10) D=K-A*1000-B*100-C*10 IF A+B+C+D=13 T=T+1 ENDIF ENDFOR ?T9已知F數(shù)列定義如下：F(1)=1,F(N+2)=F(N+1)+F(N),設(shè)計程序求F數(shù)列的第50項與前50項之和 程序如下： DIME F（50） F(1)=1 F(2)=1 S=2 FORK=3 TO 50 F(K)=F(K-1)+F(K-2) S=S+F(K)ENDFOR?F(50)?S10、一個數(shù)如果剛好與它所有的因子之和相等，則稱該數(shù)為一個“完數(shù)”，求出1到1000之間所有的完數(shù)之和。（530）set talk offs=0for n=1 to

5、 1000k=0for j=1 to n-1if int(n/j)=n/j k=k+jendifnextif n=ks=s+nendifnext?s 11、所謂回文數(shù)是從左至右與從右至左讀起來都是一樣的數(shù)字，如：121。編寫程序，求出100-900之間的所有回文數(shù)的個數(shù)。 Answer: 8n=0for i=100 to 900 a=int(i/100) b=int(i-a*100)/10) c=i-a*100-b*10 ifa=c n=n+1 endif endfor ?n12、所謂素數(shù)是指這樣的自然數(shù)，除1和它本身外不再有其它因子。編寫程序，計算從1981年開始到3000年為止，我們將遇到

6、多少個素數(shù)年號。Answer: 13s=0for i=1981 to 3000 f=.t. for j=2to i-1 if mod(I,j)=0 f=.f. exit endif endfor iff=.t. s=s+i endifendfor?s 13、編寫程序，求在10-1000之間所有能被4除余3的數(shù)的奇數(shù)的和 答案：s=0for i=11 to 1000 step 2ifmod(i,4)=3 s=s+iendifendfor?s14、百錢百雞問題。用100錢買50只雞,公雞一只五錢，母雞一只三錢，雛雞一錢一只，編寫程序計算共有幾種買法（要求每種雞至少要買一只）。（a，b，c分別是公雞

7、，母雞，小雞的只數(shù)） 答案：12種n=0for a=1 to 19 for b=1 to 50-a for c=1 to 50-a-b if a*5+b*3+c=100 and a+b+c=50 n=n+1 endif endfor endforendfor?n 15編寫程序，求共有幾組I、J、K、符合算式IJK+KJI=1333，其中I、J、K是0-9之間的一位整數(shù)。answer：6n=0for i=0 to 9 for j=0 to 9 for k=0 to 9 if i*100+j*10+k+k*100+j*10+i=1333 n=n+1 endif endfor endforendfo

8、r?n 16編寫程序，求所有符合算式IJ*JI=1300的最大數(shù)IJ（即I*10+J），其中I、J是0-9之間的一位整數(shù)。answer：52for J=1 to 9 for I=1 to J if (i*10+j)*(j*10+i)=1300 ?(i*10+j) endif endforendfor 17、設(shè)有十進制數(shù)a,b,c,d,e，求滿足下列式子：abcd*e=dcba（a非0，e非0非1，數(shù)字a,b,c,d各不相同）的最大的abcd。 for a=1 to 9for b=0 to 9for c=0 to 9for d=0 to 9for e=2 to 9s=a*1000+b*100+c

9、*10+dif s*e=d*1000+c*100+b*10+a .and. ab.and. bc .and. cd .and. da?sendifnextnextnextnextnext 18 編寫程序，求滿足下列條件的所有四位數(shù)ABCD的個數(shù)，該四位數(shù)是15的倍數(shù)，且A+D=B+C，即第1位數(shù)加上第4位數(shù)等于第2位數(shù)加上第3位數(shù)。答案：45 s=0for a=1 to 9for b=0 to 9for c=0 to 9for d=0 to 9i=a*1000+b*100+c*10+dif int(i/15)=i/15.and. a+d=b+cs=s+1endifnextnextnextnex

10、t?s 19、編寫程序，統(tǒng)計200-400之間的所有滿足三個數(shù)字之積為42，三個數(shù)字之和為12的數(shù)的個數(shù)。s=0for a=2 to 3for b=0 to 9for c=0 to 9if a+b+c=12 .and.a*b*c=42s=s+1endifnextnextnext?s 20 若有三個正整數(shù)a、b、c滿足a2+b2=c2,則a、b、c稱為勾股數(shù)組，編一程序，問有多少個三個數(shù)均小于100的勾股數(shù)組（注意：a、b、c不能為0）。Answer:104n=0for a=1 to 100 for b=1 to 100 for c=1 to 100 if a2+b2=c2 n=n+1 endi

11、f endfor endforendfor?n 21求出10，1000內(nèi)所有能被7和9中至少一個數(shù)整除的整數(shù)的個數(shù)。（236）n=0for x=10 to 1000 if mod(x,7)=0 or mod(x,9)=0n=n+1 ? xendif endfor 22求出100以內(nèi)最大的自然數(shù)n，使得從1開始的連繼n個自然數(shù)的倒數(shù)之和小于3.5。答案為18s=0for n=1 to 100 s=s+1/n ?n,sif s=3.5 exitendifendfor 23求出50以內(nèi)最大的自然數(shù)n,使得從102開始的連繼n個偶數(shù)之和小于3000。答案：23S=0for n=1 to 50a=100

12、+2*ns=a+s? n,a,sif s=3000 exit endifendfor? n-1 24求出100以內(nèi)使得算式1/（1*1）+1/（2*3）+1/（n*（2*n-1）的值大于1.35的最小的自然數(shù)n。（14）s=0for n=1 to 100a=n*(2*n-1)s=s+1/a? n,a,sif s1.35 exit endifendfor 25某國在2000年時人口總數(shù)為1億，若以每年3%的速度遞增，試求出至少要到哪一年該國人口總數(shù)才會翻一翻。（2024）s=1for n=2001 to 2100 s=s*1.03? n,sif s=2exit endifendfor 26設(shè)等比

13、數(shù)列：1，2，4，8，。求使得此數(shù)列的前n項之和大于的最小自然數(shù)n。答案：17a=1s=0for n=1 to 100s=s+a? n，a，s if sexitendifa=2*aendfor? n 27已知數(shù)列：1，2，4，7，11，16，其規(guī)律是相鄰兩項之差依次是1，2，3，4，5，。試求出此數(shù)列中大于5000的最小的項。（5051）a=1for n=0 to 1000 a=a+n? aif a5000 exitendifendfor? a 28已知數(shù)列f(n):f(1)=1,f(2=4)，當n=3，4，5，時，f(n)=3*f(n-1)-f(n-2)。試求出100以內(nèi)最小的自然數(shù)n使得此

14、數(shù)列的第n項大于。（17）dime f(100)f(1)=1f(2)=4for n=3 to 100f(n)=3*f(n-1)-f(n-2)? n,f(n)if f(n) exitendifendfor? n29一球從100米高處落至平地，并且連續(xù)多次再反彈再落下，假設(shè)每次反彈的高度都是前一高度的3/4倍，試求出最小的自然數(shù)n,使得此球從開始下落至第n次著地時在垂直方向所經(jīng)過的總路程超過678米。（13）h=100s=hfor n=2 to 100h=h*3/4s=s+2*h? n,h,sif s678 exitendif endfor? n 30已知一個由分數(shù)組成的數(shù)列：1/2，3/5，8/13，21/34，其特點是：從其中第2個分數(shù)，每個分數(shù)的分子都是前一個分子分母之和而其分母都是其分子與前一分數(shù)的分母之和。試求出此數(shù)列的前25項中其值大于0.618的項數(shù)。（20）f1=1f2=2