Оператор цикла DO

Оператор DO предназначен для создания циклов, обеспечивающих многократное выполнение группы операторов в программе.

Оператор DO по сравнению c IF является более мощным инструментом для организации циклов. Форма записи следующая:

DO m i=i₁ , i₂ , i₃

где m – метка оператора, являющегося последним в области цикла DO;

i – переменная цикла, изменяющаяся от начального значения i₁ до конечного значения i₂ с шагом i₃.

Пример:

DO 8 I=1,13,2

M=I*Iобласть цикла

8 WRITE(6,*) I,M

. . .

Оператор цикла DO работает следующим образом:

1). Переменной цикла i присваивается начальное значение i₁, затем выполняются все операторы в области цикла, включая и последний с меткой m. Затем к величине переменной i прибавляется величина шага i₃ и полученное новое значение переменной цикла сравнивается с конечным значением i₂. Если новое значение переменной цикла больше чем значение i₂, то осуществляется выход из цикла и выполнение передаётся оператору, следующему после метки m. Если значение переменной цикла i меньше, чем i₂, то повторяется вычисление в области цикла, начиная с оператора, следующего после DO.

ВНИМАНИЕ:

После окончания цикла переменная цикла сохраняет всегдазначение большее, чем конечное значение цикла i₂. В случае выхода из цикла до его завершения переменная сохранит свое текущее значение.

В качестве оператора, являющегося последним в цикле DO, предпочтительнее ставить оператор CONTINUE, который не выполняет никаких действий, а просто показывает, что на нём закончился цикл.

Оператор CONTINUE чаще всего является последним оператором цикла DO в тех случаях, когда последним оператором цикла DO может оказаться один из операторов:

IF(арифметический), PAUSE, STOP или другой управляющий оператор.

Пример:

. . .

DO 4 I=1,8,2

X=X+2.

. . .