VFP第6部分(循环结构)

VFP第6部分(循环结构)

ID:43708693

大小:170.50 KB

页数:21页

时间:2019-10-13

VFP第6部分(循环结构)_第1页
VFP第6部分(循环结构)_第2页
VFP第6部分(循环结构)_第3页
VFP第6部分(循环结构)_第4页
VFP第6部分(循环结构)_第5页
资源描述:

《VFP第6部分(循环结构)》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、教学辅助课件——VisualFoxpro6.0程序设计重庆工商大学计算机学院李盛瑜(电话:66544735;EMAIL:lsy@ctbu.edu.cn)计算机技术基础循环结构则能够使某些语句或程序段重复执行若干次。如果某些语句或程序段需要在一个固定的位置上重复操作,使用循环是最好的选择。循环结构常见的循环结构有:条件循环步长循环扫描循环1)条件循环(dowhile循环)格式:流程图:条件语句序列enddo的下一条命令NY循环体第一步,计算0+1;第二步,计算(0+1)+2;第三步,计算(0+1+2)+3;………第i步,计算(0+1+…+i-1)+i;…

2、…….第100步,计算(0+1+…+99)+100;递归算法例1:计算s=1+2+3+…+100算法:定义s、i存放累计的和以及循环次数条件i<=100s=s+ii=i+1输出结果s递推公式i<=100s=s+ii=i+1s=0,i=1开始结束输出sYNcleas=0i=1dowhilei<=100s=s+ii=i+1enddo?"1+2+3+...+100=",sretu循环体改变条件取值的语句说明:①循环结构从dowhile开始,到enddo结束,两者必须成对出现;在enddo后面可以书写注释。②循环是否继续取决于条件的当前取值,一般情况下循环体中

3、应含有改变条件取值的命令或语句,否则将造成死循环。③循环结构能自身嵌套(多重循环),还能与选择结构的各种形式嵌套。2)步长循环(for…endfor计数循环)格式:例2:求n的阶乘例3:计算s=1+2+3+…+100cleas=0fori=1to100s=s+ienddo?"1+2+3+...+100=",sreturn说明:①步长可正可负,缺省为1。②循环体中不应包含改变循环变量值的命令,否则循环次数将随之改变。③如果循环可以通过计数来控制,则本循环比条件循环更为方便。当循环步长循环inpu“请输入终值:”toninpu“请输入步长:”toki=1f

4、ori=1tonstepkdowhili<=n<命令序列><命令序列>endf

5、nexti=i+kenddcleara=“ABCDEFG”fork=1to8step2?subs(a,9-k,1)nextretu例4:写出本程序的执行结果cleara=“ABCDEFG”k=1dowhilek<9?subs(a,9-k,1)k=k+2enddretu结果:FDB让程序在大脑中运行cleas=0fori=0to1000step2s=s+inext?”s=”,sreturn例5:求0~1000的偶数和clearstore0toi,sdowhilei<=1000

6、s=s+ii=i+2enddo?”s=”,sreturn奇数和怎么求呢?循环辅助语句loop:通常又称为中途复始语句或短路语句。exit:通常又称为中途退出语句或循环终止语句。流程图:条件语句序列LOOPEXITenddo的下一条命令NY例1:计算100以内的奇数和s=0i=0dowhile.t.i=i+1ifi>100exitendififi%2=0loopelses=s+iendifenddo?"100以内的奇数和为:",scancel(见教科书第148页例6.13)永真循环还有哪些等价的表达式?mod(I,2)=0或i

7、nt(i/2)=i/2store0tox,sdowhil.t.x=x+1s=5*xifs>20exitelse?sendienddretu结果为:5101520例2:写出程序的结果x=.t.s=0dowhilxs=s+1ifs/8=int(s/8)?selseloopendiifs>30x=.f.endienddretu结果为:8162432例3:写出程序的结果

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。