FOR与SCAN循环及辅助语句示例.docVIP

例 1 编程计算S 2+4+6+…+10。 Set talk off clear S 0 FOR W 2 TO 10 STEP 2 S S+W ENDFOR ? S Set talk on 例2 编程计算P N!。 SET TALK OFF CLEAR P 1 INPUT N : TO N FOR I 1 TO N P P*I NEXT ? 其阶乘为：, N SET TALK ON 例3 显示表中所有男生 Set talk off clear USE 学生基本情况表 SCAN ALL FOR 性别＝“男” DISP ENDSCAN USE Set talk on 例 4在“学生成绩表1”中，显示大学英语成绩在80分以下的学生姓名。 SET TALK OFF CLEAR USE 学生成绩表1 SCAN ALL FOR 大学英语 80 ？姓名 ENDSCAN USE SET TALK ON 例 5显示出“学生成绩表1”中有一门课成绩不及格的所有记录。 SET TALK OFF CLEAR USE 学生成绩表1 SCAN FOR 高等数学＜60 or大学英语＜60 or 大学语文＜60 DISPLAY ENDSCAN USE SET TALK ON 例6 显示“学生基本情况表”中“性别”为“女”的记录的姓名、入学成绩和性别。 SET TALK OFF CLEAR USE 学生基本情况表 DO WHILE .NOT.EOF IF 性别 男 SKIP LOOP ENDIF ? 姓名,入学成绩,性别 SKIP ENDDO USE SET TALK ON 例7 按条件求30以内奇数和，当和大于20时结束求和，显示统计次数以及奇数和。 SET TALK OFF CLEAR JSH 0 FOR I 1 TO 30 STEP 2 JSH JSH+I IF JSH 20 EXIT ENDIF ENDFOR ？统计次数 , I+1 /2 ？奇 数 和 ,JSH SET TALK ON 例8 DO WHILE循环嵌套输出5行5列的“*”矩形图 SET TALK OFF CLEAR I 1 DO WHILE I 5 J 1 DO WHILE J 5 ??“*” J J+1 ENDDO I I+1 ENDDO SET TALK ON 例9 FOR循环嵌套输出5行5列的“*”矩形图 SET TALK OFF CLEAR FOR I 1 TO 5 STEP 1 FOR J 1 TO 5 STEP 1 ??“*” ENDFOR ENDFOR SET TALK ON 例9 DO WHILE循环嵌套输出5行等边的“*”三角图 SET TALK OFF CLEAR I 1 DO WHILE I 5 J 1 space 5-I DO WHILE J I * J J+1 ENDDO I I+1 ENDDO SET TALK ON 例10 FOR循环嵌套输出5行等边的“*”三角图 SET TALK OFF CLEAR FOR I 1 TO 5 STEP 1 行数 space 5-I FOR J 1 TO I STEP 1 个数 * ENDFOR ENDFOR SET TALK ON 例11 图形演示1 set talk off clear ?* * * * * ?* * * * * ?* * * * * ?* * * * * ?* * * * * set talk on 例12 图形演示2 set talk off clear for I 1 to 5 step 1 * * * * * endfor set talk on 例13 图形演示3 set talk off clear for I 1 to 5 step 1 for J 1 to 5 step 1 * endfor endfor set talk on 例14 图形演示4 set talk off clear for I 1 to 5 step 1 行数 for J 1 to I step 1 个数 * endfor endfor set talk on