专升本VFP编题类型总结.doc

①求和类：求 N的阶乘。（N的值由键盘输入，应小于20 ）INPUT “求 N的阶乘。（N的值由键盘输入，应小于20 ）INPUT “输入N的值” TO NP=1FOR I=1 TO NP=P*IENDFOR?N,“!=”,PS=0K=1INPUT N= TO NFOR i=1 TO N K=K*i S=S+KEndfor?S2.求 SUM=0FOR I=1 TO 21 STEP 2SUM=SUM+I^3ENDFOR?”SUM=”,SUM3.有一分数序列，求前20项之和M=1N=2SUM=0FOR I=1 TO 20TERM=N/MSUM=SUM+TERMX=NN=M+NM=XTERM=N/MENDFOR?”SUM=”,SUM4.求Sn=a+aa+aaa+aaaa……，其中，a是一个数字，a的个数为n，a和n由键盘输入INPUT 输入 a 的值: TO AINPUT 输入项数n: TO NSN=0B=AFOR I=1 TO NSN=SN+AA=A*10+BENDFOR?数列之和为:,SN5. 求ex的台劳级数展开式的前n项之和(运行时输入x=2.0,n=4)INPUT “X=” TO XINPUT “N=” TO NSUM=1P=1FOR I=1 TO N-1P=P*IT=X^I/PSUM=SUM+TENDFOR?”SUM=”,SUM6.求1*2+3*4+5*6+……21*22SUM=0FOR I=1 TO 21 STEP 2 SUM=SUM+I*(I+1)ENDFOR?和为=,SUM (1892)7.通过键盘输入n，求下列级数的和:1-1/2+1/3-1/4+…+1/nINPUT TO NS=0F=1FOR I=1 TO NS=S+F*(-1)^(I-1)/IENDFOR?S8.计算连续自然数之和，并且显示和刚大于1000的最后一个自然数Sn=1+2+3+4+…+NSTORE 0 TO S,NDO WHILE S=1000 N=N+1 S=S+NENDDO? N9.求1^2+4^2+7^2+…一直加到超过1000为止，输出和数与项数。I=1S=0N=0DO WHILE S=1000S=S+I^2I=I+3N=N+1ENDDO?N?S10.求1-100之间所有奇数之和SUM=0FOR I=1 TO 100 STEP 2 SUM=SUM+IENDFOR? “SUM=”,SUM10.输出100到200之间所有能被5或7整除的整数，并输出他们的和。SUM=0FOR I=100 TO 200IF MOD(I,10)=5 AND MOD(I,7)=0 SUM=SUM+I ?IENDIFENDFOR?“SUM=”,SUM11.编程输出100~500之间能被7整除的奇数的个数。N=0FOR I=101 TO 500 STEP 2IF MOD(I,7)=0N=0FOR I=101 TO 500 STEP 2IF MOD(I,7)=0 N=N+1ENDIFENDFOR? “N=”,NFOR I=100 TO 500IF I%7=0 AND I%2=1 N=N+1ENDIFENDFOR? “N=”,N12. 求1/(1*2)+1/(3*4)+1/(5*6)+……+1/(99*100)sum=0for i=1 to 99 step 2sum=sum+1/(i*(i+1))endfor?sum=,sum13.求如下级数前N项之和(X和N的值由键盘输入)S=1INPUT TO XINPUT TO NFOR I=1 TO NS=S+X^I/IENDFOR?“SUM=”,S14.输出3-100之间的所有素数，并求其和。SUM=0FOR J=3 TO 100FLAG=.T. FOR I=2 TO SQRT(J) IF MOD(J,I)=0 FLAG=.F. EXIT ENDIF ENDFOR IF FLAG=.T. ?J SUM=SUM+J ENDIFENDFOR?奇数之和是:,SUM ②方程类1.完成下面分段函数的计算，程序运行时用户从键盘输入一个数值X，在屏幕上输出Y值。 INPUT 请输入X值： TO XIF X0 Y=X*XELSE IF X=0 Y=0 ELSE Y=-(X*X) ENDIFENDIF?Y2.现有一元2次方程 AX^2+BX+C=0 其中A B C 是整数且A不等于0 若存在实根，则输出“在实数范围内有解” 若不存在实根 则输出“在实数范围内无解”/求解INPUT TO AINPUT TO BINPUT TO C