《VFP编程题类型总结》由会员分享，可在线阅读，更多相关《VFP编程题类型总结（19页珍藏版）》请在金锄头文库上搜索。
1、-编程题类型总结(VFP)求和类：求 N的阶乘。N的值由键盘输入，应小于20 INPUT “输入N的值 TO NP=1FOR I=1 TO NP=P*IENDFOR?N,“!=,P1. 计算S=1！+2！+3！+4！+。+N! S=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+I3ENDFOR?SUM=,SUM3.有一分数序列，求前20项之和M=1N=2SUM=0FOR I=1 TO 20TERM=N/MSUM=SUM+TERM*=NN=M+NM=*TERM=N/MEN
2、DFOR?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. 求e*的台劳级数展开式的前n项之和(运行时输入*=2.0,n=4)INPUT “*= TO *INPUT “N= TO NSUM=1P=1FOR I=1 TO N-1P=P*IT=*I/PSUM=SUM+TENDFOR?SUM=,SUM6.求1*2+3*4+5*6+21*22SUM=0FOR I=1 TO
3、 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的最后一个自然数l Sn=1+2+3+4+NSTORE 0 TO S,NDO WHILE S=1000 N=N+1 S=S+NENDDO? N9.求12+42+72+一直加到超过1000为止，输出和数与项数。I=1S=0N=0DO WHILE S0 Y=*ELSE IF *=0 Y
4、=0 ELSE Y=-(*) ENDIFENDIF?Y2.现有一元2次方程 A*2+B*+C=0 其中A B C 是整数且A不等于0 假设存在实根，则输出“在实数围有解 假设不存在实根 则输出“在实数围无解/求解INPUT TO AINPUT TO BINPUT TO CD=B*B-4*A*CIF D=0?在实数围有解ELSE?在实数围无解ENDIF/INPUT TO AINPUT TO BINPUT TO CD=B*B-4*A*CIF D0*1=(-B+SQRT(D)/(2*A)*2=(-B-SQRT(D)/(2*A)?*1?*2ELSE IF D0 *=-B/(2*A) ?*1=*2=,*
5、 ELSE ?无解ENDIFENDIF3.输入一个*的值，求Y的值。Y=INPUT TO *DO CASE CASE *1 Y=* CASE *=10 Y=3*-11ENDCASE ?Y数组类1. 输入10个数，输出其中小于平均值S的数。DIME A(10)S=0FOR I=1 TO 10INPUT TO A(I)S=S+A(I)ENDFORS=S/10FOR I=1 TO 10IF A(I)BIGBIG=A(I)ENDIFIF A(I)BIGBIG=A(I)BP=IENDIFIF A(I)10 ? NOENDIF5.已有按从小到大的顺序排列的10 个数，现输入一个数，要求插入到数列中。插入后
6、数列仍然按从小到大顺序排列。DIMENSION A(11)FOR I=1 TO 10INPUT “递增输入10个整数 TO A(I)ENDFORINPUT “任意输入一个整数 TO *FOR I=10 TO 1 STEP -1 IF *A(I) IF I=1 A(I+1)=A(I) A(I)=* ELSE A(I+1)=A(I) ENDIF ELSE A(I+1)=* E*IT ENDIFENDFORFOR I=1 TO 11?A(I)ENDFOR?6. 数组A中已存放了10个由小到大排列的数。现从键盘输入一个数*，要求删除数组中与其一样的数，并将后续的数依次前移，最后输出剩余的数。7分考虑到
7、有重复数的程序如下：DIME A(10)FOR I=1 TO 10 INPUT “按递增输入10个数 TO A(I)ENDFORINPUT “输入待删除的数 TO *I=1J=1N=0DO WHILE I=10 IF A(I)A(J)TEMP=A(I)A(I)=A(J)A(J)=TEMPENDIFENDFORENDFORFOR I=1 TO 10?A(I)ENDFOR 以上是一维数组数组中只有一个下标程序举例。在VFP中，还可以建立二维数组。定义方法是：DIME A(2,3)第一维代表行，第二维代表列，这样就在存中开辟了6个连续的存储单元，数组元素的名称分别为：A(1,1) A(1,2) A(1,3)A(2,1) A(2,2) A(2,3) 二维数组的元素赋初值及其处理通常要用
