vfp编程题类型总结

《vfp编程题类型总结》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、.编程题类型总结(VFP)①求和类：求N的阶乘。（N的值由键盘输入，应小于20）INPUT“输入N的值”TONP=1FORI=1TONP=P*IENDFOR?N,“!=”,P1.计算S=1！+2！+3！+4！+。。。。。。+N!S=0K=1INPUT"N="TONFORi=1TONK=K*iS=S+KEndfor?S2.求SUM=0FORI=1TO21STEP2SUM=SUM+I^3ENDFOR?”SUM=”,SUM3.有一分数序列，求前20项之和M=1N=2SUM=0FORI=1TO20TERM=N/MSUM=SUM+TERMX=

2、NN=M+NM=XTERM=N/MENDFOR?”SUM=”,SUM4.求Sn=a+aa+aaa+aaaa……，其中，a是一个数字，a的个数为n，a和n由键盘输入INPUT"输入a的值:"TOAINPUT"输入项数n:"TONSN=0B=AFORI=1TONSN=SN+A...A=A*10+BENDFOR?"数列之和为:",SN5.求ex的台劳级数展开式的前n项之和(运行时输入x=2.0,n=4)INPUT“X=”TOXINPUT“N=”TONSUM=1P=1FORI=1TON-1P=P*IT=X^I/PSUM=SUM+TENDFO

3、R?”SUM=”,SUM6.求1*2+3*4+5*6+……21*22SUM=0FORI=1TO21STEP2SUM=SUM+I*(I+1)ENDFOR?"和为=",SUM(1892)7.通过键盘输入n，求下列级数的和:⋅1-1/2+1/3-1/4+…+1/nINPUTTONS=0F=1FORI=1TONS=S+F*(-1)^(I-1)/IENDFOR?S8.计算连续自然数之和，并且显示和刚大于1000的最后一个自然数lSn=1+2+3+4+…+NSTORE0TOS,NDOWHILES<=1000N=N+1S=S+NENDDO?N9.

4、求1^2+4^2+7^2+…一直加到超过1000为止，输出和数与项数。...I=1S=0N=0DOWHILES<=1000S=S+I^2I=I+3N=N+1ENDDO?N?S10.求1-100之间所有奇数之和SUM=0FORI=1TO100STEP2SUM=SUM+IENDFOR?“SUM=”,SUM10.输出100到200之间所有能被5或7整除的整数，并输出他们的和。SUM=0FORI=100TO200IFMOD(I,10)=5ANDMOD(I,7)=0SUM=SUM+I?IENDIFENDFOR?“SUM=”,SUM11.编程输

5、出100~500之间能被7整除的奇数的个数。N=0FORI=101TO500STEP2IFMOD(I,7)=0N=N+1ENDIFENDFOR?“N=”,NN=0FORI=100TO500IFI%7=0ANDI%2=1N=N+1ENDIFENDFOR?“N=”,N12.求1/(1*2)+1/(3*4)+1/(5*6)+……+1/(99*100)SUM=0FORI=1TO99STEP2SUM=SUM+1/(I*(I+1))ENDFOR?"SUM=",SUM13.求如下级数前N项之和(X和N的值由键盘输入)...S=1INPUTTOXI

6、NPUTTONFORI=1TONS=S+X^I/IENDFOR?“SUM=”,S14.输出3-100之间的所有素数，并求其和。SUM=0FORJ=3TO100FLAG=.T.FORI=2TOSQRT(J)IFMOD(J,I)=0FLAG=.F.EXITENDIFENDFORIFFLAG=.T.?JSUM=SUM+JENDIFENDFOR?"奇数之和是:",SUM②方程类1.完成下面分段函数的计算，程序运行时用户从键盘输入一个数值X，在屏幕上输出Y值。INPUT"请输入X值："TOXIFX>0Y=X*XELSEIFX=0Y=0ELSE

7、...Y=-(X*X)ENDIFENDIF?Y2.现有一元2次方程AX^2+BX+C=0其中ABC是整数且A不等于0若存在实根，则输出“在实数范围内有解”若不存在实根则输出“在实数范围内无解”/求解INPUTTOAINPUTTOBINPUTTOCD=B*B-4*A*CIFD>=0?"在实数范围内有解"ELSE?"在实数范围内无解"ENDIF/INPUTTOAINPUTTOBINPUTTOCD=B*B-4*A*CIFD>0X1=(-B+SQRT(D))/(2*A)X2=(-B-SQRT(D))/(2*A)?X1?X2ELSEIFD>0

8、X=-B/(2*A)?"X1=X2=",XELSE?"无解"ENDIFENDIF...3.输入一个X的值，求Y的值。Y=INPUTTOXDOCASECASEX<1Y=XCASEX<10Y=2*X-1CASEX>=10Y=3*X-11E