Процедура 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:\]