第13讲 循环结构程序设计.pptVIP

例：求10个数中的最大值最小值（见：l10_19求10个数中的最大值最小值.prg ） clear i=1 ii=str(i,2) input 请输入第+ii+个数据 to x max1=x min1=x for i=2 to 10 ii=str(i,2) input 请输入第+ii+个数据 to x if xmax1 max1=x endif if xmin1 min1=x endif endfor ? 最大的数：,max1,最小的数,min1 举例 1、用星号输出菱形下列图形（for循环举例（菱形图形）.prg） 2、输出1~100自然数中被3整除的数据的个数 及它们的和。 （for循环举例（求素数）.prg） 3、编写程序输出以下内容 （for循环举例（正方形数字矩阵三角形）.prg） 4、输出100以内所有的素数。 （for循环举例（求素数）.prg） * 《VFP程序设计》 * 《VFP程序设计》 第13讲 循环结构程序设计 8.3.3 循环结构 1.“当”型循环控制语句 “当”型循环控制语句，即根据条件表达式的值决定循环体内语句的执行次数。 格式： Do While 条件表达式 命令行序列 EndDo 注意这中间有一个空格 8.3.3 循环结构 功能： 通过条件表达式的值来控制循环。执行该语句时，反复判断条件表达式的值，当条件表达式的值为“真”时，执行命令行序列，否则，结束循环并执行EndDo后面的第一个命令。 8.3.3 循环结构 8.3.3 循环结构 例1：计算1~100之间自然数的和。（见：l10_14_1循环程序设计.prg，l10_14_2循环程序设计（累加器）.prg，l10_14_3循环程序设计（逐行显示累加结果）.prg） Clear i=1 sum1=0 do while sum1=10 sum1=sum1+i i=i+1 enddo ?1～+str(i-2,2)+自然数的和是,sum1-(i-1) *注意最后加入的值应该是i-2，此时sum1的值已经10 赋初值 增值 8.3.3 循环结构 例2：根据“员工”表，统计物业部的员工人数。（见：l10_15循环程序设计（统计物业部员工）.prg） Clear use 员工.dbf Exclusive rs=0 do while .not. eof() if 所属部门=物业部 rs=rs+1 endif skip enddo ?rs 8.3.3 循环结构 2. “计数”型循环控制语句 “计数”型循环控制语句，即根据循环变量的初值、终值和步长，决定循环体内语句的执行次数。 格式： For 循环变量=循环变量初值 To 循环变量 终值［ Step 循环变量步长］ 命令行序列 EndFor｜Next 8.3.3 循环结构 功能： 用循环计数器循环变量来控制命令行序列 的执行次数。执行该语句时，系统首先将循环变量初值 赋给 循环变量,然后判断循环变量是否大于（当循环变量步长大于零）或小于（当循环变量步长小于零） 循环变量终值，若结果为“真”，则结束循环，执行EndFor后面的第一条命令；否则，执行命令行序列， 循环变量自动按循环变量步长增加或减少，再重新判断循环变量当前的值是否大于或小于循环变量终值，直到其结果为“真”。 8.3.3 循环结构 8.3.3 循环结构 8.3.3 循环结构 例3：计算10！。（见：l10_16循环程序设计（阶乘）.prg） clear p=1 for i=1 to 10 p=p*i endfor ?p 8.3.3 循环结构 例4：计算2！+4！+6！+8！+10！。（见：l10_17循环程序设计（阶乘累加）.prg） clear p=1 sum=0 for i=1 to 10 p=p*i if int(i/2)=i/2 sum=sum+p endif endfor ?sum 8.3.3 循环结构 3. “指针”型循环控制语句 “指针”型循环控制语句，即根据表中的当前记录指针决定循环体内语句的执行次数。 格式： Scan ［范围］［For 条件表达式1］ ［While 条件表达式2］ 命令行序列 EndScan 8.3.3 循环结构 功能： 在指定的范围内用数据记录指针来控制循环次数。执行该语句时，首先判断函数EOF()的值，若其值为“真”，则结束循环，执行EndScan后面的第一条命令；否则，结合条件表达式1或条件