COBOL课件第4章过程部高级篇幻灯片.pptVIP

这个例子也非法，不能有重叠的段名 这个流程是正确的 这个流程也是正确的 该例是否正确？ 可以在PERFORM语句中包含GO TO语句，使流程转到语句序列之外，但之后应转回到PERFORM语句序列，以便能结束PERFORM调用，让流程继续 3.用执行语句实现循环 可以用PERFORM语句多次执行同一个语句序列，即循环 (不是在程序的不同地方分别利用几个PERFORM执行同一个语句序列) 格式： PERFORM 过程名1 [ THRU 过程名2 ] N TIMES 例如： A. PERFORM B 5 TIMES. …… B. READ IN-FILE AT END STOP RUN. DISPLAY IN-RECORD. 练习4.4.1：求五年的本利合P2=P*(1+R) A. MOVE 0.04 TO R. ADD 1 TO R. MOVE 100 TO P. PERFORM B 5 TIMES. STOP RUN. B. MULTIPLY R BY P. 可以使用数据项保存N值，N值如果为零或负数，则语句无效 MOVE 5 TO N PERFORM A N TIMES 如果N值在PERFORM语句序列中有变化，不会影响执行的次数 A. ADD 3 TO N DISPLAY N 练习4.4.2：计算N的阶乘，N=5 A. MOVE 5 TO N. MOVE 1 TO M. PERFORM B N TIMES. DISPLAY M. B. MULTIPLY N BY M. SUBTRACT 1 FROM N. 4. 执行语句的复杂形式 可以反复执行指定的语句序列，直到给定的条件满足为止 格式： PERFORM 过程名1 [ THRU 过程名2 ] UNTIL 条件 执行时首先判断条件，若为真则不运行语句序列，若为假则运行 例如：计算1+2+……+10 A. MOVE 0 TO SUM. MOVE 1 TO N. PERFORM B UNTIL N10. DISPLAY SUM. STOP RUN. B. ADD N TO SUM. ADD 1 TO N. 可以反复执行指定的语句序列，直到给定的条件满足为止 格式： PERFORM 过程名1 THRU 过程名2 VARYING 标识符1 FROM 标识符2 BY 标识符3 UNTIL 条件 例如： PERFORM T1 THRU T2 VARYING X FROM A BY B UNTIL X10 1) 把初值A赋给X 2) 检查条件X10？若不满足，则执行T1～T2段一次 3) 将X增加步长B，即X+B →X 4) 再检查条件X10 5) 若条件满足，则PERFORM执行完毕，继续执行下一语句 注意： a. 循环变量X的初值A可以为正，负或零； 步长B可以为正或负，但不能为零！ b. 循环变量X的值在每次循环中自动按步长增加，不必人为添加 ADD B TO X 语句 c. UNTIL语句的条件，不一定直接用到循环变量，如： A. MOVE 1 TO N. PERFORM B VARYING X FROM 1 BY 2 UNTIL N10. B. ADD 1 TO N. 5. 执行语句的多重循环形式 格式： PERFORM 过程名1 THRU 过程名2 VARYING 参数1 FROM 初值1 BY 步长1 UNTIL 条件1 AFTER 参数2 FROM 初值2 BY 步长2 UNTIL 条件2 AFTER 参数3 FROM 初值3 BY 步长3 UNTIL 条件3 例如： PERFORM T VARYING I FROM 1 BY 1 UNTIL I3 AFTER J FROM 1 BY 1 UNTIL J5 6. 执行语句小结 五种形式的PERFORM语句 PERFORM T1 PERFORM T1 THRU T2 PERFORM T1 THRU T2 5 TIMES PERFORM T1 THRU T2 UN