Visualfoxpro程序設(shè)計(jì)練習(xí)題及答案

1、Visual foxpro程序設(shè)計(jì)練習(xí)題求10,1000內(nèi)所有能被被7和9中至少一個(gè)數(shù)整除的整數(shù)之個(gè)數(shù)。答案：236n=0for i=10 to 1000if mod(i,7)=0 or mod(i,9)=0n=n+1endiendf?n求101,299內(nèi)所有能被2整除但不能同時(shí)被3和5整除的整數(shù)之和。答案：18630s=0for i=101 to 299if mod(i,2)=0 and mod(i,3)0 or mod(i,5)0s=s+iendiendf?s3、求100以?xún)?nèi)最大的自然數(shù)n，使得從1開(kāi)始的連續(xù)n個(gè)自然數(shù)的倒數(shù)之和小于3.5。 答案：18s=0for i=1 to 100s=

2、s+1/iif s=3.5exitendiendf?i-14、求100以?xún)?nèi)最小的自然數(shù)n，使得從1開(kāi)始的連續(xù)n個(gè)自然數(shù)的立方之和大于30000。 答案：25s=0for i=1 to 100s=s+i3if s30000exitendiendf?i5、求出100以?xún)?nèi)使得算式1*2+2*3+n*(n+1)的值小于5000的最大的自然數(shù)n。 答案：23s=0for i=1 to 100s=s+i*(i+1)if s=5000exitendiendf?i-16、求出100以?xún)?nèi)使得算式1/(1*1)+1/(2*2)+1/(n*n)的值小于1.6的最大的自然數(shù)n。 答案：21s=0for i=1 to

3、100s=s+1/i2if s=1.6exitendiendf?i-17、某國(guó)今年的人口總數(shù)為1億，若以每年4%的速度遞增，試求出至少要再過(guò)幾年該國(guó)人口總數(shù)才會(huì)翻一翻。答案：18n=0x=1do while x2x=x*(1+0.04)n=n+1enddo?n8、設(shè)等比數(shù)列：1，3，9，27，。求使得此數(shù)列的前n項(xiàng)之和大于2345678的最小的自然數(shù)n。答案：14s=0n=0do while s=2345678s=s+3nn=n+1enddo?n9、求出45678的所有非平凡因子（即除1和它本身以外的約數(shù)）中是奇數(shù)的因子個(gè)數(shù)。 答案：7n=0s=45678for i=3 to 22839 st

4、ep 2if mod(s,i)=0n=n+1endifendfor?n10、求出203267的所有真因子（即小于它本身的約數(shù)）中最大的因子數(shù)。答案：6557s=203267for i=1 to int(203267/3)if mod(s,i)=0n=iendifendfor?n11、求出20677和42067的最大公約數(shù)。答案：713for i=20677 to 1 step -1if mod(20677,i)=0 and mod(42067,i)=0exitendifendfor?i12、求前1,100內(nèi)能被6或8整除的所有自然數(shù)的平方根的和（將第1位小數(shù)四舍五入，結(jié)果只保留整數(shù)）。答案：1

5、62s=0for i=1 to 100if mod(i,6)=0 or mod(i,8)=0s=s+sqrt(i)endifendfor?round(s,0)13、求所有符合算式ab*ba=2701的最小的兩位數(shù)ab（即a*10+b）。其中a、b是19之間的一位整數(shù)。答案：37for a=1 to 9for b=1 to 9if (a*10+b)*(b*10+a)=2701?a*10+breturnendifendforendfor14、已知數(shù)列：1,2,4,7,11,16,，其規(guī)律是相鄰兩項(xiàng)之差依次是1,2,3,4,5,。試求出此數(shù)列中大于5000的最小的項(xiàng)。答案：5051a=1n=1do

6、while a5000a=a+nn=n+1enddo?a15、已知數(shù)列f(n)：f(1)=1，f(2)=4，當(dāng)n=3,4,5,時(shí)，f(n)=3*f(n-1)-f(n-2)。試求出100以?xún)?nèi)最小的自然數(shù)n使得此數(shù)列的第n項(xiàng)大于87654321。答案：20Dimension f(100)f(1)=1f(2)=4n=2do while f(n) 87654321n=n+1f(n)=3*f(n-1)-f(n-2)enddo?n16、一球從100米高處落至平地，并且連續(xù)多次再反彈再落下，假設(shè)每次反彈的高度都是前一高度的3/4倍，試求出最大的自然數(shù)n，使得此球從開(kāi)始下落至第n次著地時(shí)在垂直方向所經(jīng)過(guò)的總路

