VFP編程題類型總結

1、-. z求求 N N 的階乘。的階乘。NN 的值的值由鍵盤輸入，應小于由鍵盤輸入，應小于2020 INPUTINPUT “輸入輸入 N N 的值的值 TOTO N NP=1P=1FORFOR I=1I=1 TOTO N NP=P*IP=P*IENDFORENDFOR?N,“!=,P?N,“!=,P編程題類型總結編程題類型總結(VFP)(VFP)求和類：求和類：1.1. 計算計算 S=1S=1！+2+2！+3+3！+4+4！+ +。+N!+N! S=0S=0K=1K=1INPUTINPUT N=N= TOTO N NFORFOR i=1i=1 TOTO N N K=K*iK=K*i S=S+KS

2、=S+KEndforEndfor?S?S2.2.求求 33333217531 SUM=0SUM=0FORFOR I=1I=1 TOTO 2121 STEPSTEP 2 2SUM=SUM+I3SUM=SUM+I3ENDFORENDFOR?SUM=,SUM?SUM=,SUM3.3.有一分數(shù)序列，求前有一分數(shù)序列，求前 2020 項之和項之和M=1M=1N=2N=2SUM=0SUM=0FORFOR I=1I=1 TOTO 2020TERM=N/MTERM=N/MSUM=SUM+TERMSUM=SUM+TERM*=N*=NN=M+NN=M+NM=*M=*TERM=N/MTERM=N/MENDFOREN

3、DFOR?SUM=,SUM?SUM=,SUM4.4.求求 S Sn=a+aa+aaa+aaaan=a+aa+aaa+aaaa，其中，其中，a a 是一個數(shù)字，是一個數(shù)字，a a 的個數(shù)為的個數(shù)為 n n，a a 和和 n n 由鍵盤輸入由鍵盤輸入INPUTINPUT 輸入輸入 a a 的值的值: TOTO A AINPUTINPUT 輸入項數(shù)輸入項數(shù) n:n: TOTO N NSN=0SN=0B=AB=AFORFOR I=1I=1 TOTO N NSN=SN+ASN=SN+AA=A*10+BA=A*10+BENDFORENDFOR?數(shù)列之和為數(shù)列之和為:,SN:,SN5.5. 求求e e* *

4、的臺勞級數(shù)展開式的前的臺勞級數(shù)展開式的前 n n 項之和項之和( (運行時輸入運行時輸入*=2.0,n=4)*=2.0,n=4)-. zINPUTINPUT “*=“*= TOTO * *INPUTINPUT “N=“N= TOTO N NSUM=1SUM=1P=1P=1FORFOR I=1I=1 TOTO N-1N-1P=P*IP=P*IT=*I/PT=*I/PSUM=SUM+TSUM=SUM+TENDFORENDFOR?SUM=,SUM?SUM=,SUM6.6.求求 1*2+3*4+5*6+21*221*2+3*4+5*6+21*22SUM=0SUM=0FORFOR I=1I=1 TOTO

5、 2121 STEPSTEP 2 2 SUM=SUM+I*(I+1)SUM=SUM+I*(I+1)ENDFORENDFOR?和為和為=,SUM=,SUM (1892)(1892)7.7.通過鍵盤輸入通過鍵盤輸入n n，求以下級數(shù)的，求以下級數(shù)的和和: : 1-1/2+1/3-1/4+1/n1-1/2+1/3-1/4+1/nINPUTINPUT TOTO N NS=0S=0F=1F=1FORFOR I=1I=1 TOTO N NS=S+F*(-1)(I-1)/IS=S+F*(-1)(I-1)/IENDFORENDFOR? ?S S8.8.計算連續(xù)自然數(shù)之和，并且顯示和剛大于計算連續(xù)自然數(shù)之和，并

