Язык процедур 2-REXX для OS-2


Условные циклы - часть 2


/* Использование инструкции LEAVE в цикле */ SAY 'введите сумму наличных денег' PULL salary spent = 0 /* Присваивает spent значение 0 */ DO UNTIL spent > salary SAY 'Введите стоимость товара или END для завершения' PULL cost IF cost = 'END' THEN LEAVE spent = spent + cost END SAY 'Пустые карманы.' EXIT

DO FOREVER - Иногда Вы не можете определить, сколько раз нужно повторить цикл. Например, может потребоваться, чтобы пользователь вводил цифровые данные (числа, которые должны складываться), а процедура выполняла вычисления до тех пор, пока сложены), а процедура выполняла вычисления до тех пор, пока пользователь не прикажет остановиться. Для процедур подобного типа Вы можете использовать инструкцию DO FOREVER вместе с инструкцией LEAVE.

Проиллюстрируем на следующем примере использование инструкции DO FOREVER.

/* Использование цикла DO FOREVER для сложения чисел */ sum = 0 DO FOREVER SAY 'Введите число или END для завершения' PULL value IF value = 'END' THEN LEAVE /* процедура завершается при получении "end" */ sum = sum + value END SAY 'Сумма равна ' sum EXIT




- Начало -  - Назад -  - Вперед -