常见VFP结构化程序设计.docVIP

01、从键盘任意输入一个3位整数，若输入的数据不是一个3位整数则给出提示信息，编程实现3位整数的逆序输出。 方法一 SET TALK OFF CLEAR INPUT 请输入一个三位数: TO A If a100 and a1000 A1=int(a/100) A2=int(mod(a,100)/10) A3=mod(a,10) ?a1+10*a2+100*a3 Else Messagebox(输入的不是三位数,请重新输入!) ENDIF SET TALK ON RETURN 方法二 若要求输出的数必须是三位整数,则程序如下: SET TALK OFF CLEAR INPUT 请输入一个三位数: TO A If a100 or a=1000 or mod(a,100)=0 Messagebox(输入的不是三位数或重排后不是三位数,请重新输入!) Else A1=int(a/100) A2=int(mod(a,100)/10) A3=mod(a,10) ?a1+10*a2+100*a3 ENDIF SET TALK ON RETURN 方法三 clear accept请输入一个三位整数： to x n=len(x) s= for i=3 to 1 step -1 s=s+substr(x,i,1) endfor ?逆序输出为:,s return 02、键盘输入n,求N! 方法一 Set talk off Clear P=1 Input “请输入N:” to n For i=1 to n p=p*i Endfor ? “N!=”,p Set talk on Return 方法二 clear inputn=to n s=1 do while n0 s=s*n n=n-1 enddo ?n!=,s return 03、计算e的近似值。其公式为：e＝1+1/1!＋1/2!＋1/3!＋…＋1/n!，直到1/n!0.000001为止。 方法一 Set talk off Clear E=1 t=1 i=1 Do while .t. T=1 For k=1 to i T=t*k Endfor(Next k) i=i+1 If 1/t0.000001 Exit Endif E=e+1/t Enddo ? ”e=”,e Set talk on Return 方法二 Set talk off clear e=0 累加和 f=1 存放阶乘 k=1 累积项 do while 1/f=0.000001 e=e+1/f f=f*k k=k+1 enddo ?e=,e Set talk on return 04、编程：求S=1-1/2+1/3-1/4+1/5-……-1/100。 方法一 set talk off CLEAR s=0 i=0 FOR i=1 TO 100 STEP 1  IF i%2=0  s=s-1/i  ELSE  s=s+1/i  endif ENDFOR ?s Set talk on Return 方法二 Set talk off clear s=0 累加和赋除值 f=1 符号变量 for i=1 to 100 s=s+f*1/i f=-1*f 改变符号 endfor ?s=,s Set talk on return 05、用循环输出下列图形。 * * * * * * * * * * * * * * * * 方法一： SET TALK OFF CLEAR r=1 cc=10 DO WHILE r=4 s=1 DO WHILE s=2*r-1 @r,cc SAY “*” cc=cc+1 s=s+1 ENDDO cc=10-r r=r+1 ENDDO RETURN 方法二： clear input 请输入层数：to n for i=1 to n 控制行数 ??space(40-i) 设置每一行起始列位 for j=1 to 2*i-1 控制每一行星号个数 ??* endfor ? 换行 endfor 06、输出乘法口诀表（下三角形的形式输出）。 试用固