Оператор goto
QBASIC має оператори, які дозволяють зробити перехід без виконання будь-якої умови, найпростіший з них — оператор безумовного переходу GOTO.
Оператор безумовного переходу може бути записаний у вигляді:
GOTO рядок,
де рядок — номер рядка, з якого буде продовжено виконання програми.
Прогляньте уважно наступний приклад:
REM Програма 3
CLS
PRINT «Погляньте на цей»;
PRINT «приклад»;
GOTO N ‘Передача управління на позначку N ’
PRINT «використання»
N: PRINT «оператора GOTO»
END
Результат цього прикладу зображено на рис. 4.3:
Оператор GOTO передає управління відразу на четвертий оператор PRINT, і тому третій PRINT не виконується.
Оператор вибору on
Це один з умовних операторів. Його властивості багато в чому аналогічні властивостям оператора GOTO і, як правило, не так часто виникає необхідність вибирати один варіант відразу з багатьох. Але якщо така необхідність виникла, на допомогу вам може прийти оператор ON. Його вид:
ON вираз GOTO мітки,
де вираз – змінна або арифметичний вираз цілого типу
мітки – список міток.
Значення параметру «вираз» визначає позначку або номер рядка програми, де знаходиться оператор, який буде виконаний наступним. Якщо значення буде рівне 1 (одиниці), то управління передається першій позначці у списку. Якщо значення параметра рівне 2, то управління передається на другу позначку. Якщо значення параметра «вираз» рівне нулю або перевищує число позначок у списку, управління передається оператору, що слідує за конструкцією ON. Від’ємне значення параметра неприпустиме, воно інтерпретується як помилка, на екран при цьому видається повідомлення Illegal Function Call (Неправильний виклик функції).
Оператор select case
Умовний оператор SELECT CASE не має обмежень, які мають оператор ON…GOTO, і може замінити не тільки його, але й оператор IF…THEN. Оператор SELECT CASE перевіряє логічні умови і визначає оператор, який буде виконуватися наступним. Загальна форма оператора:
SELECT CASE вираз
CASE умова
(оператори)
. . .
CASE ELSE
(оператори)
END SELECT,
де вираз – будь-який числовий або текстовий вираз;
умова – один або кілька логічних виразів, розділених комами;
(оператори) – блок, який вміщує будь-яке число операторів;
Якщо одна з умов CASE істинна, виконується відповідний блок операторів. Якщо жодне з них не виконується, управління передається CASE ELSE, або, якщо CASE ELSE немає, оператору, який стоїть після END SELECT.
Приклад 4. Визначити знак введеного числа.
REM Програма4
‘Використання оператора SELECT CASE
INPUT IS
SELECT CASE IS
CASE IS = 0
PRINT “Введене число = 0”
CASE IS < 0
PRINT “Введене число – від’ємне”
CASE IS > 0
PRINT “Введене число – додатне”
END SELECT
END
Умовний вираз в блоках CASE може бути записано в вигляді:
CASE значення 1 ТО значення 2
В цьому форматі перевіряється, чи належить значення виразу відрізку [значення 1, значення 2], якщо це так, то виконується відповідний блок операторів.
Приклад 5.
REM Програма5
INPUT ABE%
SELECT CASE ABE%
CASE 1 TO 6 PRINT “Дитина”
CASE 7 TO 17 PRINT “Школяр”
CASE 18 TO 100 PRINT “Дорослий”
END SELECT
END
Умова, що підлягає перевірці, може мати і більш складний вигляд:
CASE IS < 7, IS > 17
PRINT “Не школяр”