Микропроцессорная техника систем автоматизации



бет32/77
Дата27.11.2023
өлшемі4,68 Mb.
#128711
1   ...   28   29   30   31   32   33   34   35   ...   77
Цикл FOR. Служит для задания цикла с фиксированным коли- чеством итераций. Формат конструкции следующий:
FOR := TO [BY ] DO
END_FOR;
При задании условий цикла считается, что ,
имеют целые значения типа INT. Выход из цикла будет произведен в том случае, если значение пе- ременной цикла превысит значение . Например:
FOR i := 1 TO 10 BY 2 DO
k := k*2; END_FOR;
Оператор BY задает приращение переменной цикла (в данном случае i будет увеличиваться на 2 при каждом проходе по циклу). Если оператор BY не указан, то приращение равно 1. Например:
FOR i := 1 TO (k/2) DO
var := var+k;
k := k–1; END_FOR;
Внутри цикла могут использоваться другие циклы, операторы IF и CASE. Для выхода из цикла (любого типа) может использоваться оператор EXIT.
Пример:
FOR i := 1 TO 10 BY 2 DO
k := k*2;
IF k>20 THEN EXIT; END_IF; END_FOR;
Цикл WHILE. Служит для определения цикла с предусловием. Цикл будет исполняться до тех пор, пока выражение в предложе- нии WHILE возвращает TRUE. Формат конструкции следующий:
WHILE DO
END_WHILE;
Значение проверяется на каждой итера- ции. Завершение цикла произойдет, если выражение вернет FALSE. Например:
k := 10;
WHILE k>0 DO
i := i+k; k := k–1;
END_WHILE;
Внутри цикла могут использоваться другие циклы, операторы IF и CASE. Для досрочного завершения цикла используется оператор EXIT (см. пример в описание цикла FOR).
Цикл REPEAT UNTIL. Служит для определения цикла с посту- словием. Завершение цикла произойдет тогда, когда выражение в предложении UNTIL вернет True. Другими словами: цикл будет выполняться, пока условие в предложении UNTIL не выполнится. Формат конструкции следующий:
REPEAT

UNTIL ; END_REPEAT;
Например:
k := 10; REPEAT
i := i + k; k := k – 1;
UNTIL k = 0; END_REPEAT;
Внутри цикла могут использоваться другие циклы, операторы IF и CASE. Для досрочного завершения цикла используется оператор EXIT (см. пример в описании цикла FOR).


Достарыңызбен бөлісу:
1   ...   28   29   30   31   32   33   34   35   ...   77




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет