934-主讲人于洪奎.pptVIP

7.2.2循环结构（P165） 条件循环（DO WHILE--ENDDO） 步长循环（FOR --ENDFOR） 扫描循环（SCAN--ENDSCAN） 循环辅助语句（LOOP/EXIT） 条件循环 语句格式： DO WHILE 条件 语句序列1 [LOOP] 语句序列2 [EXIT] 语句序列3 ENDDO 条件循环 功能注释: 1、如果第一次判断条件时，条件即为假，则循环一次都不执行。 2、如果循环体包含LOOP命令，那么当遇到LOOP时，就结束循环体的本次执行，不再执行其后面的语句，而是转回DO WHILE 处重新判断条件。 3、如果循环体包含EXIT命令，那么当遇到EXIT时，就结束循环体的本次执行，转去执行ENDDO后面的语句。 4、通常LOOP或EXIT出现在循环体内嵌套的选择语句中，根据条件来决定是LOOP回去，还是EXIT出去。 条件循环示例 1、计算S=1+2+3+。。+100 程序名：QH.PRG SET TALK OFF S=0 I=1 DO WHILE I=100 S=S+I I=I+1 ENDDO ?I ?S SET TALK ON 循环辅助语句 LOOP示例 功能:计算S=1+2+3+…+100,并求1~100之间的奇数和。 程序名：JSH.PRG STORE 0 TO I,S,T DO WHILE I100 I=I+1 S=S+I IF INT(I/2)=I/2 LOOP ENDIF T=T+I ENDDO ? “1+2+3+…+100=”,S ? “1~100的奇数和为:”,T 步长循环格式 格式: FOR 循环变量=初值 TO 终值 [STEP 步长] 循环体 ENDFOR| NEXT 步长循环功能注释 1、步长默认值为1。 2、初值终值步长都可以是数值表达式。但这些表达式仅在循环语句执行开始时被计算一次。在循环语句的执行过程中， 初值、终值和步长是不会改变的。 3、可以在循环体内改变循环变量的值，但这会影响循环体的执行次数。 4、LOOP和EXIT同样可以出现在循环体内。当执行到LOOP命令时，结束循环体的本次循环，然后循环变量增加一个步长值，并再次判断循环条件是否成立。 步长循环示例1 功能:计算 S=1+2+….+100 程序名:BC.PRG S=0 FOR I=1 TO 100 S=S+I ENDFOR ? “S=”,S 步长循环示例2 功能：找出100~999之间的所有“水仙花数”（如153=13+53+33） 程序名：SXH.PRG CLEAR FOR I=100 TO 999 A=INT(I/100) B=INT((I-100*A)/10) C=I-INT(I/10)*10 IF I=A^3+B^3+C^3 ?I ENDIF ENDFOR 步长循环示例3 功能：从键盘输入10个数，然后找出其中的最大值和最小值。 程序名：MAMI.PRG CLEAR INPUT “请输入一个数:” TO A STORE A TO MA,MI FOR I=2 TO 10 INPUT “请输入一个数:” TO A IF MAA MA=A ENDIF IF MIA MI=A ENDIF ENDFOR ? “最大值:”,MA ? “最小值:”,MI 扫描语句格式 SCAN [范围] [FOR条件1][WHILE条件2] 循环体 ENDSCAN 该语句一般用语处理表中的记录。 功能注释： 1、范围的默认值是ALL。 2、EXIT和LOOP命令同样可以出现在该循环语句的循环体内。 扫描语句示例 clear open database 订货管理 USE 职工表 SCAN FOR 工资1210 ?职工号,工资 ?------------------------ ENDSCAN USE CLOSE DATABASE 步长循环嵌套示例 功能：显示乘法表 程序名：CFB.PRG CLEAR FOR I=1 TO 4 I是被乘数 FOR J=1 TO 4 J是乘数 IF I=J ?? STR(I,1)+ “*”+STR(J,1)+ “=”+STR(I*J,2)+SPACE(2) ENDIF NEXT ? 换行 ENDFOR 上例运行结果 1*1= 1 1*2= 2 1*3= 3 1*4= 4 2*2= 4 2*3= 6 2*4=8 3*3= 9 3*4=1