Как организовать цикл с помощью PERFORM в COBOL?

@sylvester 

В COBOL можно организовать цикл с помощью команды PERFORM несколькими способами. Вот несколько основных способов, которые помогут вам понять, как реализовать циклы:

1. PERFORM TIMES

Этот вариант используется для выполнения блока кода определённое количество раз.

1
2
3

       PERFORM n TIMES
           ...
       END-PERFORM

Пример:

1
2
3

       PERFORM 5 TIMES
           DISPLAY "Hello, World!"
       END-PERFORM

Этот код выполнит вывод "Hello, World!" пять раз.

2. PERFORM UNTIL

Этот вариант выполняет блок кода до тех пор, пока условие не станет истинным.

1
2
3

       PERFORM UNTIL condition
           ...
       END-PERFORM

Пример:

1
2
3
4
5

       MOVE 1 TO COUNTER
       PERFORM UNTIL COUNTER > 5
           DISPLAY "Iteration: " COUNTER
           ADD 1 TO COUNTER
       END-PERFORM

Этот цикл выводит номер итерации, начиная с 1 до 5.

3. PERFORM VARYING

Этот вариант позволяет управлять переменной цикла, изменяя её значение по определённой схеме.

1
2
3

       PERFORM VARYING var FROM start-value BY increment UNTIL condition
           ...
       END-PERFORM

Пример:

1
2
3

       PERFORM VARYING I FROM 1 BY 1 UNTIL I > 5
           DISPLAY "Value of I: " I
       END-PERFORM

Этот цикл будет увеличивать значение I от 1 до 5, включая оба предела.

Эти конструкции помогут вам организовать циклы в COBOL под различные задачи.