1、求求 N N 的階乘。（的階乘。（N N 的值的值 由鍵盤輸入，應(yīng)小于由鍵盤輸入，應(yīng)小于 2020 ） INPUTINPUT “輸入輸入 N N 的值的值” TOTO N N P=1P=1 FORFOR I=1I=1 TOTO N N P=P*IP=P*I ENDFORENDFOR ?N,“!=”,P?N,“!=”,P 求和類：求和類： 1.1. 計算計算 S=1S=1！+2+2！+3+3！+4+4！+ +。+N!+N! S=0S=0 K=1K=1 INPUTINPUT N=N= TOTO N N FORFOR i=1i=1 TOTO N N K=K*iK=K*i S=S+KS=S+K End

2、forEndfor ?S?S 2.2.求求 33333 217531 SUM=0SUM=0 FORFOR I=1I=1 TOTO 2121 STEPSTEP 2 2 SUM=SUM+I3SUM=SUM+I3 ENDFORENDFOR ?”SUM=”,SUM?”SUM=”,SUM 3.3.有一分數(shù)序列，求前有一分數(shù)序列，求前 2020 項之和項之和 . 8 13 5 8 3 5 2 3 1 2 M=1M=1 N=2N=2 SUM=0SUM=0 FORFOR I=1I=1 TOTO 2020 TERM=N/MTERM=N/M SUM=SUM+TERMSUM=SUM+TERM X=NX=N N=M+

3、NN=M+N M=XM=X TERM=N/MTERM=N/M ENDFORENDFOR ?”SUM=”,SUM?”SUM=”,SUM 4.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 A INPUTINPUT 輸入項數(shù)輸入項數(shù) n:n: TOTO N N SN=0SN=0 B=AB=A FORFOR I=1I=1 TOTO N N SN=SN+ASN=SN+A A=A*10+B

