常见VFP结构化程序设计.doc_第1页
常见VFP结构化程序设计.doc_第2页
常见VFP结构化程序设计.doc_第3页
常见VFP结构化程序设计.doc_第4页
常见VFP结构化程序设计.doc_第5页
已阅读5页,还剩3页未读 继续免费阅读

VIP免费下载

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

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

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论