常见VFP结构化程序设计

《常见VFP结构化程序设计》由会员分享，可在线阅读，更多相关《常见VFP结构化程序设计（8页珍藏版）》请在装配图网上搜索。

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

2、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*A3ENDIFSET TALK ONRETURN方法三CLEARACCEPT请输入一个三位整数： TO XN=LEN(X)S=FOR I=3 TO 1 STEP -1 S=S+SUBSTR(X,I,1)ENDFOR?逆序输出为:,SRETURN02、键盘输入N,求N!方法一Set talk offClearP=1Input “请输入N:” to nFor i

3、=1 to np=p*iEndfor? “N!=”,pSet talk onReturn方法二clearinputn=to ns=1do while n0 s=s*n n=n-1 enddo?n!=,sreturn03、计算e的近似值。其公式为：e1+1/1!1/2!1/3!1/N!，直到1/N!0.000001为止。方法一Set talk off ClearE=1t=1i=1Do while .t. T=1 For k=1 to i T=t*kEndfor(Next k) i=i+1 If 1/t=0.000001 e=e+1/f f=f*k k=k+1 enddo?e=,eSet talk

4、 onreturn04、编程：求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 ?sSet talk onReturn方法二Set talk offclears=0 &累加和赋除值f=1 &符号变量for i=1 to 100 s=s+f*1/i f=-1*f &改变符号endfor?s=,sSet talk onreturn05、用循环输出下列图形。 * * * * * * * * * * * * *

5、 * * 方法一：SET TALK OFFCLEARr=1cc=10DO WHILE r=4s=1DO WHILE s=2*r-1r,cc SAY “*”cc=cc+1s=s+1ENDDOcc=10-rr=r+1ENDDORETURN方法二：clearinput 请输入层数：to nfor i=1 to n &控制行数 ?space(40-i) &设置每一行起始列位 for j=1 to 2*i-1 &控制每一行星号个数 ?* endfor ? &换行endfor06、输出乘法口诀表（下三角形的形式输出）。试用固定次数循环的嵌套格式编写一个打印九九乘法口诀表的程序。方法一：*用do while

6、-enddo语句打印九九乘法表cleara=1do while a=9 b=1 do while b=ac=a*b? str(a,1)+”*”+str(b,1)+”=”+str(c,2)+ “ ”b=b+1 enddoa=a+1?enddo方法二：*用forendfor语句打印九九乘法表SET TALK OFFCLEARFOR Y=1 TO 9FOR X=1 TO y Z= Y * X ?STR(Y,1)+“*”+STR(X,1)+“=”+STR(Z,2)+“ ” ENDFOR ?ENDFOR SET TALK ONRETURN07、输入一个数n，判断其是否是素数。（提示：素数又称质数，只能够

7、被1和它本身整除。如果要判断n是否是素数，就用2n-1之间的数逐个去除，若全部都除不尽，则n为素数，否则不是素数。为减少除的次数，提高运行效率，除到 即可。）Set talk offClearP=1Input 请输入一个数N: to nFor i=2 to n-1 If n/i=int(n/i)P=0Exit EndifEndforIf p0 ?数+ltrim(str(n)+是素数Else ?数+ltrim(str(n)+不是素数EndifSet talk onReturn输入10个数，让它们按降序的顺序输出。（提示：使用一维数组）Set talk offCleardime s(10) for

8、 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)YT=XX=YY=TEndif? “X=”,X? “Y=”,Y09、编程求和S=1+2+3+100。 SET TALK OFF CLEAR STORE 0 TO K,S DO WHILE k=100 S= K +S K = K +1 ENDDO ?”累加和S=”,S SET TALK ON RETURN10、从键盘输入10个数,编程找出其中的最大值和最小值set talk offclearinput “请从键盘输入一个数:” t

9、o astore a to max, minfor I=2 to 10input “请从键盘输入一个数:” to aif maxamin=aendifendfor?”最大值为:”, max?”最小值为:”,minset talk onreturn11、求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) &取出百

10、位数 if x=x13+x23+x33?x endifendfor方法二：set talk offcleafor I=1 to 9 for j=0 to 9for k=0 to 9 if I3+j3+k3=100*I+10*j+k ? 100*I+10*j+k endifendfor endforendforreturn12、求出0300之间能被3整除的数的和?SET TALK OFFI=1S=0DO WHILE I=300 IF mod(I,3)=0 S=S+I ENDIF I=i+1ENDDO?SRETURN13、求1到100中偶数的和AA=0FOR II=2 TO 100 STEP 2AA=AA+IIENDFOR? AA屏幕显示为：2550 14、编写程序打印如下的图形 * * * * * * *SET TALK OFF CLEAR A=1 DO WHILE A=7 B=1 DO WHILE B=8 A,B+A SAY “*” B=B+1 ENDDO A=A+1 ENDDO SET TALK ON RETURN