常见VFP结构化程序设计

1、01、 从键盘任意输入一个3 位整数，若输入的数据不是一个3 位整数则给出提示信息，编 程实现 3 位整数的逆序输出。方法一SET TALK OFFCLEARINPUT " 请输入一个三位数:" TO AIF A>100 AND A<1000A1=INT(A/100)A2=INT(MOD(A,100)/10)A3=MOD(A,10)?A1+10*A2+100*A3ELSEMESSAGEBOX("入的不是三位数,请重新输入！”)ENDIFSET TALK ONRETURN方法二若要求输出的数必须是三位整数, 则程序如下:SET TALK OFFCLEAR

2、INPUT " 请输入一个三位数:" TO AIF A<100 OR A>=1000 OR MOD(A,100)=0MESSAGEBOX(W入的不是三位数或重排后不是三位数,请重新输入!")ELSEA1=INT(A/100)A2=INT(MOD(A,100)/10)A3=MOD(A,10)?A1+10*A2+100*A3ENDIFSET TALK ONRETURN方法三CLEAR" TO XACCEPT请输入一个三位整数:N=LEN(X)S=""FOR I=3 TO 1 STEP -1S=S+SUBSTR(X,I,1)EN

3、DFOR?"逆序输出为:",SRETURN02、 键盘输入N, 求 N!方法一Set talk offClearP=1Input“ 请输入N:” to nFor i=1 to n p=p*iEndfor? “N!= ”,pSet talk onReturn方法二 clearinput"n="to ns=1do while n>0s=s*nn=n-1enddo?"n!=",s return03、计算 e 的近似值。其公式为：e=1+1/1! +1/2! +1/3! +, + 1/N!,直到 1/N!<0.000001 为止。

4、方法一Set talk offClearE=1t=1i=1Do while .t.T=1For k=1 to iT=t*kEndfor(Next k) i=i+1If 1/t<0.000001ExitEndifE=e+1/tEnddo? ” e=,”eSet talk onReturn方法二Set talk offcleare=0&&累加和f=1&&存放阶乘k=1&&累积项do while 1/f>=0.000001e=e+1/ff=f*kk=k+1enddo?"e=",eSet talk onreturn-1/1

5、00 。04、编程：求S=1-1/2+1/3-1/4+1/5-方法一set talk offCLEARs=0i=0FOR i=1 TO 100 STEP 1IF i%2=0s=s-1/iELSEs=s+1/iendifENDFOR?sSet talk onReturn方法二Set talk offclears=0&& 累加和赋除值f=1&& 符号变量for i=1 to 100s=s+f*1/if=-1*f&& 改变符号endfor?"s=",sSet talk onreturn05、 用循环输出下列图形。*方法一：SET T

6、ALK OFFCLEARr=1cc=10DO WHILE r<=4s=1DO WHILE s<=2*r-1 r,cc SAY “ * cc=cc+1 s=s+1ENDDO cc=10-r r=r+1clearinput "请输入层数：for i=1 to n"to n&& 控制行数&& 设置每一行起始列位&& 控制每一行星号个数ENDDO RETURN 方法二：?space(40-i) for j=1 to 2*i-1 ?"*"endfor&& 换行endfor06、 输出乘法口

7、诀表（下三角形的形式输出） 试用固定次数循环的嵌套格式编写一个打印九九乘法口诀表的程序。方法一：* 用 do while-enddo 语句打印九九乘法表 cleara=1do while a<=9b=1do while b<=a c=a*b? str(a,1)+”*”+str(b,1)+”=”+str(c,2)+ “ ”b=b+1enddoa=a+1?enddo 方法二：* 用 for endfor 语句打印九九乘法表SET TALK OFFCLEARFOR Y=1 TO 9FOR X=1 TO yZ= Y * X?STR(Y,1)+ “ *” +STR(X,1)+ “ =” +S

8、TR(Z,2)+ “ ”ENDFOR ?ENDFORSET TALK ONRETURN07、 输入一个数n， 判断其是否是素数。(提示： 素数又称质数，只能够被1 和它本身整除。如果要判断n 是否是素数，就用2n-1 之间的数逐个去除，若全部都除不尽，则n 为素数，否则不是素数。为减少除的次数，提高运行效率，除到即可。 )Set talk offClearP=1Input" 请输入一个数N:" to nFor i=2 to n-1If n/i=int(n/i)P=0ExitEndifEndforIf p<>0?"数 "+ltrim(str(n

9、)+" 是素数 "Else?"数 "+ltrim(str(n)+" 不是素数"EndifSet talk onReturn输入 10 个数，让它们按降序的顺序输出。(提示：使用一维数组)Set talk offCleardime s(10)for i=1 to 10input ' 请输入第'+STR(i)+' 个数： ' to s(i)endforfor i=1 to 9for j=i+1 to 10 if s(i)<s(j)a=s(i)s(i)=s(j) s(j)=a endifendforen

10、dforFOR i=1 TO 10?s(i)endforSet talk onReturn08、 从键盘输入任意两个数，然后按从大到小顺序输出。clearinput “X= ” to Xinput “X= ” to yif X>YT=XX=YY=TEndif? “X=”,X? “Y=”,Y09、编程求和 S=1+2+3+- +100。SET TALK OFFCLEARSTORE 0 TO K,SDO WHILE k<=100S= K +SK = K +1ENDDO ?”累加和S=” ,SSET TALK ONRETURN10、 从键盘输入10 个数 ,编程找出其中的最大值和最小值s

11、et talk offclearinput “请从键盘输入一个数:” to astore a to max, minfor I=2 to 10input “请从键盘输入一个数:” to aif max<amax=aendifif min>amin=aendifendfor?”最大值为:”, max?”最小值为:”,minset talk onreturn11、 求 1000 以内的 “水仙花数”。所谓“水仙花数”是指一个 3 位数，其各位数字的立方和等于该数本身。例如，153=13+53+33，故153 是水仙花数。方法一：Clear? “打印 1000 以内的水仙花数for x=

12、100 to 999&& 取出个位数&& 取出十位数&& 取出百位数x1=x%10 x2=int(x/10)%10 x3=int(x/100)if x=x1A3+x2A3+x3A3?xendifendfor方法二：set talk offcleafor I=1 to 9for j=0 to 9for k=0 to 9if IA3+jA3+kA3=100*I+10*j+k? 100*I+10*j+kendifendforendfor endfor return12、 求出 0300 之间能被3 整除的数的和?SET TALK OFFI=1S=0DO WHILE I<=300IF mod(I,3)=0S=S+IENDIFI=i+1ENDDO?SRETURN13