结构化程序设计三要点.pptVIP

内容回顾： 结构化程序设计的三种基本结构： 顺序结构、选择结构、循环结构 第9章 结构化程序设计 9.4 循环结构程序 Visual Foxpro中的三种循环语句 一、DO WHILE 循环 二、FOR 循环 三、SCAN 循环 一、DO WHILE 循环 例1：利用locate查询逐条显示student表中总分高于240分的所有记录。 use student locate for 总分=240 ?found() display continue ?found() display continue ?found() …… return 例1：利用locate查询逐条显示student表中总分高于240分的所有记录。 格式： DO WHILE 条件表达式 语句序列 ENDDO 功能： 当条件表达式的值为.T.时， 反复执行 DO WHILE与ENDDO 之间的语句，直到条件表达 式的值为.F.止。 循环结构的三要素： 训练1：根据成绩表文件CJ.DBF中的语文、数学和英语成绩去修改学生表STUDENT.DBF中的总分 SELECT 1 SELECT 2 DO WHILE SELECT STUDENT SELECT CJ ENDDO CLOSE ALL 例2：在屏幕上换行显示字符串HELLO20次 例2：在屏幕上换行显示字符串[OK]20次 clear i=1 do while i=20 ?OK i=i+1 enddo return 注意： 在以循环变量作为循环控制参数的条件循环中： ①DO WHILE 语句之前一定要有设置循环变量初值的语句 ②循环体内一定要有修改循环变量的语句，否则就会出现无限循环（死循环） 例3：利用循环结构求自然数1至100的平方和。 clear s=0 i=1 do while i=100 s=s+i^2 i=i+1 enddo ?s=,s return 例3：利用循环结构求自然数1至100的平方和。 clear s=0 i=1 do while i=100 s=s+i^2 i=i+1 enddo ?s=,s return 训练2：已知 S=(1*3)+(2*4)+(3*5)+…+(25*27)， 求S的值。 例4：求自然数1至100间能被3或者7整除的数的平方和 clear s=0 i=1 do while i=100 if s=s+i^2 endif i=i+1 enddo ?s=,s return 训练3：求1800～2010年之间闰年的数目。（能被4整除且不能被100整除的年份，或者能被400整除的年份是闰年） clear n=0 year=1800 do while year=2010 if n=n+1 endif year=year+1 enddo ?1800～2010年之间闰年的数目为, n return 例5：阅读程序，并说出程序的结果 clear i=1 do while i=5 i=i+1 ?i enddo return 格式2： DO WHILE 条件表达式 语句序列1 [LOOP] 语句序列2 [EXIT] 语句序列3 ENDDO LOOP语句：强行返回到循环开始语句。 EXIT语句：强行跳出循环，接着执行ENDDO后的语句 。 训练4：教材例9.5，求1~100之间全部奇数之和 clear store 0 to x, y do while .t. x=x+1 do case case int(x/2)=x/2 loop case x=100 exit otherwise y=y+x endcase enddo ?0~100之间的奇数之和为：,y return 二、FOR 循环 例6：求自然数1至100的奇数和 clear s=0 i=1 do while i=100 s=s+i i=i+2 enddo ?s=,s return 二、FOR 循环 例6：求自然数1至100的奇数和 二、FOR 循环 例6：求自然数1至100的奇数和 clear s=0 i=1 do while i=100 s=s+i i=i+2 enddo ?s=,s return 格式： FOR 循环变量=初值 TO