第07章结构化程序设计讲述.ppt

选择题 10. 关于多重循环，以下概念错误的是（　　）。A. 外层循环一轮，内层循环一次B. 一般不要在内循环中随意改变外循环的控制变量或指针位置，以免破坏原先设定的外循环控制C. 可在内层循环的控制中引入外层循环直接相关的变量，以实现多个控制条件D. 各种类型的循环语句可以相互嵌套，也可以与分支语句嵌套，形成复杂的程序结构 * */73 选择题 11. 下列程序执行以后，内存变量 y 的值是_____。x=34357y=0DO WHILE x＞0 y=x%10+y*10 x=int(x/10)ENDDOA）3456 B）34567 C）7654 D）76543 选择题 12.下面程序计算一个整数的各位数字之和。在下划线处应填写的语句是( )。SET TALK OFFINPUT ”x=” TO xs=0DO WHILE x！=0?? s=s+MOD(x,10)????_______________________　　　　　　　　　　　　　ENDDO?sSET?TALK?ONA. x=int(x/10)?? B. x=int(x%10)?? C. x=x-int(x/10)??? D. x=x-int(x%10) 谢谢！ 7.3.3 循环结构 1. 条件循环结构 2. 步长型循环结构 3. 表扫描循环结构 4. 循环嵌套 * */73 2. 步长型循环结构 格式： FOR VarName = nInitialValue TO nFinalValue [STEP nIncrement] Commands ENDFOR | NEXT * */73 流程： 2. 步长型循环结构 方式1： INPUT 请输入数值N: TO n f = 1 FOR i = 1 TO n f = f * i ENDFOR ?“N!=”,f * */73 方式2： INPUT 请输入数值N: TO n f = 1 FOR i = n TO 1 STEP -1 f = f * i ENDFOR ?N!=,f *求N!,用FOR循环实现 7.3.3 循环结构 1. 条件循环结构 2. 步长型循环结构 3. 表扫描循环结构 4. 循环嵌套 * */73 3. 表扫描循环结构 格式： SCAN [Scope] [FOR lExpression1] [WHILE lExpression2] [Commands] ENDSCAN 功能： 在当前打开的数据表中的指定范围（Scope）内查找符合条件的记录，若找到，将记录指针指向该记录，然后执行循环体，到达ENDSCAN语句时返回循环头，再次查找符合条件的记录，直到在指定范围内找不到满足条件的记录为止。如果不指定范围Scope，则对整个表中的所有记录进行扫描处理。 对于FOR条件语句，将对Scope所限定的范围内的每一条记录进行一一判断，满足条件则执行循环体；对于WHILE条件语句，若下一条记录不满足条件，则停止循环。 * */73 3. 表扫描循环结构 说明： （1）使用该结构必须先打开要扫描的数据表。 （2）当每次循环执行到ENDSCAN或LOOP语句时，记录指针自动下移，如果已到文件尾，则退出循环，否则继续循环。因此，循环体中不需要SKIP语句。 * */73 3. 表扫描循环结构 用表扫描循环实现前述中逐条显示除“李”姓以外的所有学生记录，并统计“李”姓学生的个数的程序（方式一）。 SET EXACT OFF 设置不精确比较 OPEN DATABASE student USE students N = 0 SCAN IF 姓名 = 李 N = N + 1 * SKIP（SCAN循环会自动移动记录指针） LOOP ENDIF DISPLAY * SKIP（同上） ENDSCAN CLOSE DATABASES ?“李姓学生个数N=”,N * */73 3. 表扫描循环结构 用表扫描循环实现前述中逐条显示除“李”姓以外的所有学生记录，并统计“李”姓学生的个数的程序（方式二）。 SET EXACT OFF 设置不精确比较 OPEN DATABASE student USE students N = 0 SCAN FOR .NOT. 姓名=李 扫描条件 DISPLAY N = N + 1 累加不姓李的学生数 ENDSCAN GO BOTTOM N=RECNO()-N