6、且顯示和剛大于 10001000 的最后一個自然數(shù)的最后一個自然數(shù)Sn=1+2+3+4+NSn=1+2+3+4+NSTORESTORE 0 0 TOTO S,NS,NDODO WHILEWHILE S=1000S=1000 N=N+1N=N+1 S=S+NS=S+NENDDOENDDO? ? N N9.9.求求 12+42+72+12+42+72+一直加到超過一直加到超過 10001000 為止，輸出和數(shù)與項數(shù)。為止，輸出和數(shù)與項數(shù)。I=1I=1S=0S=0N=0N=0DODO WHILEWHILE S=1000S0*0 Y=*Y=*ELSEELSE IFIF *=0*=0 Y=0Y=0 EL

7、SEELSE Y=-(*)Y=-(*) ENDIFENDIFENDIFENDIF?Y?Y2.2.現(xiàn)有一元現(xiàn)有一元 2 2 次方程次方程 A*2+B*+C=0A*2+B*+C=0 其中其中 A A B B C C 是整數(shù)且是整數(shù)且 A A 不等于不等于 0 0 假設存在實根，則輸假設存在實根，則輸出出“在實數(shù)圍有解在實數(shù)圍有解 假設不存在實根假設不存在實根 則輸出則輸出“在實數(shù)圍無解在實數(shù)圍無解/求解求解INPUTINPUT TOTO A AINPUTINPUT TOTO B BINPUTINPUT TOTO C CD=B*B-4*A*CD=B*B-4*A*CIFIF D=0D=0?在實數(shù)圍有解

