请教一句COBOL命令的意义

来源:百度知道 编辑:UC知道 时间:2024/06/14 10:52:24
PERFORM VARYING IDX FROM 1 BY 1
UNTIL IDX > 5
....
END-PERFORM

请问PERFORM后面命令是什么意思……
希望可以特别讲一下FROM BY
谢谢!

VARYING IDX -->idx 作为循环下标
FROM 1--> idx从1开始
BY 1-->步长为1(就是加1)
until idx>5 -->直到下标大于5退出循环

和C的"FOR (I=1;I<=5;I++)"功能一样.

循环. IDX 从 1 (FROM 1) 到 5 (UNTIL IDX>5), 步长为1(BY 1).
相当于 C 的: for (idx=1; idx<=5; idx=idx+1);
BASIC 的 for idx = 1 to 5 step 1

IDX作为循环下标,每次累加1,一直执行到5结束。
(循环体内部共计执行五次)。

FROM X BY Y 的含义是从x开始,每次累加y的过程
改写成简单的Cobol语句即为:

ADD 1 TO IDX
PERFORM UNTIL IDX > 5
ADD 1 TO IDX
....
END-PERFORM

或:

INITIALIZE IDX
PERFORM UNTIL IDX >= 5
ADD 1 TO IDX
....
END-PERFORM