...

(Видати на екран ”Продовжити? (Д/Н)”)

(Зчитати відповідь користувача в перемінну ANSWER)

СМР ANSWER,”Н”

$ENDDO E,OR

СМР ANSWER,”н”

$ENDDO E

СТРУКТУРА SEARCH

Структура SEARCH (шукати) схожа на структуру DO, але передбачає два різних варіанти завершення циклу: успішний і неуспішний. Це зручно для тих додатків, де потрібно знати, яка з умов привела до завершення циклу. Наприклад, Вам може бути необхідно дізнатися, завершилася операція вводу-виводу успішно чи була припинена через виникнення помилки.

Як і структура DO, структура SEARCH має три форми:

- Структура SEARCH UNTIL (шукати ... до) повторює блок команд доти, поки одна з двох умов в кінці цього блока не стане істинною.

- Структура SEARCH WHILE (шукати, поки не) повторює блок команд, поки обидві умови помилкові. Якщо одна з них початково істинна, то блок команд не виконується жодного разу.

- Структура SEARCH COMPLEX (шукати комплексно) являє собою комбінацію структур SEARH UNTIL і SEARCH WHILE, що включає в себе блок команд до перевірки умов і блок команд після них. Вона виконує перший блок, потім перевіряє умови. Якщо хоча б одна з них істинно, то цикл завершується. У противному випадку здійснюється другий блок команд і процес повторюється ще раз.

СТРУКТУРА SEARCH UNTIL

Ця структура має загальний вигляд

$SEARCH-

А (Основний блок)

$EXITIF умова1

В (Якщо умова1 істинна, то виконати і

Вийти з циклу)

$ORELSE

С (Якщо умова1 хибна, то виконати) $ENDLOOP умова2

D (Якщо умова2 істинна, то виконати і

Вийти з циклу)

$ENDSRCH

де умова1 і умова2 -- умови завершення циклу. Тут умова1 відповідає успішному завершенню (Ви знайшли те, що шукали), а умова2 -- неуспішному. На мал. 3, a показана блок-схема структури SEARCH UNTIL.

Врахуйте, що основний блок А завжди виконується принаймні один раз. Блоки В і D виконуються відповідно при успішному і неуспішному завершенні операцій (Ви можете користуватися ними для видачі повідомлень), а блок С містить команди, що встановлюють значення флагів для перевірки оператором $ENDLOOP.

Наприклад, в екзаменаційній програмі можна скористатися структурою SEARCH UNTIL і дати студенту три спроби вибрати з запропонованих йому варіантів відповіді правильний. Її застосування може мати такий загальний вид:

MOVE СХ,3 ;Встановити лічильник

(Зобразити на екрані питання)

$SEARCH