写一个cobol的循环
时间: 2024-04-30 12:19:26 浏览: 177
以下是一个简单的 COBOL 循环示例:
```
IDENTIFICATION DIVISION.
PROGRAM-ID. MYPROGRAM.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 COUNT PIC 9(2) VALUE 0.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
PERFORM VARYING COUNT FROM 1 BY 1 UNTIL COUNT > 10
DISPLAY "COUNT IS: " COUNT
END-PERFORM.
STOP RUN.
```
这个程序定义了一个名为 `MYPROGRAM` 的 COBOL 程序,并且使用了一个名为 `COUNT` 的变量来跟踪循环计数。在 `MAIN-PROCEDURE` 中,使用了 `PERFORM VARYING` 来定义一个循环,该循环从 `COUNT` 的初始值 `1` 开始,每次加 `1`,直到 `COUNT` 的值大于 `10` 时停止。在循环体内部,使用 `DISPLAY` 语句来打印当前的 `COUNT` 值。最后,程序使用 `STOP RUN` 停止运行。
阅读全文