Page 25 - 33

Переходимо до організації сервісного блоку, який забезпечить вивід на
принтер лише за бажанням користувача. Для цього треба зупинити програму і

направити її або на друк або на закінчення роботи.
Ознакою, за якою комп’ютер зрозуміє наш вибір, будемо вважати

символьну (текстову) змінну K$. Тоді цей фрагмент програми виглядатиме так:

150 INPUT “Друкувати ? (Y/N) ”,K$

155 IF K$=”Y” OR K$=”y” THEN 170

160 IF K$=”N” OR K$=”n” THEN 215

165 GOTO 150

170 див. наступний фрагмент

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

215 END

Прокоментуємо цей фрагмент. В операторі 150 між лапками, крім

запитання, в дужках дається підказка, яким чином можна виразити наше

ставлення до пропозиції друкувати. Це не є зайвим, оскільки це може

здійснюватись по-різному, наприклад, 1/0. В операторах 155 і 160

використовується альтернативний варіант, оскільки ми можемо працювати в

режимі великих або маленьких літер шрифту. Наявність слова OR робить нашу

роботу незалежною від цього, що без сумніву надає певної зручності в

користуванні програмою.

І нарешті оператор 165. Його функція – захист від некоректних дій

користувача. Йдеться про натискування клавіші під час виконання оператора

150. Помилково може бути натиснута літера, якої нема в операторах 155 і 160,

наприклад F. Без оператора 165 виконання програми продовжиться, тобто

почнеться друкування без нашої згоди. При наявності цього оператора робота

програми буде повернута на повторення запитання щодо друку. І так буде доки

не буде натиснута клавіша Y(y) або N(n).

25