编程题类型总结

1、求求 N N 的阶乘。（的阶乘。（N N 的值的值 由键盘输入，应小于由键盘输入，应小于 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.有一分数序列，求前有一分数序列，求前 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 是一个数字，是一个数字，a a 的个数为的个数为 n n，a a 和和 n n 由键盘输入由键盘输入 INPUTINPUT 输入输入 a a 的值的值: TOTO A A INPUTINPUT 输入项数输入项数 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 ?数列之和为数列之和为:,SN:,SN 5.5. 求求e ex x的台劳级数展开式的前的台劳级数展开式的前 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，求下列级数的，求下列级数的 和和: : 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.计算连续自然数之和，并且显示和刚大于计算连续自然数之和，并且显示和刚大于 10001000 的最后一个自然数的最后一个自然数 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 为止，输出和数与项数。为止，输出和数与项数。 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.现有一元现有一元 2 2 次方程次方程 AX2+BX+C=0AX2+BX+C=0 其中其中 A A B B C C 是整数且是整数且 A A 不等于不等于 0 0 若存在实根，则输出若存在实根，则输出“在实在实 数范围内有解数范围

8、内有解” 若不存在实根若不存在实根 则输出则输出“在实数范围内无解在实数范围内无解”/”/求解求解 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 ?在实数范围内有解在实数范围内有解 ELSEELSE ?在实数范围内无解在实数范围内无解 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 数组类数组类 1.1. 输入输入 1010 个数，输出其中小于平均值个数，输出其中小于平均值 S S 的数。的数。 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 个数，现输入一个数，要求插入到数列中。插入后数列仍然按个数，现输入一个数，要求插入到数列中。插入后数列仍然按 从小到大顺序排列。从小到大顺序排列。 DIMENSIONDIMENSION A(11)A(11) FORFOR I=1I=1 TOTO 101

12、0 INPUTINPUT “递增输入递增输入 1010 个整数个整数” TOTO A(I)A(I) ENDFORENDFOR INPUTINPUT “任意输入一个整数任意输入一个整数” 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. 数组数组 A A 中已存放了中已存放了 1010 个由小到大排列的数。现从键盘输入一个数个由小到大排列的数。现从键盘输入一个数 X X，要求删除数组中与其相，要求删除数组中与其相 同的数，并将后续的数依次前移，最后输出剩余的数。（同的数，并将后续的数依次前移，最后输出剩余的数。（7 7 分）分） 考虑到有重复数的程序如下：考虑到有重复数的程序如下： DIMEDIME A(10)A(10) FORFOR I=1I=1 TOTO 1010 INPUTINPUT “按递增输

14、入按递增输入 1010 个数个数” TOTO A(I)A(I) ENDFORENDFOR INPUTINPUT “输入待删除的数输入待删除的数” 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、一维数组（数组中只有一个下标）以上是一维数组（数组中只有一个下标） 程序举例。在程序举例。在 VFPVFP 中，还可以建立二维数组。定义方法是：中，还可以建立二维数组。定义方法是： DIMEDIME A(2,3)A(2,3) 第一维代表行，第二维代表列，这样就在内存中开辟了第一维代表行，第二维代表列，这样就在内存中开辟了 6 6 个连续的存储单元，数组元素的名个连续的存储单元，数组元素的名 称分别为：称分别为： 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) 二维数组的元素赋初值及其处理

16、通常要用二重循环，外循环代二维数组的元素赋初值及其处理通常要用二重循环，外循环代 表行，内循环代表列。如：表行，内循环代表列。如： FORFOR I=1I=1 TOTO 2 2 FORFOR J=1J=1 TOTO 3 3 INPUTINPUT TOTO A(I,J)A(I,J) ENDFORENDFOR ENDFORENDFOR 二维数组特别适合用来解决矩阵问题。矩阵中有如下几个术语要掌握：行列相等的矩阵叫方二维数组特别适合用来解决矩阵问题。矩阵中有如下几个术语要掌握：行列相等的矩阵叫方 阵；方阵中有主对角线、辅对角线、下三角元素、外围元素等阵；方阵中有主对角线、辅对角线、下三角元素、外围元

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、数，判断是偶数还是奇数。从键盘输入一个整数，判断是偶数还是奇数。 INPUTINPUT 整数整数 TOTO X X IFIF MOD(X,2)=0MOD(X,2)=0 ?这是个偶数这是个偶数 ELSEELSE ?这是个奇数这是个奇数 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.从键盘输入一个二进制数，将其转换成等值的十进制数。从键盘输入一个二进制数，将其转换成等值的十进制数。

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 ?“?“等值的十进制数等值的十进制数为为”,S”,S 从键盘输入一个十进制数，将其转换成等值的二进制数。从键盘输入一个十进制数，将其转换成等值的二进制数。 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 ? ? “等值的二进制数为等值的二进制数为”,BIN”,BIN 真实情况类真实情况类 1.1.输入乘车的公里数，输出乘车费（计费标准：输入乘车的公里数，输出乘车费（计费标准：2.52.5 公里之内是公里之内是 6 6 元

