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


Пример цикла DO UNTIL


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

Протокол работы этой процедуры выглядит следующим образом: [C:\] DOUNTIL Введите сумму наличных денег 50 Введите стоимость товара 37 Введите стоимость товара 14 Пустые карманы. [C:\]




- Начало -  - Назад -