资源描述：
《常见vfp结构化程序设计》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、01、从键盘任意输入一个3位整数，若输入的数据不是一个3位整数则给出提示信息，编程实现3位整数的逆序输出。方法一SETTALKOFFCLEARINPUT"请输入一个三位数:"TOAIFA>100ANDA<1000A1=INT(A/100)A2=INT(MOD(A,100)/10)A3=MOD(A,10)?A1+10*A2+100*A3ELSEMESSAGEBOX("输入的不是三位数,请重新输入!")ENDIFSETTALKONRETURN方法二若要求输出的数必须是三位整数,则程序如下:SETTALKO
2、FFCLEARINPUT"请输入一个三位数:"TOAIFA<100ORA>=1000ORMOD(A,100)=0MESSAGEBOX("输入的不是三位数或重排后不是三位数,请重新输入!")ELSEA1=INT(A/100)A2=INT(MOD(A,100)/10)A3=MOD(A,10)?A1+10*A2+100*A3ENDIFSETTALKONRETURN方法三CLEARACCEPT"请输入一个三位整数："TOXN=LEN(X)S=""FORI=3TO1STEP-1S=S+SUBSTR(X,I,1)
3、ENDFOR?"逆序输出为:",SRETURN02、键盘输入N,求N!方法一SettalkoffClearP=1Input“请输入N:”tonFori=1tonp=p*iEndfor?“N!=”,pSettalkonReturn方法二clearinput"n="tons=1dowhilen>0s=s*nn=n-1enddo?"n!=",sreturn03、计算e的近似值。其公式为：e＝1+1/1!＋1/2!＋1/3!＋…＋1/N!，直到1/N!<0.000001为止。方法一SettalkoffClea
4、rE=1t=1i=1Dowhile.t.T=1Fork=1toiT=t*kEndfor(Nextk)i=i+1If1/t<0.000001ExitEndifE=e+1/tEnddo?”e=”,eSettalkonReturn方法二Settalkoffcleare=0&&累加和f=1&&存放阶乘k=1&&累积项dowhile1/f>=0.000001e=e+1/ff=f*kk=k+1enddo?"e=",eSettalkonreturn04、编程：求S=1-1/2+1/3-1/4+1/5-……-1/10
5、0。方法一settalkoffCLEARs=0i=0FORi=1TO100STEP1IFi%2=0s=s-1/iELSEs=s+1/iendifENDFOR?sSettalkonReturn方法二Settalkoffclears=0&&累加和赋除值f=1&&符号变量fori=1to100s=s+f*1/if=-1*f&&改变符号endfor?"s=",sSettalkonreturn05、用循环输出下列图形。****************方法一：SETTALKOFFCLEARr=1cc=10DOWH
6、ILEr<=4s=1DOWHILEs<=2*r-1@r,ccSAY“*”cc=cc+1s=s+1ENDDOcc=10-rr=r+1ENDDORETURN方法二：clearinput"请输入层数："tonfori=1ton&&控制行数??space(40-i)&&设置每一行起始列位forj=1to2*i-1&&控制每一行星号个数??"*"endfor?&&换行endfor06、输出乘法口诀表（下三角形的形式输出）。试用固定次数循环的嵌套格式编写一个打印九九乘法口诀表的程序。方法一：*用dowhile-e
7、nddo语句打印九九乘法表cleara=1dowhilea<=9b=1dowhileb<=ac=a*b??str(a,1)+”*”+str(b,1)+”=”+str(c,2)+“”b=b+1enddoa=a+1?enddo方法二：*用for—endfor语句打印九九乘法表SETTALKOFFCLEARFORY=1TO9FORX=1TOyZ=Y*X??STR(Y,1)+“*”+STR(X,1)+“=”+STR(Z,2)+“”ENDFOR?ENDFORSETTALKONRETURN07、输入一个数n，判断
8、其是否是素数。（提示：素数又称质数，只能够被1和它本身整除。如果要判断n是否是素数，就用2~n-1之间的数逐个去除，若全部都除不尽，则n为素数，否则不是素数。为减少除的次数，提高运行效率，除到即可。）SettalkoffClearP=1Input"请输入一个数N:"tonFori=2ton-1Ifn/i=int(n/i)P=0ExitEndifEndforIfp<>0?"数"+ltrim(str(n))+"是素数"Else?"数"+ltrim(str(n
