1、編程題類型總結(VFP)求和類：1.計算S=1!+2!+3!+4!+。+N!2. S=0K=1INPUT"N="TONFORi=1TONK=K*iS=S+KEndfor?S求13十33十53+73十+213SUM=0FORI=1TO21STEP2SUM=SUM+IA3ENDFOR?”SUM=,SUM有一分數序列，求前20項之和Z3_12M=1N=2SUM=0FORI=1TO20TERM=N/MSUM=SUM+TERMX=NN=M+NM=XTERM=N/MENDFOR?”SUM=,SUM求Sn=a+aa+aaa+aaaa,其中，INPUT”輸入a的值:"TOAINP

2、UT”輸入項數n:"TONSN=0138B=AFORI=1TON求N的階乘。由鍵盤輸入20)INPUT"輸入TONP=1FORI=1TONP=P*IENDFOR?N,“！=”，P(N的值應小于N的值”a是一個數字，a的個數為n,a和n由鍵盤輸入5. SN=SN+AA=A*10+BENDFOR?"數列之和為:",SN3X+3!求eX的臺勞級數展開式的前n項之和(運行時輸入x=2.0,n=4)2xX(n-1)!e=1x2!21*226. INPUT"X=”TOXINPUT"N=”TONSUM=1P=1FORI=1TON-1P=P*IT=X

3、AI/PSUM=SUM+TENDFOR?”SUM=,SUM求1*2+3*4+5*6+SUM=0FORI=1TO21STEP27. SUM=SUM+I*(I+1)ENDFOR?”和為=",SUM(1892)通過鍵盤輸入n,求下列級數的和：?1-1/2+1/3-1/4+.+1/nINPUTTONS=0F=1FORI=1TONS=S+F*(-1)A(I-1)/IENDFOR8. ?S計算連續自然數之和，并且顯示和剛大于1000的最后一個自然數Sn=1+2+3+4+NSTORE0TOS,NDOWHILES<=1000N=N+1S=S+NENDDO?N求1A2+4A2+7A2+-一直加到

4、超過1000為止，輸出和數與項數。1=1S=0N=0DOWHILES<=1000S=S+"I=I+3N=N+1ENDDO?N?S求1-100之間所有奇數之和SUM=0FORI=1TO100STEP2SUM=SUM+IENDFOR?“SUM=,SUM輸出100到200之間所有能被5或7整除的整數，并輸出他們的和SUM=0FORI=100TO200IFMOD(I,10)=5ANDMOD(I,7)=0SUM=SUM+I?I10. ENDIFENDFOR?“SUM=,SUM編程輸出100500之間能被7整除的奇數的個數。N=0FORI=101TO500STEP2IFMOD(I,7)=0

5、N=N+1ENDIFENDFOR?“N=”，NN=0FORI=100TO500IFI%7=0ANDI%2=1N=N+1ENDIFENDFOR?“N=”，N求1/(1*2)+1/(3*4)+1/(5*6)+1/(99*100)SUM=0FORI=1TO99STEP2SUM=SUM+1/(I*(I+1)ENDFOR?"SUM=",SUM13.求如下級數前N項之和(X和N的值由鍵盤輸入)4x+4nx+nS=1INPUTTOXINPUTTONFORI=1TONS=S+XT/IENDFOR?“SUM=,S14.輸出3-100之間的所有素數，并求其和。SUM=0FORJ=3TO100F

6、LAG=.T.FORI=2TOSQRT(J)IFMOD(J,I)=0FLAG=.F.EXITENDIFENDFORIFFLAG=.T.?JSUM=SUM+J ENDIFENDFOR?”奇數之和是：”,SUM方程類1.完成下面分段函數的計算，程序運行時用戶從鍵盤輸入一個數值X,在屏幕上輸出Y值。x2ifx0IY=0ifx=02-xifx<0INPUT"請輸入X值："TOXIFX>0Y=X*XELSEIFX=0Y=0ELSEY=-(X*X)2. ENDIFENDIF?Y現有一元2次方程AXA2+BX+C=0其中ABC是整數且A不等于0若存在實根，則輸出“在實數范圍內

7、有解”若不存在實根則輸出“在實數范圍內無解”/求解INPUTTOAINPUTTOBINPUTTOCD=B*B-4*A*CIFD>=0?"在實數范圍內有解"ELSE?"在實數范圍內無解"ENDIF/INPUTTOAINPUTTOBINPUTTOCD=B*B-4*A*CIFD>0X1=(-B+SQRT(D)/(2*A)X2=(-B-SQRT(D)/(2*A)?X1?X2ELSEIFD>0X=-B/(2*A)?”X1=X2=”,XELSE?”無解"ENDIFENDIFXif3.輸入一個X的值，求Y的值。Y=<2X-1if3X-

8、11ifX：11=：X<10INPUTTOXDOCASECASEX<1Y=XCASEX<10Y=2*X-1CASEX>=10 Y=3*X-11ENDCASE?Y數組類1. 輸入10個數，輸出其中小于平均值S的數。2. DIMEA(10)S=0FORI=1TO10INPUTTOA(I)S=S+A(I)ENDFORS=S/10FORI=1TO10IFA(I)<S?A(I)ENDIFENDFOR輸入10個數，求其中最大數和最小數。DIMEA(10)FORI=1TO10INPUT“ENTERANUMBER'：TOA(I)ENDFORBIG=A(1)SMALL=A(

9、1)FORI=2TO10IFA(I)>BIGBIG=A(I)ENDIFIFA(I)<SMALLSMALL=A(I)3. ENDIFENDFOR?“THESMALLESTNUMBERIS,SMALL?“THEBIGGESTNUMBERIS,BIG輸入10個數，求其中最大數和最小數，并確定它們的位置。DIMEA(10)FORI=1TO10INPUT“ENTERANUMBER?TOA(I)ENDFORBIG=A(1)BP=1SMALL=A(1)SP=1FORI=2TO10IFA(I)>BIGBIG=A(I)BP=IENDIFIFA(I)<SMALLSMALL=A(I)SP=I

10、4. ENDIFENDFOR?“THEPLACEOFTHESMALLESTNUMBERIS,SP?“THESMALLESTNUMBERIS,SMALL?“THEPLACEOFTHEBIGGESTNUMBERIS,BP?“THEBIGGESTNUMBERIS,BIG從鍵盤輸入10個整數，現從中查找某個數，若查到，輸出“YES,否則輸出“N。DIMENSIONA(10)FORI=1TO10INPUT"輸入10個整數"TOA(I)ENDFORINPUT"輸入待查找的整數"TOXFORI=1TO10IFX=A(I)?"YES"EXITENDI

11、FENDFORIFI>10?"NO"ENDIF已有按從小到大的順序排列的10個數，現輸入一個數，要求插入到數列中。插入后數列仍然按從小到大順序排列。DIMENSIONA(11)FORI=1TO10INPUT"遞增輸入10個整數”TOA(I)ENDFORINPUT"任意輸入一個整數”TOXFORI=10TO1STEP-1IFX<A(I)IFI=1A(I+1)=A(I)A(I)=XELSEA(I+1)=A(I)ENDIFELSEA(I+1)=XEXITENDIFENDFORFORI=1TO11?A(I)ENDFOR?數組A中已存放了10個由小到大

12、排列的數?，F從鍵盤輸入一個數X,要求刪除數組中與其相同的數，并將后續的數依次前移，最后輸出剩余的數。(7分)考慮到有重復數的程序如下：DIMEA(10)FORI=1TO10INPUT"按遞增輸入10個數”TOA(I)ENDFORINPUT"輸入待刪除的數”TOXI=1J=1N=0DOWHILEI<=10IFA(I)<XI=I+1J=J+1ELSEIFA(I)=XI=I+1N=N+1ELSEEXITENDIFENDIFENDDOFORK=ITO10A(J)=A(K)J=J+1ENDFORFORK=1TO10-N5. ?A(K)ENDFOR輸入10個數，按升序排列后

13、輸出。DIMEA(10)FORI=1TO10INPUT“ENTERANINTEGER:”TOA(I)ENDFORFORI=1TO9FORJ=I+1TO10IFA(I)>A(J)TEMP=A(I)A(I)=A(J)A(J)=TEMPENDIFENDFORENDFORFORI=1TO10?A(I)ENDFOR以上是一維數組(數組中只有一個下標)程序舉例。在VFP中，還可以建立二維數組。定義方法是：DIMEA(2,3)第一維代表行，第二維代表列，這樣就在內存中開辟了6個連續的存儲單元，數組元素的名稱分別為：A(1,1)A(1,2)A(1,3)A(2,1)A(2,2)A(2,3)二維數組的元素賦

14、初值及其處理通常要用二重循環，夕卜循環代表行，內循環代表列。如：FORI=1TO2FORJ=1TO3INPUTTOA(I,J)ENDFORENDFOR1. 二維數組特別適合用來解決矩陣問題。矩陣中有如下幾個術語要掌握：行列相等的矩陣叫方陣；方陣中有主對角線、輔對角線、下三角元素、外圍元素等建立一個六行六列的方陣，求出兩條對角線上所有元素之和。DIMEA(6,6)FORI=1TO6FORJ=1TO6A(I,J)=I+JENDFORENDFORSUM=0FORI=1TO6SUM=A(I,I)+A(I,7-I)ENDFOR2. ?"兩條對角線上所有元素之和為",SUM一個四行五列

15、的矩陣，求出其中最大元素的值，以及所在的行號與列號。DIMEA(4,5)FORI=1TO4FORJ=1TO5INPUTTOA(I,J)ENDFORENDFORBIG=A(1,1)ROW=1COL=1FORI=1TO4FORJ=1TO5IFA(I,J)>BIGBIG=A(I,J)ROW=ICOL=JDIMEA(3,4),B(3,4),C(3,4)FORI=1TO3FORJ=1TO4INPUTTOA(I,J)INPUTTOB(I,J)C(I,J)=A(I,J)+B(I,J)ENDFORENDFORFORI=1TO3FORJ=1TO4?STR(C(I,J),6)ENDFOR?ENDFOREND

16、IFENDFORENDFOR?BIG,ROW,COL求兩個矩陣之和，即C(3,4)=A(3,4)+B(3,4)DIMEA(3,4),B(3,4),C(3,4)FORI=1TO3FORJ=1TO4INPUTTOA(I,J)ENDFORENDFORFORI=1TO3FORJ=1TO4INPUTTOB(I,J)ENDFORENDFORFORI=1TO3FORJ=1TO4C(I,J)=A(I,J)+B(I,J)ENDFORENDFORFORI=1TO3FORJ=1TO4?STR(C(I,J),6)ENDFOR? ENDFOR判斷類1. 鍵盤輸入一個年份，判斷是平年還是閏年？INPUT“Enteraye

17、ar:"TOY、IFMOD(Y,100)<>0ANDMOD(Y,4)=0ORMOD(Y,400)=0?Y,"isaleapyear."ELSE2. ?Y,"isacommonyear”ENDIF從鍵盤輸入一個整數，判斷是偶數還是奇數。INPUT"整數"TOXIFMOD(X,2)=0?"這是個偶數"ELSE3. ?”這是個奇數"ENDIF輸入一個字符，判斷是否為英文字母。4. ACCEPT'請輸入一個字符："TOCHIFASC(CH)>=65ANDASC(CH)<=

18、90ORASC(CH)>=97ANDASC(CH)<=122?CH,"是英文字母"ELSE?CH,"不是英文字母"ENDIF一個數如果恰好等于它的因子之和，這個數就稱為“完數”，如：6=1+2+3,故6是完數。編程判斷從鍵盤輸入一個正整數是否為完數。輸出1000以內的所有完數:FORI=2TO1000S=0FORJ=1TOI-1IFMOD(I,J)=0S=S+JENDIFENDFORIFS=I?I,"是完數"ENDIFENDFORINPUT"輸入一個正整數”TONS=0FORI=1TON-1IFMOD(N,I)=

19、0S=S+IENDIFENDFORIFS=N?N,“是完數”ELSE?N,“不是完數”ENDIF輸入一個大于等于2的整數，判斷是否為素數？一個正整數，若只能被1和本身整除，則該數稱為素數或質數INPUT"請輸入一個大于2的整數”TONFLAG=.T.FORI=2TON-1IFMOD(N,I)=0FLAG=.F.EXITENDIFENDFORIFFLAG=.T.?N,“是素數”ELSE5. ?N,“不是素數”ENDIF輸入一個字符串，判斷其中有多少個大寫字母、小寫字母、數字字符、空格字符以及其他特殊字符？STORE0TOUPPER,LOWER,DIGIT,SPACE,SPECIALAC

20、CEPT"輸入一個字符串”TOSTL=LEN(ST)FORI=1TOLCH=SUBST(ST,I,1)DOCASECASEASC(CH)>=65ANDASC(CH)<=90UPPER=UPPER+1CASEASC(CH)>=48ANDASC(CH)<=57DIGIT=DIGIT+1CASEASC(CH)>=97ANDASC(CH)<=122LOWER=LOWER+1CASEASC(CH)=32SPACE=SPACE+1OTHERWISESPECIAL=SPECIAL+1 ENDCASEENDFOR?“字符串中大寫字母的個數是”，UPPER?“字符串

21、中小寫字母的個數是”，LOWER?“字符串中數字字符的個數是”，DIGIT?“字符串中空格字符的個數是”，SPACE?“字符串中其他字符的個數是”，SPECIAL轉換類1. 輸入個大寫字母，要求輸出它的ASCII碼及其對應的小寫字母。2. ACCEPT"輸入一個大寫字母：”TOCH?CH,"的ASCII碼為”,ASC(CH)?CH,“對應的小寫字母為”，CHR(ASC(CH)+32)從鍵盤輸入一個八進制數，將其轉換成等值的十進制數。3. SETTALKOFFCLEARS=0ACCEPT"ENTERANOCTALNUMBER:"TONL=LEN(N)FOR

22、I=1TOLS=S+VAL(SUBSTR(N,I,1)*8*(L-I)ENDFOR?"S=",SSETTALKONCANCEL從鍵盤輸入一個十進制數，將其轉換成等值的八進制數。4. SETTALKOFFCLEARINPUT"ENTERADECIMALNUMBER:"TONOCT=""IFN=0OCT="0"ENDIFDOWHILEN>0R=MOD(N,8)OCT=STR(R,1)+OCTN=INT(N/8)ENDDO?OCTSETTALKONCANCEL從鍵盤輸入一個二進制數，將其轉換成等值的十進制數。S=0

23、ACCEPT“ENTERABINARYNUMBER:TONL=LEN(N)FORI=1TOLS=S+VAL(SUBSTR(N,I,1)*2*(L-I)ENDFOR?“等值的十進制數為”,S從鍵盤輸入一個十進制數，將其轉換成等值的二進制數。INPUT"ENTERADECIMALNUMBER:"TONBIN=""IFN=0BIN=“0”ENDIFDOWHILEN>0R=MOD(N,2)BIN=STR(R,1)+BINN=INT(N/2)ENDDO?“等值的二進制數為”,BIN真實情況類輸入乘車的公里數，輸出乘車費（計費標準:過1公里增加1元2角）INP

24、UT”輸入公里數"TOX2.5公里之內是6元，2.5公里以外，每超IFX>2.5PAY=(X-2.5)*1.2+6ELSE2. PAY=6ENDIF?”應付費”,PAY,"元"設交納所得稅的規定如下：DOCASE語句收入<=1500元免交所得稅1500元<收入<=3000元所得稅為5%3000元<收入<=6000元所得稅為8%6000元<收入<=10000元所得稅為10%10000元<收入<=50000元所得稅為15%收入>50000元所得稅為20%請編程，從鍵盤輸入一個數，計算應交納的所得稅。IN

25、PUTTNCOME=TOXDOCASECASEX<=1500TAX=0CASEX<=3000TAX=(X-1500)*0.05CASEX<=6000TAX=(X-3000)*0.08+(3000-1500)*0.05CASEX<=10000TAX=(X-6000)*0.1+(6000-3000)*0.08+(3000-1500)*0.05CASEX<=50000TAX=(X-10000)*0.15+(10000-6000)*0.1+(6000-3000)*0.08+(3000-1500)*0.05OTHERWISETAX=(X-50000)*0.2+(50000-

26、10000)*0.15+(10000-6000)*0.1&+(6000-3000)*0.08+(3000-1500)*0.05ENDCASE?“INCOMETAXIS”,TAX,“元”3. 鍵盤輸入學生的成績，若95-100則輸出優秀，85-94是很好，70-84貝膊俞出好，60-69是一般60分以下輸出不及格。INPUT"成績"TOFSDOCASECASEFS>=95?"優秀"CASEFS>=85?"很好"CASEFS>=70?"好"CASEFS>=60?"一般"

27、;OTHERWISE?"不及格"ENDCASE編寫學生成績統計程序。設有三位同學，考數學、物理、化學三門課，統計每個同學的總分和平均分SETTALKOFFCLEARDIMES(3,6)FORI=1TO3FORJ=1TO4INPUT"INPUTSTUDENT-NOANDSCORE:"TOS(I,J)ENDFORENDFORFORI=1TO3S(I,5)=S(I,2)+S(I,3)+S(I,4)S(I,6)=ROUND(S(I,5)/3,1)ENDFOR?SPACE(5),"STUNO”,SPACE(4),"MATH”,SPACE(4),

28、"PHY”,SPACE(5),"CHE”,SPACE(4),"TOTAL”,SPACE(5),"AVER”?FORI=1TO3FORJ=1TO6?S(I,J)ENDFOR?4. ENDFORSETTALKONCANCEL某班有45名參加考試的同學，現在要求從鍵盤輸入全班一門課的成績，輸出該課程的平均分，以及及格人數和半分比。SUM=0N=1FORI=1TO45INPUT"全班一門課的成績"TOXSUM=SUM+XIFX>=60N=N+1 ENDIFENDFOR?”平均分",SUM/45?”幾個人數",N?&q

29、uot;合格率”,N/45*100,"%”矩陣類1. 建立一個五行五列的矩陣，求出外圍所有元素之和。 DIMENSIONA(5,5)S=0S1=0FORI=1TO5FORJ=1TO5INPUTTOA(I,J)S=S+A(I,J)ENDFORENDFORFORI=2TO4FORJ=2TO4S1=S1+A(I,J)ENDFORENDFOR?S-S1打印圖形類1.打印如下圖形：*CLEARFORI=1TO5?SPACE(I)FORJ=1TO5?,*,ENDFORENDFOR附：打印如下圖形：*FORI=5TO1STEP-1?SPACE(5-I)FORJ=1TOI?，*，ENDFOR?END

30、FORFORI=2TO5?SPACE(5-I)FORJ=1TOI?，*，ENDFOR?ENDFOR打印如下所示的九九乘法表MicrosoftVisualFoxProqjx文件(E)編輯舊顯示(y)工具程序心官件既)幫助(S162024網空362530354036裁4354495663G4T2clearforN=1TO9forM=1TON?alltrim(str(N)+"x"+alltrim(str(M)+"="+alltrim(str(N*M)+space(5)endfor?EndforclearN=1DOWHILEN<=9M=1DOWHILEM<=N?alltrim(str(N)+"x"+alltrim(str(M)+"="+alltrim(str(N*M)+space(5)M=M+1ENDDO? N=N+1EN