7、程不超過(guò)690米。答案：15h=100s=100n=1do while s690h=h*3/4s=s+2*hn=n+1enddo?n-117、設(shè)有用26個(gè)字母表示的26個(gè)表達(dá)式：a=1，b=1/(a+1)，c=1/(b+2)，z=1/(y+25)。試求出這26個(gè)字母中其值小于0.1的字母?jìng)€(gè)數(shù)。答案：16a=1n=0for i=1 to 25a=1/(a+i)if a0.1n=n+1endifendfor?n18、回文指的是正讀和反讀都一樣的一串字符，如121、1221。試求出1421,4112內(nèi)所有回文數(shù)的和。答案：74250s=0for i=1421 to 4112if int(i/1000

8、)=i%10 and int(i/100)%10= int(i%100/10)s=s+iendifendfor?s19、求在100,999內(nèi)所有不含數(shù)字0且各位數(shù)字之積被96整除的數(shù)之和。答案：26640s=0for a=1 to 9for b=1 to 9for c=1 to 9if(mod(a*b*c,96)=0)s=s+a*100+b*10+cendiendfendfendf?s20、將大于1000且能被4和6中至少一個(gè)數(shù)整除的所有整數(shù)按從小到大順序排列后，求前面20個(gè)數(shù)之和。答案：20610a=1001n=0s=0do while n20if mod(a,4)=0 or mod(a,6

9、)=0s=s+an=n+1endifa=a+1enddo?s21、若一個(gè)自然數(shù)恰好是它的平方的末后幾位數(shù)，則稱(chēng)此數(shù)為自同構(gòu)數(shù)。如5和76都是自同構(gòu)數(shù)，因?yàn)樗鼈兊钠椒椒謩e是25和5776。求2,99999內(nèi)所有自同構(gòu)數(shù)之和。（提示：若x是m位同構(gòu)數(shù)，則x的平方除以10的m次方的余數(shù)就是x）答案：101114s=0for i=2 to 999999if mod(i*i,10)=i or mod(i*i,100)=i or mod(i*i,1000)=i or mod(i*i,10000)=i or mod(i*i,100000)=i s=s+iendifendfor?s22、求滿足條件A*B=54

10、321且使A+B的值最小的自然數(shù)對(duì)A、B中較小的一個(gè)數(shù)。（提示：設(shè)A=B，當(dāng)A越大時(shí)A+B越?。┐鸢福?7s1=54322for i=1 to int(sqrt(54321)if(54321%i=0 )s=i+54321/iif(s0if(c%2=1)n=n+1endifc=int(c/2)enddo?n25、對(duì)自然數(shù)A、B、C，若ABC且A*A+B*B=C*C，則稱(chēng)A,B,C為一組勾股弦數(shù)，其中A、B、C分別稱(chēng)為勾、股、弦。試求出弦為25000的勾股弦數(shù)組的個(gè)數(shù)。答案：5n=0for b=12500 to 25000for a=1 to b-1if a*a+b*b=25000*25000n=

11、n+1endifendforendfor?n26、求方程3x-7y=1在條件|x|100且|y|75364321exitendifendfor?n28、求100200內(nèi)的所有素?cái)?shù)的個(gè)數(shù)。（素質(zhì)是指只能被1和本身整除的數(shù)）答案：21n=0for i=100 to 200for j=2 to i-1if(i%j=0)exitendifendforif j=in=n+1endifendfor?n29、求100010000內(nèi)的第50個(gè)素?cái)?shù)。（素質(zhì)是指只能被1和本身整除的數(shù)） 答案：1361n=0for i=1000 to 10000for j=2 to i-1if(i%j=0)exitendifend

12、forif j=in=n+1endifif n=50exitendifendfor?i30、編寫(xiě)程序，計(jì)算10000以?xún)?nèi)有多少個(gè)這樣的數(shù)，其個(gè)位數(shù)為6且該數(shù)能被9整除。 答案：111n=0for i=1 to 10000if i%10=6 and i%9=0n=n+1endifendfor?n31、設(shè)某四位數(shù)的各位數(shù)字的平方和等于100，問(wèn)共有多少個(gè)這種四位數(shù)？答案：49n=0for i=1000 to 9999a=int(i/1000)b=int(i/100)%10c=int(i/10)%10d=i%10if a2+b2+c2+d2=100n=n+1endifendfor?n32、把一張一元

