《安徽专升本计算机编程总结.docVIP

①求和类： 计算S=1！+2！+3！+4！+。。。。。。+N! S=0 K=1 INPUT N= TO N FOR i=1 TO N K=K*i S=S+K Endfor ?S 2.求 SUM=0 FOR I=1 TO 21 STEP 2 SUM=SUM+I^3 ENDFOR ?”SUM=”,SUM 3.有一分数序列，求前20项之和 M=1 N=2 SUM=0 FOR I=1 TO 20 TERM=N/M SUM=SUM+TERM X=N N=M+N M=X TERM=N/M ENDFOR ?”SUM=”,SUM 4.求Sn=a+aa+aaa+aaaa……，其中，a是一个数字，a的个数为n，a和n由键盘输入 INPUT 输入 a 的值: TO A INPUT 输入项数n: TO N SN=0 B=A FOR I=1 TO N SN=SN+A A=A*10+B ENDFOR ?数列之和为:,SN 5. 求ex的台劳级数展开式的前n项之和(运行时输入x=2.0,n=4) INPUT “X=” TO X INPUT “N=” TO N SUM=1 P=1 FOR I=1 TO N-1 P=P*I T=X^I/P SUM=SUM+T ENDFOR ?”SUM=”,SUM 6.求1*2+3*4+5*6+……21*22 SUM=0 FOR I=1 TO 21 STEP 2 SUM=SUM+I*(I+1) ENDFOR ?和为=,SUM n，求下列级数的 和: ?1-1/2+1/3-1/4+…+1/n INPUT TO N S=0 F=1 FOR I=1 TO N S=S+F*(-1)^(I-1)/I ENDFOR ?S 8.计算连续自然数之和，并且显示和刚大于1000的最后一个自然数 Sn=1+2+3+4+…+N STORE 0 TO S,N DO WHILE S=1000 N=N+1 S=S+N ENDDO ? N 9.求1^2+4^2+7^2+…一直加到超过1000为止，输出和数与项数。 I=1 S=0 N=0 DO WHILE S=1000 S=S+I^2 I=I+3 N=N+1 ENDDO ?N ?S 10.求1-100之间所有奇数之和 SUM=0 FOR I=1 TO 100 STEP 2 SUM=SUM+I ENDFOR ? “SUM=”,SUM 10.输出100到200之间所有能被5或7整除的整数，并输出他们的和。 SUM=0 FOR I=100 TO 200 IF MOD(I,10)=5 AND MOD(I,7)=0 SUM=SUM+I ?I ENDIF ENDFOR ?“SUM=”,SUM 11.编程输出100~500之间能被7整除的奇数的个数。 N=0 FOR I=100 TO 500 IF I%7=0 AND I%2=1 N=N+1 ENDIF ENDFOR ? “N=”,N 12. 求1/(1*2)+1/(3*4)+1/(5*6)+……+1/(99*100) sum=0 for i=1 to 99 step 2 sum=sum+1/(i*(i+1)) endfor ?sum=,sum 13. 求如下级数前N项之和(X和N的值由键盘输入) S=1 INPUT TO X INPUT TO N FOR I=1 TO N S=S+X^I/I ENDFOR ?“SUM=”,S 14.输出3-100之间的所有素数，并求其和。 SUM=0 FOR J=3 TO 100 FLAG=.T. FOR I=2 TO SQRT(J) IF MOD(J,I)=0 FLAG=.F. EXIT ENDIF ENDFOR IF FLAG=.T. ?J SUM=SUM+J ENDIF ENDFOR ?奇数之和是:,SUM INPUT 请输入X值： TO X IF X0 Y=X*X ELSE IF X=0 Y=0 ELSE Y=-(X*X) ENDIF ENDIF ?Y 2.现有一元2次方程 AX^2+BX+C=0 其中A B C 是整数且A不等于0 若存在实根，则输出“在实数范围内有解” 若不存在实根 则输出“在实数范围内无解”/求解 INPUT TO A INPUT TO B INPUT TO C D=B*B-4*A*C IF D=0 ?在实数范围内有解 ELSE ?在实数范围内无解 ENDIFINPUT TO A INPUT TO B I