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

0101、从键盘任意输入一个 3 位整数，若输入的数据不是一个 3 位整数则给出提示信息， 编程实现 3 位整数的逆序输出。 方法一 SET TALK OFF CLEAR INPUT “请输入一个三位数:“ TO A IF A100 AND 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 0202、键盘输入 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 input“n=“to n s=1 do while n0 s=s*n n=n-1 enddo ?“n!=“,s return 0303、计算 e 的近似值。其公式为：e1+1/1!1/2!1/3!1/N!，直到 1/N!=0.000001 e=e+1/f f=f*k k=k+1 enddo ?“e=“,e Set talk on return 0404、编程：求 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 0505、用循环输出下列图形。 * * * * * * * * * * * * * * * * 方法一： SET TALK OFF CLEAR r=1 cc=10 DO WHILE r0 ?“数“+ltrim(str(n)+“是素数“ Else ?“数“+ltrim(str(n)+“不是素数“ Endif Set talk on Return 输入 10 个数，让它们按降序的顺序输出。 （提示：使用一维数组） Set talk off Clear dime s(10) for i=1 to 10 input 请输入第+STR(i)+个数： to s(i) endfor for i=1 to 9 for j=i+1 to 10 if s(i)Y T=X X=Y Y=T Endif ? “X=”,X ? “Y=”,Y 09、编程求和 S=1+2+3+100。 SET TALK OFF CLEAR STORE 0 TO K,S DO WHILE ka min=a endif endfor ?”最大值为:”, max ?”最小值为:”,min set talk on return 11、求 1000 以内的 “水仙花数”。所谓“水仙花数”是指一个 3 位数，其各位数字的立 方和等于该数本身。例如，153=13+53+33，故 153 是水仙花数。 方法一： Clear ? “打印 1000 以内的水仙花数:” for x=100 to 999 x1=x%10 &取出个位数 x2=int(x/10)%10 &取出十位数 x3=int(x/100) &取出百位数 if x=x13+x23+x33 ?x endif endfor 方法二： set talk off clea for I=1 to 9 for j=0 to 9 for k=0 to 9 if I3+j3+k3=100*I+10*j+k ? 100*I+10*j+k endif endfor endfor endfor return 12、求出 0300 之间能被 3 整除的数的和? SET TALK OFF I=1 S=0 DO WHILE I=300 IF mod(I,3)=0 S=S+I ENDIF I=i+1 ENDDO ?S RETURN 13、求 1 到 100 中偶数的和 AA=0 FOR II=2 TO 100 STEP 2 AA=AA+II ENDFOR ? AA 屏幕显示为：2550 14、编写程序打印如下的图形 * * * * * * * SE