13、鈔票,換成一分、二分和五分硬幣,每種至少11枚,問(wèn)有多少種方案? 答案：13n=0for a=11 to 20for b=11 to 50for c=11 to 100if a*5+b*2+c=100n=n+1endifendforendforendfor?n33、把一張一元鈔票,換成一分、二分和五分硬幣,每種至少1枚,問(wèn)兌換后硬幣總數(shù)最多的與硬幣總數(shù)最少的枚數(shù)之差是多少?答案：73max=3min=300for a=1 to 20for b=1 to 50for c=1 to 100if a*5+b*2+c=100s=a+b+cif(smax)max=sendifif(smin)min=se

14、ndifendifendforendforendfor?max-min34、找滿足以下條件: X2+Y2=412 且X+Y之值最大的二個(gè)正整數(shù)X,Y, 求X+Y之值. 答案：49max=41for x=1 to 41for y=x to 41if x*x+y*y=41*41 and max500exitendifendifendfor?s40、一個(gè)數(shù)如果剛好與它所有的因子之和相等，則稱(chēng)該數(shù)為一個(gè)完數(shù)，如：6=1+2+3，則6就是一個(gè)完數(shù)。求出200到500之間所有的完數(shù)之和。答案：496sum=0for i=200 to 500s=0for j=1 to i-1if i%j=0s=s+jend

15、ifendforif s=isum=sum+iendifendfor?sum41、編寫(xiě)程序，求在5000以?xún)?nèi)能被17或者23整除的正整數(shù)的個(gè)數(shù)。答案：499n=0for i=1 to 5000if i%17=0 or i%23=0n=n+1endifendfor?n42、編寫(xiě)程序，求四位數(shù)的偶數(shù)中，所有各位數(shù)字之和是15的倍數(shù)的數(shù)的個(gè)數(shù)。 答案：306n=0for i=1000 to 9999 step 2a=int(i/1000)b=int(i/100)%10c=int(i/10)%10d=i%10if (a+b+c+d)%15=0n=n+1endifendfor?n43、編寫(xiě)程序，計(jì)算在0

16、50的范圍內(nèi)有多少個(gè)數(shù)，其每位數(shù)的乘積大于每位數(shù)的和。 答案：23n=0for i=0 to 50a=int(i/10)b=i%10if a*ba+bn=n+1endifendfor?n44、用一元紙幣兌換一分、兩分和五分的硬幣，要求兌換硬幣的總數(shù)為60枚，問(wèn)共有多少種換法？(注：在兌換中，一分、兩分或五分的硬幣數(shù)可以為0枚)答案：11n=0for a=0 to 20for b=0 to 50c=60-a-bif a*5+b*2+c=100n=n+1endifendforendfor?n45、編寫(xiě)程序，求出100到500之間同時(shí)滿足除5余4和除7余2條件的數(shù)的個(gè)數(shù)。 答案：12n=0for i

17、=100 to 500if i%5=4 and i%7=2n=n+1endifendfor?n46、有5羊4犬3雞2兔值錢(qián)1496，4羊2犬6雞3兔值錢(qián)1175，3羊1犬7雞5兔值錢(qián)958，2羊3犬5雞1兔值錢(qián)861，求雞值多少錢(qián)？答案：23for a=1 to 300for b=1 to 300for c=1 to 170d=861-2*a-3*b-5*cif 4*a+2*b+6*c+3*d=1175 and 3*a+b+7*c+5*d=958 and 5*a+4*b+3*c+2*d=1496?creturnendifendforendforendfor47、編寫(xiě)程序，求出3到100之間的所

18、有非偶數(shù)非素?cái)?shù)的數(shù)之和。答案：1441s=0for i=3 to 100 step 2for j=2 to i-1if i%j=0exitendifendforif jis=s+iendifendfor?s48、有50個(gè)學(xué)生一起買(mǎi)小吃，共花錢(qián)200元，其中每個(gè)大學(xué)生花5元，每個(gè)中學(xué)生花3元，每個(gè)小學(xué)生花2元，問(wèn)大、中、小學(xué)生的人數(shù)分配共有多少種不同的解（去掉某類(lèi)學(xué)生為0的）？答案：8n=0for x=1 to 40for y=1 to 70z=50-x-yif x*5+y*3+z*2=200n=n+1endifendforendfor?n49、編寫(xiě)程序，統(tǒng)計(jì)10009999之間的所有滿足以下條件的四位數(shù)的個(gè)數(shù)。該數(shù)是一個(gè)完全平方數(shù)，且其第1、2位數(shù)字之和為10，第3、4位數(shù)字之積為18。答案：1k=0n1=in