4、A=A*10+B ENDFORENDFOR ?數(shù)列之和為數(shù)列之和為:,SN:,SN 5.5. 求求e ex x的臺勞級數(shù)展開式的前的臺勞級數(shù)展開式的前 n n 項之和項之和( (運行時輸入運行時輸入 x=2.0,n=4)x=2.0,n=4) )!1(! 3! 2 1 132 n xxx xe n x INPUTINPUT “X=”“X=” TOTO X X INPUTINPUT “N=”“N=” TOTO N N SUM=1SUM=1 P=1P=1 FORFOR I=1I=1 TOTO N-1N-1 P=P*IP=P*I T=XI/PT=XI/P SUM=SUM+TSUM=SUM+T ENDF

5、ORENDFOR ?”SUM=”,SUM?”SUM=”,SUM 6.6.求求 1*2+3*4+5*6+21*221*2+3*4+5*6+21*22 SUM=0SUM=0 FORFOR I=1I=1 TOTO 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/n INPUTINPUT TOTO N N S=0S=0 F=1

6、F=1 FORFOR I=1I=1 TOTO N N S=S+F*(-1)(I-1)/IS=S+F*(-1)(I-1)/I ENDFORENDFOR ? ?S S 8.8.計算連續(xù)自然數(shù)之和，并且顯示和剛大于計算連續(xù)自然數(shù)之和，并且顯示和剛大于 10001000 的最后一個自然數(shù)的最后一個自然數(shù) Sn=1+2+3+4+NSn=1+2+3+4+N STORESTORE 0 0 TOTO S,NS,N DODO WHILEWHILE S=1000S=1000 N=N+1N=N+1 S=S+NS=S+N ENDDOENDDO ? ? N N 9.9.求求 12+42+72+12+42+72+一直加到

7、超過一直加到超過 10001000 為止，輸出和數(shù)與項數(shù)。為止，輸出和數(shù)與項數(shù)。 I=1I=1 S=0S=0 N=0N=0 DODO WHILEWHILE S=1000S0X0 Y=X*XY=X*X ELSEELSE IFIF X=0X=0 Y=0Y=0 ELSEELSE Y=-(X*X)Y=-(X*X) ENDIFENDIF ENDIFENDIF ?Y?Y 2.2.現(xiàn)有一元現(xiàn)有一元 2 2 次方程次方程 AX2+BX+C=0AX2+BX+C=0 其中其中 A A B B C C 是整數(shù)且是整數(shù)且 A A 不等于不等于 0 0 若存在實根，則輸出若存在實根，則輸出“在實在實 數(shù)范圍內(nèi)有解數(shù)范圍

8、內(nèi)有解” 若不存在實根若不存在實根 則輸出則輸出“在實數(shù)范圍內(nèi)無解在實數(shù)范圍內(nèi)無解”/”/求解求解 INPUTINPUT TOTO A A INPUTINPUT TOTO B B INPUTINPUT TOTO C C D=B*B-4*A*CD=B*B-4*A*C IFIF D=0D=0 ?在實數(shù)范圍內(nèi)有解在實數(shù)范圍內(nèi)有解 ELSEELSE ?在實數(shù)范圍內(nèi)無解在實數(shù)范圍內(nèi)無解 ENDIFENDIF / / INPUTINPUT TOTO A A INPUTINPUT TOTO B B INPUTINPUT TOTO C C D=B*B-4*A*CD=B*B-4*A*C IFIF D0D0 X1

9、=(-B+SQRT(D)/(2*A)X1=(-B+SQRT(D)/(2*A) X2=(-B-SQRT(D)/(2*A)X2=(-B-SQRT(D)/(2*A) ?X1?X1 ?X2?X2 ELSEELSE IFIF D0D0 X=-B/(2*A)X=-B/(2*A) ?X1=X2=,X?X1=X2=,X ELSEELSE ?無解無解 ENDIFENDIF ENDIFENDIF 3.3.輸入一個輸入一個 X X 的值，求的值，求 Y Y 的值。的值。Y=Y= 10113 10112 1 XifX XifX XifX INPUTINPUT TOTO X X DODO CASECASE CASECA

10、SE X1X1 Y=XY=X CASECASE X10X=10X=10 Y=3*X-11Y=3*X-11 ENDCASEENDCASE ?Y?Y 數(shù)組類數(shù)組類 1.1. 輸入輸入 1010 個數(shù)，輸出其中小于平均值個數(shù)，輸出其中小于平均值 S S 的數(shù)。的數(shù)。 DIMEDIME A(10)A(10) S=0S=0 FORFOR I=1I=1 TOTO 1010 INPUTINPUT TOTO A(I)A(I) S=S+A(I)S=S+A(I) ENDFORENDFOR S=S/10S=S/10 FORFOR I=1I=1 TOTO 1010 IFIF A(I)SA(I)BIGA(I)BIG B

11、IG=A(I)BIG=A(I) ENDIFENDIF IFIF A(I)SMALLA(I)BIGA(I)BIG BIG=A(I)BIG=A(I) BP=IBP=I ENDIFENDIF IFIF A(I)SMALLA(I)10I10 ? ? NONO ENDIFENDIF 5.5. 已有按從小到大的順序排列的已有按從小到大的順序排列的 1010 個數(shù)，現(xiàn)輸入一個數(shù)，要求插入到數(shù)列中。插入后數(shù)列仍然按個數(shù)，現(xiàn)輸入一個數(shù)，要求插入到數(shù)列中。插入后數(shù)列仍然按 從小到大順序排列。從小到大順序排列。 DIMENSIONDIMENSION A(11)A(11) FORFOR I=1I=1 TOTO 101

12、0 INPUTINPUT “遞增輸入遞增輸入 1010 個整數(shù)個整數(shù)” TOTO A(I)A(I) ENDFORENDFOR INPUTINPUT “任意輸入一個整數(shù)任意輸入一個整數(shù)” TOTO X X FORFOR I=10I=10 TOTO 1 1 STEPSTEP -1-1 IFIF XA(I)XA(I) IFIF I=1I=1 A(I+1)=A(I)A(I+1)=A(I) A(I)=XA(I)=X ELSEELSE A(I+1)=A(I)A(I+1)=A(I) ENDIFENDIF ELSEELSE A(I+1)=XA(I+1)=X EXITEXIT ENDIFENDIF ENDFOR

13、ENDFOR FORFOR I=1I=1 TOTO 1111 ?A(I)?A(I) ENDFORENDFOR ? ? 6.6. 數(shù)組數(shù)組 A A 中已存放了中已存放了 1010 個由小到大排列的數(shù)。現(xiàn)從鍵盤輸入一個數(shù)個由小到大排列的數(shù)?，F(xiàn)從鍵盤輸入一個數(shù) X X，要求刪除數(shù)組中與其相，要求刪除數(shù)組中與其相 同的數(shù)，并將后續(xù)的數(shù)依次前移，最后輸出剩余的數(shù)。（同的數(shù)，并將后續(xù)的數(shù)依次前移，最后輸出剩余的數(shù)。（7 7 分）分） 考慮到有重復(fù)數(shù)的程序如下：考慮到有重復(fù)數(shù)的程序如下： DIMEDIME A(10)A(10) FORFOR I=1I=1 TOTO 1010 INPUTINPUT “按遞增輸

14、入按遞增輸入 1010 個數(shù)個數(shù)” TOTO A(I)A(I) ENDFORENDFOR INPUTINPUT “輸入待刪除的數(shù)輸入待刪除的數(shù)” TOTO X X I=1I=1 J=1J=1 N=0N=0 DODO WHILEWHILE I=10I=10 IFIF A(I)XA(I)A(J)A(I)A(J) TEMP=A(I)TEMP=A(I) A(I)=A(J)A(I)=A(J) A(J)=TEMPA(J)=TEMP ENDIFENDIF ENDFORENDFOR ENDFORENDFOR FORFOR I=1I=1 TOTO 1010 ?A(I)?A(I) ENDFORENDFOR 以上是

15、一維數(shù)組（數(shù)組中只有一個下標(biāo)）以上是一維數(shù)組（數(shù)組中只有一個下標(biāo)） 程序舉例。在程序舉例。在 VFPVFP 中，還可以建立二維數(shù)組。定義方法是：中，還可以建立二維數(shù)組。定義方法是： DIMEDIME A(2,3)A(2,3) 第一維代表行，第二維代表列，這樣就在內(nèi)存中開辟了第一維代表行，第二維代表列，這樣就在內(nèi)存中開辟了 6 6 個連續(xù)的存儲單元，數(shù)組元素的名個連續(xù)的存儲單元，數(shù)組元素的名 稱分別為：稱分別為： A(1,1)A(1,1) A(1,2)A(1,2) A(1,3)A(1,3) A(2,1)A(2,1) A(2,2)A(2,2) A(2,3)A(2,3) 二維數(shù)組的元素賦初值及其處理

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

17、素等 1.1.建立一個六行六列的方陣，求出兩條對角線上所有元素之和。建立一個六行六列的方陣，求出兩條對角線上所有元素之和。 DIMEDIME A(6,6)A(6,6) FORFOR I=1I=1 TOTO 6 6 FORFOR J=1J=1 TOTO 6 6 INPUTINPUT TOTO A(I,J)A(I,J) ENDFORENDFOR ENDFORENDFOR SUM=0SUM=0 FORFOR I=1I=1 TOTO 6 6 SUM=A(I,I)+A(I,7-I)SUM=A(I,I)+A(I,7-I) ENDFORENDFOR ? ? “兩條對角線上所有元素之和為兩條對角線上所有元素之

18、和為”,SUM”,SUM DIME A(6,6) FOR I=1 TO 6 FOR J=1 TO 6 A(I,J)=I+J ENDFOR ENDFOR SUM=0 FOR I=1 TO 6 SUM=A(I,I)+A(I,7-I) ENDFOR ? “兩條對角線上所有元素之和為”,SUM ZF=0ZF=0 SF=0SF=0 FORFOR I=1I=1 TOTO 6 6 FORFOR J=1J=1 TOTO 6 6 IFIF I=JI=J SZ=SZ+A(I,J)SZ=SZ+A(I,J) ENDIFENDIF IFIF I+J=7I+J=7 SF=SF+A(I,J)SF=SF+A(I,J) END

19、IFENDIF ENDFORENDFOR ENDFORENDFOR ? ? “兩條對角線上所有元素之和為兩條對角線上所有元素之和為”,SZ+SF”,SZ+SF 2.2.一個四行五列的矩陣，求出其中最大元素的值，以及所在的行號與列號。一個四行五列的矩陣，求出其中最大元素的值，以及所在的行號與列號。 DIMEDIME A(4,5)A(4,5) FORFOR I=1I=1 TOTO 4 4 FORFOR J=1J=1 TOTO 5 5 INPUTINPUT TOTO A(I,J)A(I,J) ENDFORENDFOR ENDFORENDFOR BIG=A(1,1)BIG=A(1,1) ROW=1RO

20、W=1 COL=1COL=1 FORFOR I=1I=1 TOTO 4 4 FORFOR J=1J=1 TOTO 5 5 IFIF A(I,J)BIGA(I,J)BIG BIG=A(I,J)BIG=A(I,J) ROW=IROW=I COL=JCOL=J ENDIFENDIF ENDFORENDFOR ENDFORENDFOR ?BIG,?BIG, ROW,ROW, COLCOL 3.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

21、(3,4) FORFOR I=1I=1 TOTO 3 3 FORFOR J=1J=1 TOTO 4 4 INPUTINPUT TOTO A(I,J)A(I,J) ENDFORENDFOR ENDFORENDFOR FORFOR I=1I=1 TOTO 3 3 FORFOR J=1J=1 TOTO 4 4 INPUTINPUT TOTO B(I,J)B(I,J) ENDFORENDFOR ENDFORENDFOR FORFOR I=1I=1 TOTO 3 3 FORFOR J=1J=1 TOTO 4 4 C(I,J)=A(I,J)+B(I,J)C(I,J)=A(I,J)+B(I,J) ENDFO

22、RENDFOR ENDFORENDFOR DIME A(3,4),B(3,4),C(3,4) FOR I=1 TO 3 FOR J=1 TO 4 INPUT TO A(I,J) INPUT TO B(I,J) C(I,J)=A(I,J)+B(I,J) ENDFOR ENDFOR FOR I=1 TO 3 FOR J=1 TO 4 ?STR(C(I,J),6) ENDFOR ? ENDFOR FORFOR I=1I=1 TOTO 3 3 FORFOR J=1J=1 TOTO 4 4 ?STR(C(I,J),6)?STR(C(I,J),6) ENDFORENDFOR ? ? ENDFORENDFO

23、R 判斷類判斷類 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 year.”year.” ELSEELSE ?Y,“is?Y,“is a a commoncommon year”year” ENDIFENDIF 2.2.從鍵盤輸入一個整

24、數(shù)，判斷是偶數(shù)還是奇數(shù)。從鍵盤輸入一個整數(shù)，判斷是偶數(shù)還是奇數(shù)。 INPUTINPUT 整數(shù)整數(shù) TOTO X X IFIF MOD(X,2)=0MOD(X,2)=0 ?這是個偶數(shù)這是個偶數(shù) ELSEELSE ?這是個奇數(shù)這是個奇數(shù) ENDIFENDIF 3.3.輸入一個字符，判斷是否為英文字母。輸入一個字符，判斷是否為英文字母。 ACCEPTACCEPT 請輸入一個字符：請輸入一個字符： TOTO CHCH IFIF ASC(CH)=65ASC(CH)=65 ANDAND ASC(CH)=90ASC(CH)=97ASC(CH)=97 ANDAND ASC(CH)=122ASC(CH)=65A

25、SC(CH)=65 ANDAND ASC(CH)=90ASC(CH)=48ASC(CH)=48 ANDAND ASC(CH)=57ASC(CH)=97ASC(CH)=97 ANDAND ASC(CH)=122ASC(CH)0N0 R=MOD(N,8)R=MOD(N,8) OCT=OCT= STR(R,1)+OCTSTR(R,1)+OCT N=INT(N/8)N=INT(N/8) ENDDOENDDO ?OCT?OCT SETSET TALKTALK ONON CANCELCANCEL 4.4.從鍵盤輸入一個二進制數(shù)，將其轉(zhuǎn)換成等值的十進制數(shù)。從鍵盤輸入一個二進制數(shù)，將其轉(zhuǎn)換成等值的十進制數(shù)。

26、S=0S=0 ACCEPTACCEPT “ENTER“ENTER A A BINARYBINARY NUMBER:”NUMBER:” TOTO N N L=LEN(N)L=LEN(N) FORFOR I=1I=1 TOTO L L S=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ù)，將其轉(zhuǎn)換成等值的二進制數(shù)。從鍵盤輸入一個十進制數(shù)，將其轉(zhuǎn)換成等值的二進制數(shù)。 INPUTINPUT ENTERENTER A A DECIMALD

27、ECIMAL NUMBER:NUMBER: TOTO N N BIN=“”BIN=“” IFIF N=0N=0 BIN=“0”BIN=“0” ENDIFENDIF DODO WHILEWHILE N0N0 R=MOD(N,2)R=MOD(N,2) BIN=BIN= STR(R,1)+BINSTR(R,1)+BIN N=INT(N/2)N=INT(N/2) ENDDOENDDO ? ? “等值的二進制數(shù)為等值的二進制數(shù)為”,BIN”,BIN 真實情況類真實情況類 1.1.輸入乘車的公里數(shù)，輸出乘車費（計費標(biāo)準(zhǔn)：輸入乘車的公里數(shù)，輸出乘車費（計費標(biāo)準(zhǔn)：2.52.5 公里之內(nèi)是公里之內(nèi)是 6 6 元

28、，元，2.52.5 公里以外，每超過公里以外，每超過 1 1 公里增加公里增加 1 1 元元 2 2 角）角） INPUTINPUT 輸入公里數(shù)輸入公里數(shù) TOTO X X IFIF X2.5X2.5 PAY=(X-2.5)*1.2+6PAY=(X-2.5)*1.2+6 ELSEELSE PAY=6PAY=6 ENDIFENDIF ?應(yīng)付費應(yīng)付費,PAY,PAY,元元 2.2. 6)6) 設(shè)交納所得稅的規(guī)定如下：設(shè)交納所得稅的規(guī)定如下： DODO CASECASE 語句語句 收入收入=1500=1500 元元 免交所得稅免交所得稅 15001500 元元 收入收入 =3000=3000 元元

29、所得稅為所得稅為 5%5% 30003000 元元 收入收入 =6000=6000 元所得稅為元所得稅為 8%8% 60006000 元元 收入收入 =10000=10000 元所得稅為元所得稅為 10%10% 1000010000 元元 收入收入 =500005000050000 元所得稅為元所得稅為 20%20% 請編程，從鍵盤輸入一個數(shù)，計算應(yīng)交納的所得稅。請編程，從鍵盤輸入一個數(shù)，計算應(yīng)交納的所得稅。 INPUTINPUT “INCOME=”“INCOME=” TOTO X X DODO CASECASE CASECASE X=1500X=1500 TAX=0TAX=0 CASECAS

30、E X=3000X=3000 TAX=(X-1500)*0.05TAX=(X-1500)*0.05 CASECASE X=6000X=6000 TAX=(X-3000)*0.08+(3000-1500)*0.05TAX=(X-3000)*0.08+(3000-1500)*0.05 CASECASE X=10000X=10000 TAX=(X-6000)*0.1+(6000-3000)*0.08+(3000-1500)*0.05TAX=(X-6000)*0.1+(6000-3000)*0.08+(3000-1500)*0.05 CASECASE X=50000X=95FS=95 ?優(yōu)秀優(yōu)秀 CA

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

32、J=1 TOTO 4 4 INPUTINPUT INPUTINPUT STUDENT-NOSTUDENT-NO ANDAND SCORE:SCORE: TOTO S(I,J)S(I,J) ENDFORENDFOR ENDFORENDFOR FORFOR I=1I=1 TOTO 3 3 S(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),P

33、HY,SPACE(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 3 FORFOR J=1J=1 TOTO 6 6 ?S(I,J)?S(I,J) ENDFORENDFOR ? ? ENDFORENDFOR SETSET TALKTALK ONON CANCELCANCEL 5.5.某班有某班有 4545 名參加考試的同學(xué)，現(xiàn)在要求從鍵盤輸入全班一門課的成

34、績，輸出該課程的平均分，名參加考試的同學(xué)，現(xiàn)在要求從鍵盤輸入全班一門課的成績，輸出該課程的平均分， 以及及格人數(shù)和半分比。以及及格人數(shù)和半分比。 SUM=0SUM=0 N=1N=1 FORFOR I=I= 1 1 TOTO 4545 INPUTINPUT全班一門課的成績?nèi)嘁婚T課的成績 TOTO X X SUM=SUM+XSUM=SUM+X IFIF X=60X=60 N=N+1N=N+1 ENDIFENDIF ENDFORENDFOR ?平均分平均分 ,SUM/45,SUM/45 ?幾個人數(shù)幾個人數(shù),N,N ?合格率合格率,N/45*100,%,N/45*100,% 矩陣類矩陣類 1.1.建

35、立一個五行五列的矩陣，求出外圍所有元素之和。建立一個五行五列的矩陣，求出外圍所有元素之和。 DIMENSIONDIMENSION A(5,5)A(5,5) S=0S=0 S1=0S1=0 FORFOR I=1I=1 TOTO 5 5 FORFOR J=1J=1 TOTO 5 5 INPUTINPUT TOTO A(I,J)A(I,J) S=S+A(I,J)S=S+A(I,J) ENDFORENDFOR ENDFORENDFOR FORFOR I=2I=2 TOTO 4 4 FORFOR J=2J=2 TOTO 4 4 S1=S1+A(I,J)S1=S1+A(I,J) ENDFORENDFOR

36、ENDFORENDFOR ?S-S1?S-S1 打印圖形類打印圖形類 1.1.打印如下圖形打印如下圖形: : * * * * CLEARCLEAR FORFOR I=1I=1 TOTO 5 5 ?SPACE(I)?SPACE(I) FORFOR J=1J=1 TOTO 5 5 ?”*”?”*” ENDFORENDFOR ENDFORENDFOR 附：打印如下圖形附：打印如下圖形: : * * * * * * * * * * FORFOR I=5I=5 TOTO 1 1 STEPSTEP -1-1 ?SPACE(5-I)?SPACE(5-I) FORFOR J=1J=1 TOTO I I ?”*

37、”?”*” ENDFORENDFOR ? ? ENDFORENDFOR FORFOR I=2I=2 TOTO 5 5 ?SPACE(5-I)?SPACE(5-I) FORFOR J=1J=1 TOTO I I ?”*”?”*” ENDFORENDFOR ? ? ENDFORENDFOR 2.2. 打印如下所示的九九乘法表打印如下所示的九九乘法表 clearclear forfor 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)+=+ al

38、ltrim(str(N*M)+space(5)alltrim(str(N*M)+space(5) endforendfor ? ? EndforEndfor clearclear N=1N=1 DODO 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

39、=N+1 ENDDOENDDO 其他類其他類 1.1. 輸入兩個數(shù)和一個運算符輸入兩個數(shù)和一個運算符( (加、減、乘、除加、減、乘、除) )，求其值。例如，求其值。例如, ,輸入輸入 3 3 和和 5 5 以及以及*,*,則輸出則輸出 1515 INPUTINPUT “輸入一個數(shù)輸入一個數(shù):”:” TOTO A A INPUTINPUT “輸入另一個數(shù)輸入另一個數(shù):”:” TOTO B B ACCEPTACCEPT “輸入運算符輸入運算符:”:” TOTO CHCH DODO CASECASE CASECASE CH=“+”CH=“+” ? ? “兩數(shù)之和為兩數(shù)之和為:”,A+B:”,A+B

40、CASECASE CH=”-“CH=”-“ ? ? “兩數(shù)之差為兩數(shù)之差為:”,A-B:”,A-B CASECASE CH=”*”CH=”*” ? ? “兩數(shù)之積為兩數(shù)之積為:”,A*B:”,A*B CASECASE CH=“/”CH=“/” ? ? “兩數(shù)之商為兩數(shù)之商為:”,A/B:”,A/B OTHERWISEOTHERWISE ? ? “運算符有錯運算符有錯!”!” ENDCASEENDCASE 2.2.輸入一個正整數(shù)，分解出所有因子。如輸入一個正整數(shù)，分解出所有因子。如 18=1*2*3*318=1*2*3*3，23=1*2323=1*23 INPUTINPUT 輸入一個正整數(shù)輸入一個正整數(shù) TOTO N N ? N,=1N,=1 I=2I=2 DODO WHILEWHILE I=NI=N IFIF MOD(N