程序设计典型例题及答.docVIP

写一程序，显示输出给定的字符串表达式的倒置字符串。 SET TALK OFF CLEAR ACCEPT “输入指定的字符串：“ TO X C=SPACE（0） L=LEN（X） FOR I=1 TO L R=SUBSTR（X，I，1） C=R+C ENDFOR ？“指定的字符串：”+X+“倒置后变为”+C SET TALK ON 编制程序，计算满足不等式 1+2x+3x2+4x3+?+（n+1）xnN值，其中X是大于等于1的实数，其值由键盘输入。“X=” TO X STORE 1 TO S,N P=2 DO WHILE S1000 S=S+P*X^N P=P+1 N=N+1 ENDDO ?N-1 SET TALK ON 编写一个自定义函数，返回给定的正整型数值表达式的值中包含指定数码的个数（包含数码0的个数为3） FUNC NCT PARA X，Y S=0 M=X DO WHILE .T. N=MOD(M,10) IF N=Y S=S+1 ENDIF M=INT(M/10) IF M=0 EXIT ENDIF ENDDO RETURN S ENDFUNC 从键盘输入N个无序数（N由键盘输入确定），去掉一个最大数，去掉一个最小数，然后求平均数。 SET TALK OFF CLEAR INPUT “N=” TO N I=2 INPUT “A=” TO A STORE A TO X,Y S=A P=N-2 DO WHILE I=N INPUT “B=” TO B S=S+B IF XB X=B ENDIF IF YB Y=B ENDIF I=I+1 ENDDO R=S-X-Y ?R/P SET TALK ON 编写一个自定义函数，求N！的末尾有几个连续的数码0，要求返回正整数。 PARA M P=1 FOR I=1 TO M P=P*I ENDFOR S=0 DO WHILE P0 R=MOD(P,10) IF R=0 S=S+1 ELSE EXIT ENDIF P=INT(P/10) ENDDO RETURN S 求2~100中质数的个数及其和。（质数：只能被1和本身整除的数） SET TALK OFF CLEAR SN=0 ST=0 N=3 ?质数为： ? DO WHILE N100 I=2 DO WHILE IN-1 IF INT(N/I)=N/I EXIT ENDIF I=I+1 ENDDO IF I=N-1 SN=SN+1 ST=ST+N ??n ENDIF N=N+1 ENDDO ?SN=,SN ?ST=,ST SET TALK ON 7、利用参数传递和过程文件编写一个程序，求下列多项式的值，要求计算到20项。 ***.求e^x,到20项。*** INPUT 请输入x= to x S=1 STORE 0 TO A1,A2 FOR I=1 TO 20 DO JC WITH A1,I DO MC WITH A2,I S=S+A2/A1 ENDFOR ?E^+str(x,5)+=,s PROC JC PARA P,R P=1 FOR J=1 TO R P=P*J ENDFOR PROC MC PARA P,R P=1 FOR J=1 TO R P=P*X ENDFOR 8、求100~999之间水仙花数。 （水仙花数：指一个三位数，其各位数字立方之和等于该数本身。如：153=13+53+33） SET TALK OFF CLEAR FOR N=100 TO 999 DECLARE A(3) I=1 M=N DO WHILE I=3 A(I)=MOD(M,10) M=INT(M/10) I=I+1 ENDDO IF N=A(1)^3+A(2)^3+A(3)^3 ??N ENDIF ENDFOR SET TALK ON 9、编程求S=之值。（其中，n,m为从键盘输入的正整数且nm，k!表示1×2×3×……×k，k为正整数） SET TALK OFF CLEAR INPUT “输入M的值：” TO M INPUT ”输入N的值：” TO N Y=JC(N)/(JC(M)*JC(N-M)) ?”Y=”，Y RETURN SET TALK ON