VFP编程题类型总结

合集下载
相关主题
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

V F P编程题类型总结 Revised by Liu Jing on January 12, 2021

编程题类型总结(VFP)

①求和类:

1. 计算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.求 33333217531+⋅⋅⋅⋅⋅⋅++++ 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.求e x的台劳级数展开式的前n项之和(运行时输入x=,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 (1892)

7.通过键盘输入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整除的奇数的个数。

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

②方程类

1.完成下面分段函数的计算,程序运行时用户从键盘输入一个数值X,在屏幕上

输出Y值。

INPUT "请输入X值:" TO X

IF X>0

Y=X*X

ELSE

IF X=0

Y=0

ELSE

Y=-(X*X)

ENDIF

ENDIF

Y

相关文档
最新文档