VFP编程题类型总结
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 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