8、在實數(shù)圍有解 ELSEELSE?在實數(shù)圍無解在實數(shù)圍無解 ENDIFENDIF/ /INPUTINPUT TOTO A AINPUTINPUT TOTO B B-. zINPUTINPUT TOTO C CD=B*B-4*A*CD=B*B-4*A*CIFIF D0D0*1=(-B+SQRT(D)/(2*A)*1=(-B+SQRT(D)/(2*A)*2=(-B-SQRT(D)/(2*A)*2=(-B-SQRT(D)/(2*A)?*1?*1?*2?*2ELSEELSE IFIF D0D0 *=-B/(2*A)*=-B/(2*A) ?*1=*2=,*?*1=*2=,* ELSEELSE ?無解無解

9、ENDIFENDIFENDIFENDIF3.3.輸入一個輸入一個* *的值，求的值，求 Y Y 的值。的值。Y=Y=10113101121XifXXifXXifXINPUTINPUT TOTO * *DODO CASECASE CASECASE *1*1 Y=*Y=* CASECASE *10*=10*=10 Y=3*-11Y=3*-11ENDCASEENDCASE ?Y?Y數(shù)組類數(shù)組類1.1. 輸入輸入 1010 個數(shù)，輸出其中小于平均值個數(shù)，輸出其中小于平均值 S S 的數(shù)。的數(shù)。DIMEDIME A(10)A(10)S=0S=0-. zFORFOR I=1I=1 TOTO 1010INP

10、UTINPUT TOTO A(I)A(I)S=S+A(I)S=S+A(I)ENDFORENDFORS=S/10S=S/10FORFOR I=1I=1 TOTO 1010IFIF A(I)SA(I)BIGA(I)BIGBIG=A(I)BIG=A(I)ENDIFENDIFIFIF A(I)SMALLA(I)BIGA(I)BIGBIG=A(I)BIG=A(I)BP=IBP=IENDIFENDIFIFIF A(I)SMALLA(I)10I10 ? ? NONOENDIFENDIF5.5.已有按從小到大的順序排列的已有按從小到大的順序排列的 1010 個數(shù)，現(xiàn)輸入一個數(shù)，要求插入到數(shù)列中。插入后數(shù)個數(shù)，

11、現(xiàn)輸入一個數(shù)，要求插入到數(shù)列中。插入后數(shù)列仍然按從小到大順序排列。列仍然按從小到大順序排列。DIMENSIONDIMENSION A(11)A(11)FORFOR I=1I=1 TOTO 1010INPUTINPUT “遞增輸入遞增輸入 1010 個整數(shù)個整數(shù) TOTO A(I)A(I)ENDFORENDFORINPUTINPUT “任意輸入一個整數(shù)任意輸入一個整數(shù) TOTO * *FORFOR I=10I=10 TOTO 1 1 STEPSTEP -1-1 IFIF *A(I)*A(I) IFIF I=1I=1 A(I+1)=A(I)A(I+1)=A(I) A(I)=*A(I)=* ELSE

12、ELSE A(I+1)=A(I)A(I+1)=A(I) ENDIFENDIF ELSEELSE A(I+1)=*A(I+1)=* E*ITE*IT ENDIFENDIFENDFORENDFORFORFOR I=1I=1 TOTO 1111-. z?A(I)?A(I)ENDFORENDFOR? ?6.6. 數(shù)組數(shù)組 A A 中已存放了中已存放了 1010 個由小到大排列的數(shù)。現(xiàn)從鍵盤輸入一個數(shù)個由小到大排列的數(shù)。現(xiàn)從鍵盤輸入一個數(shù)* *，要求刪除數(shù)組中與，要求刪除數(shù)組中與其一樣的數(shù)，并將后續(xù)的數(shù)依次前移，最后輸出剩余的數(shù)。其一樣的數(shù)，并將后續(xù)的數(shù)依次前移，最后輸出剩余的數(shù)。77 分分考慮到有重復

13、數(shù)的程序如下：考慮到有重復數(shù)的程序如下：DIMEDIME A(10)A(10)FORFOR I=1I=1 TOTO 1010 INPUTINPUT “按遞增輸入按遞增輸入 1010 個數(shù)個數(shù) TOTO A(I)A(I)ENDFORENDFORINPUTINPUT “輸入待刪除的數(shù)輸入待刪除的數(shù) TOTO * *I=1I=1J=1J=1N=0N=0DODO WHILEWHILE I=10I=10 IFIF A(I)*A(I)A(J)A(I)A(J)TEMP=A(I)TEMP=A(I)A(I)=A(J)A(I)=A(J)-. zA(J)=TEMPA(J)=TEMPENDIFENDIFENDFORE

14、NDFORENDFORENDFORFORFOR I=1I=1 TOTO 1010?A(I)?A(I)ENDFORENDFOR 以上是一維數(shù)組以上是一維數(shù)組數(shù)組中只有一個下標數(shù)組中只有一個下標程序舉例。在程序舉例。在 VFPVFP 中，還可以建立二維數(shù)組。定中，還可以建立二維數(shù)組。定義方法是：義方法是：DIMEDIME A(2,3)A(2,3)第一維代表行，第二維代表列，這樣就在存中開辟了第一維代表行，第二維代表列，這樣就在存中開辟了 6 6 個連續(xù)的存儲單元，數(shù)組元素個連續(xù)的存儲單元，數(shù)組元素的名稱分別為：的名稱分別為：A(1,1)A(1,1) A(1,2)A(1,2) A(1,3)A(1,3

15、)A(2,1)A(2,1) A(2,2)A(2,2) A(2,3)A(2,3) 二維數(shù)組的元素賦初值及其處理通常要用二重循環(huán)，外循二維數(shù)組的元素賦初值及其處理通常要用二重循環(huán)，外循環(huán)代表行，循環(huán)代表列。如：環(huán)代表行，循環(huán)代表列。如：FORFOR I=1I=1 TOTO 2 2FORFOR J=1J=1 TOTO 3 3 INPUTINPUT TOTO A(I,J)A(I,J)ENDFORENDFORENDFORENDFOR二維數(shù)組特別適合用來解決矩陣問題。矩陣中有如下幾個術語要掌握：行列相等的矩二維數(shù)組特別適合用來解決矩陣問題。矩陣中有如下幾個術語要掌握：行列相等的矩陣叫方陣；方陣中有主對角線

16、、輔對角線、下三角元素、外圍元素等陣叫方陣；方陣中有主對角線、輔對角線、下三角元素、外圍元素等1.1.建立一個六行六列的方陣，求出兩條對角線上所有元素之和。建立一個六行六列的方陣，求出兩條對角線上所有元素之和。2.2.一個四行五列的矩陣，求出其中最大元素的值，以及所在的行號與列號。一個四行五列的矩陣，求出其中最大元素的值，以及所在的行號與列號。DIMEDIME A(4,5)A(4,5)FORFOR I=1I=1 TOTO 4 4FORFOR J=1J=1 TOTO 5 5INPUTINPUT TOTO A(I,J)A(I,J)ENDFORENDFORENDFORENDFORBIG=A(1,1)

17、BIG=A(1,1)ROW=1ROW=1COL=1COL=1FORFOR I=1I=1 TOTO 4 4FORFOR J=1J=1 TOTO 5 5IFIF A(I,J)BIGA(I,J)BIGBIG=A(I,J)BIG=A(I,J)ROW=IROW=ICOL=JCOL=JENDIFENDIFENDFORENDFORENDFORENDFOR?BIG,ROW,COL?BIG,ROW,COLDIME A(6,6)FOR I=1 TO 6FOR J=1 TO 6A(I,J)=I+JENDFORENDFORSUM=0FOR I=1 TO 6SUM=A(I,I)+A(I,7-I)ENDFOR? “兩條對

18、角線上所有元素之和為,SUMDIME A(3,4),B(3,4),C(3,4)FOR I=1 TO 3FOR J=1 TO 4INPUT TO A(I,J)INPUT TO B(I,J)C(I,J)=A(I,J)+B(I,J)ENDFORENDFORFOR I=1 TO 3FOR J=1 TO 4?STR(C(I,J),6)ENDFOR?ENDFOR-. z3.3.求兩個矩陣之和，即求兩個矩陣之和，即 C(3,4)=A(3,4)+B(3,4)C(3,4)=A(3,4)+B(3,4)DIMEDIME A(3,4),B(3,4),C(3,4)A(3,4),B(3,4),C(3,4)FORFOR I

19、=1I=1 TOTO 3 3FORFOR J=1J=1 TOTO 4 4INPUTINPUT TOTO A(I,J)A(I,J)ENDFORENDFORENDFORENDFORFORFOR I=1I=1 TOTO 3 3FORFOR J=1J=1 TOTO 4 4INPUTINPUT TOTO B(I,J)B(I,J)ENDFORENDFORENDFORENDFORFORFOR I=1I=1 TOTO 3 3FORFOR J=1J=1 TOTO 4 4C(I,J)=A(I,J)+B(I,J)C(I,J)=A(I,J)+B(I,J)ENDFORENDFORENDFORENDFORFORFOR I

20、=1I=1 TOTO 3 3FORFOR J=1J=1 TOTO 4 4?STR(C(I,J),6)?STR(C(I,J),6)ENDFORENDFOR? ?ENDFORENDFOR判斷類判斷類1.1.鍵盤輸入一個年份，判斷是平年還是閏年鍵盤輸入一個年份，判斷是平年還是閏年. .INPUTINPUT “Enter“Enter a a yearyear： TOTO Y Y 、IFIF MOD(Y,100)0MOD(Y,100)0 ANDAND MOD(Y,4)=0MOD(Y,4)=0 OROR MOD(Y,400)=0MOD(Y,400)=0 ?Y,“is?Y,“is a a leapleap

21、year.year.ELSEELSE ?Y,“is?Y,“is a a monmon yearyearENDIFENDIF2.2.從鍵盤輸入一個整數(shù)，判斷是偶數(shù)還是奇數(shù)。從鍵盤輸入一個整數(shù)，判斷是偶數(shù)還是奇數(shù)。INPUTINPUT 整數(shù)整數(shù) TOTO * *IFIF MOD(*,2)=0MOD(*,2)=0 ?這是個偶數(shù)這是個偶數(shù) ELSEELSE ?這是個奇數(shù)這是個奇數(shù) ENDIFENDIF 3.3.輸入一個字符，判斷是否為英文字母。輸入一個字符，判斷是否為英文字母。ACCEPTACCEPT 請輸入一個字符：請輸入一個字符： TOTO CHCHIFIF ASC(CH)=65ASC(CH)=6

22、5 ANDAND ASC(CH)=90ASC(CH)=97ASC(CH)=97 ANDAND ASC(CH)=122ASC(CH)=65ASC(CH)=65 ANDAND ASC(CH)=90ASC(CH)=48ASC(CH)=48 ANDAND ASC(CH)=57ASC(CH)=97ASC(CH)=97 ANDAND ASC(CH)=122ASC(CH)0N0R=MOD(N,8)R=MOD(N,8)OCT=OCT= STR(R,1)+OCTSTR(R,1)+OCTN=INT(N/8)N=INT(N/8)ENDDOENDDO?OCT?OCTSETSET TALKTALK ONONCANCEL

23、CANCEL4.4.從鍵盤輸入一個二進制數(shù)，將其轉換成等值的十進制數(shù)。從鍵盤輸入一個二進制數(shù)，將其轉換成等值的十進制數(shù)。S=0S=0ACCEPTACCEPT “ENTER“ENTER A A BINARYBINARY NUMBER:NUMBER: TOTO N NL=LEN(N)L=LEN(N)FORFOR I=1I=1 TOTO L LS=S+VAL(SUBSTR(N,I,1)*2*(L-I)S=S+VAL(SUBSTR(N,I,1)*2*(L-I)ENDFORENDFOR?“?“等值的十進制數(shù)等值的十進制數(shù)為為,S,S從鍵盤輸入一個十進制數(shù)，將其轉換成等值的二進制數(shù)。從鍵盤輸入一個十進制數(shù)

24、，將其轉換成等值的二進制數(shù)。INPUTINPUT ENTERENTER A A DECIMALDECIMAL NUMBER:NUMBER: TOTO N NBIN=“BIN=“IFIF N=0N=0BIN=“0”BIN=“0”ENDIFENDIFDODO WHILEWHILE N0N0R=MOD(N,2)R=MOD(N,2)BIN=BIN= STR(R,1)+BINSTR(R,1)+BINN=INT(N/2)N=INT(N/2)ENDDOENDDO?“?“等值的二進制數(shù)為等值的二進制數(shù)為,BIN,BIN真實情況類真實情況類1.1.輸入乘車的公里數(shù)，輸出乘車費輸入乘車的公里數(shù)，輸出乘車費計費標準

25、：計費標準：2.52.5 公里之是公里之是 6 6 元，元，2.52.5 公里以外，每超過公里以外，每超過1 1 公里增加公里增加 1 1 元元 2 2 角角INPUTINPUT 輸入公里數(shù)輸入公里數(shù) TOTO * *-. zIFIF *2.5*2.5 PAY=(*-2.5)*1.2+6PAY=(*-2.5)*1.2+6 ELSEELSE PAY=6PAY=6ENDIFENDIF?應付費應付費,PAY,PAY,元元 2.2.設交納所得稅的規(guī)定如下：設交納所得稅的規(guī)定如下：DODO CASECASE 語句語句收入收入=1500=1500 元元 免交所得稅免交所得稅15001500 元元 收入收入

26、 =3000=3000 元元 所得稅為所得稅為 5%5%30003000 元元 收入收入 =6000=6000 元所得稅為元所得稅為 8%8%60006000 元元 收入收入 =10000=10000 元所得稅為元所得稅為 10%10%1000010000 元元 收入收入 =500005000050000 元所得稅為元所得稅為 20%20%請編程，從鍵盤輸入一個數(shù)，計算應交納的所得稅。請編程，從鍵盤輸入一個數(shù)，計算應交納的所得稅。INPUTINPUT “INE=“INE= TOTO * *DODO CASECASE CASECASE *=1500*=1500 TA*=0TA*=0 CASECA

27、SE *=3000*=3000 TA*=(*-1500)*0.05TA*=(*-1500)*0.05 CASECASE *=6000*=6000 TA*=(*-3000)*0.08+(3000-1500)*0.05TA*=(*-3000)*0.08+(3000-1500)*0.05 CASECASE *=10000*=10000 TA*=(*-6000)*0.1+(6000-3000)*0.08+(3000-1500)*0.05TA*=(*-6000)*0.1+(6000-3000)*0.08+(3000-1500)*0.05 CASECASE *=50000*=95FS=95 ?優(yōu)秀優(yōu)秀 C

28、ASECASE FS=85FS=85 ?很好很好 CASECASE FS=70FS=70 ?好好 CASECASE FS=60FS=60 ?一般一般 -. z OTHERWISEOTHERWISE ?不及格不及格 ENDCASEENDCASE 4.4. 編寫學生成績統(tǒng)計程序。設有三位同學，考數(shù)學、物理、化學三門課，統(tǒng)計每個同學的編寫學生成績統(tǒng)計程序。設有三位同學，考數(shù)學、物理、化學三門課，統(tǒng)計每個同學的總分和平均分總分和平均分SETSET TALKTALK OFFOFFCLEARCLEARDIMEDIME S(3,6)S(3,6)FORFOR I=1I=1 TOTO 3 3FORFOR J=1

29、J=1 TOTO 4 4INPUTINPUT INPUTINPUT STUDENT-NOSTUDENT-NO ANDAND SCORE:SCORE: TOTO S(I,J)S(I,J)ENDFORENDFORENDFORENDFORFORFOR I=1I=1 TOTO 3 3S(I,5)=S(I,2)+S(I,3)+S(I,4)S(I,5)=S(I,2)+S(I,3)+S(I,4)S(I,6)=ROUND(S(I,5)/3,1)S(I,6)=ROUND(S(I,5)/3,1)ENDFORENDFOR?SPACE(5),STUNO,SPACE(4),MATH,SPACE(4),PHY,SPACE

30、(5),CHE,SPACE(4),?SPACE(5),STUNO,SPACE(4),MATH,SPACE(4),PHY,SPACE(5),CHE,SPACE(4),TOTAL,SPACE(5),AVERTOTAL,SPACE(5),AVER? ?FORFOR I=1I=1 TOTO 3 3FORFOR J=1J=1 TOTO 6 6?S(I,J)?S(I,J)ENDFORENDFOR? ?ENDFORENDFORSETSET TALKTALK ONONCANCELCANCEL5.*5.*班有班有 4545 名參加考試的同學，現(xiàn)在要求從鍵盤輸入全班一門課的成績，輸出該課程的平名參加考試的同學，現(xiàn)

31、在要求從鍵盤輸入全班一門課的成績，輸出該課程的平均分，以及及格人數(shù)和半分比。均分，以及及格人數(shù)和半分比。SUM=0SUM=0N=1N=1FORFOR I=I= 1 1 TOTO 4545INPUTINPUT全班一門課的成績全班一門課的成績 TOTO * * SUM=SUM+*SUM=SUM+* IFIF *=60*=60 N=N+1N=N+1 ENDIFENDIFENDFORENDFOR ?平均分平均分 ,SUM/45,SUM/45?幾個人數(shù)幾個人數(shù),N,N?合格率合格率,N/45*100,%,N/45*100,%矩陣類矩陣類-. z1.1.建立一個五行五列的矩陣，求出外圍所有元素之和。建立一

32、個五行五列的矩陣，求出外圍所有元素之和。DIMENSIONDIMENSION A(5,5)A(5,5)S=0S=0S1=0S1=0FORFOR I=1I=1 TOTO 5 5FORFOR J=1J=1 TOTO 5 5INPUTINPUT TOTO A(I,J)A(I,J)S=S+A(I,J)S=S+A(I,J)ENDFORENDFORENDFORENDFORFORFOR I=2I=2 TOTO 4 4FORFOR J=2J=2 TOTO 4 4S1=S1+A(I,J)S1=S1+A(I,J)ENDFORENDFORENDFORENDFOR?S-S1?S-S1打印圖形類打印圖形類1.1.打印如

33、以下列圖形打印如以下列圖形: :* * * *CLEARCLEARFORFOR I=1I=1 TOTO 5 5?SPACE(I)?SPACE(I)FORFOR J=1J=1 TOTO 5 5?*?*ENDFORENDFORENDFORENDFOR附：打印如以下列圖形附：打印如以下列圖形: :* * * * * * * *FORFOR I=5I=5 TOTO 1 1 STEPSTEP -1-1?SPACE(5-I)?SPACE(5-I)FORFOR J=1J=1 TOTO I I?*?*-. zENDFORENDFOR? ?ENDFORENDFORFORFOR I=2I=2 TOTO 5 5?S

34、PACE(5-I)?SPACE(5-I)FORFOR J=1J=1 TOTO I I?*?*ENDFORENDFOR? ?ENDFORENDFOR2.2. 打印如下所示的九九乘法表打印如下所示的九九乘法表clearclearforfor N=1N=1 TOTO 9 9 forfor M=1M=1 TOTO N N ? alltrim(str(N)+alltrim(str(M)+=+alltrim(str(N)+alltrim(str(M)+=+ alltrim(str(N*M)+space(5)alltrim(str(N*M)+space(5) endforendfor ? ?EndforEn

35、dforclearclearN=1N=1DODO WHILEWHILE N=9N=9 M=1M=1 DODO WHILEWHILE M=NM=N ? alltrim(str(N)+alltrim(str(M)+=+alltrim(str(N)+alltrim(str(M)+=+ alltrim(str(N*M)+space(5)alltrim(str(N*M)+space(5) M=M+1M=M+1 ENDDOENDDO ? ? N=N+1N=N+1ENDDOENDDO其他類其他類1.1. 輸入兩個數(shù)和一個運算符輸入兩個數(shù)和一個運算符( (加、減、乘、除加、減、乘、除) )，求其值。例如，求其

36、值。例如, ,輸入輸入 3 3 和和 5 5 以及以及*,*,則則輸出輸出 1515INPUTINPUT “輸入一個數(shù)輸入一個數(shù): TOTO A AINPUTINPUT “輸入另一個數(shù)輸入另一個數(shù): TOTO B BACCEPTACCEPT “輸入運算符輸入運算符: TOTO CHCHDODO CASECASECASECASE CH=“+CH=“+? ? “兩數(shù)之和為兩數(shù)之和為:,A+B:,A+BCASECASE CH=-“CH=-“? ? “兩數(shù)之差為兩數(shù)之差為:,A-B:,A-BCASECASE CH=*CH=*? ? “兩數(shù)之積為兩數(shù)之積為:,A*B:,A*BCASECASE CH=“/

37、CH=“/? ? “兩數(shù)之商為兩數(shù)之商為:,A/B:,A/B-. zOTHERWISEOTHERWISE? ? “運算符有錯運算符有錯!ENDCASEENDCASE2.2.輸入一個正整數(shù)，分解出所有因子。如輸入一個正整數(shù)，分解出所有因子。如 18=1*2*3*318=1*2*3*3，23=1*2323=1*23INPUTINPUT 輸入一個正整數(shù)輸入一個正整數(shù) TOTO N N? N,=1N,=1I=2I=2DODO WHILEWHILE I=NI=N IFIF MOD(N,I)=0MOD(N,I)=0 ?*+ALLTRIM(STR(I)?*+ALLTRIM(STR(I) N=N/IN=N/I ELS