28、，元，2.52.5 公里以外，每超过公里以外，每超过 1 1 公里增加公里增加 1 1 元元 2 2 角）角） INPUTINPUT 输入公里数输入公里数 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 ?应付费应付费,PAY,PAY,元元 2.2. 6)6) 设交纳所得税的规定如下：设交纳所得税的规定如下： DODO CASECASE 语句语句 收入收入=1500=1500 元元 免交所得税免交所得税 15001500 元元 收入收入 =3000=3000 元元

29、所得税为所得税为 5%5% 30003000 元元 收入收入 =6000=6000 元所得税为元所得税为 8%8% 60006000 元元 收入收入 =10000=10000 元所得税为元所得税为 10%10% 1000010000 元元 收入收入 =500005000050000 元所得税为元所得税为 20%20% 请编程，从键盘输入一个数，计算应交纳的所得税。请编程，从键盘输入一个数，计算应交纳的所得税。 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 ?优秀优秀 CA

31、SECASE FS=85FS=85 ?很好很好 CASECASE FS=70FS=70 ?好好 CASECASE FS=60FS=60 ?一般一般 OTHERWISEOTHERWISE ?不及格不及格 ENDCASEENDCASE 4.4. 编写学生成绩统计程序。设有三位同学，考数学、物理、化学三门课，统计每个同学的总分和编写学生成绩统计程序。设有三位同学，考数学、物理、化学三门课，统计每个同学的总分和 平均分平均分 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 名参加考试的同学，现在要求从键盘输入全班一门课的成

34、绩，输出该课程的平均分，名参加考试的同学，现在要求从键盘输入全班一门课的成绩，输出该课程的平均分， 以及及格人数和半分比。以及及格人数和半分比。 SUM=0SUM=0 N=1N=1 FORFOR I=I= 1 1 TOTO 4545 INPUTINPUT全班一门课的成绩全班一门课的成绩 TOTO X X SUM=SUM+XSUM=SUM+X IFIF X=60X=60 N=N+1N=N+1 ENDIFENDIF ENDFORENDFOR ?平均分平均分 ,SUM/45,SUM/45 ?几个人数几个人数,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. 输入两个数和一个运算符输入两个数和一个运算符( (加、减、乘、除加、减、乘、除) )，求其值。例如，求其值。例如, ,输入输入 3 3 和和 5 5 以及以及*,*,则输出则输出 1515 INPUTINPUT “输入一个数输入一个数:”:” TOTO A A INPUTINPUT “输入另一个数输入另一个数:”:” TOTO B B ACCEPTACCEPT “输入运算符输入运算符:”:” TOTO CHCH DODO CASECASE CASECASE CH=“+”CH=“+” ? ? “两数之和为两数之和为:”,A+B:”,A+B

40、CASECASE CH=”-“CH=”-“ ? ? “两数之差为两数之差为:”,A-B:”,A-B CASECASE CH=”*”CH=”*” ? ? “两数之积为两数之积为:”,A*B:”,A*B CASECASE CH=“/”CH=“/” ? ? “两数之商为两数之商为:”,A/B:”,A/B OTHERWISEOTHERWISE ? ? “运算符有错运算符有错!”!” ENDCASEENDCASE 2.2.输入一个正整数，分解出所有因子。如输入一个正整数，分解出所有因子。如 18=1*2*3*318=1*2*3*3，23=1*2323=1*23 INPUTINPUT 输入一个正整数输入一个正整数 TOTO N N ? N,=1N,=1 I=2I=2 DODO WHILEWHILE I=NI=N IFIF MOD(N