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


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


Процедура DOWHILE.CMD использует цикл DO WHILE. Проверка условия на истину или ложь осуществляется в начале цикла.

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

Протокол работы этой процедуры выглядит следующим образом:

[C:\]dowhile Введите сумму наличных денег 100 Введите стоимость товара 57 Введите стоимость товара 24 Введите стоимость товара 33 Пустые карманы. [C:\]




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