* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки
48 Языки Бейсик у=х в степени a для любых з н а ч е н и й х и а , в в о д и м ы х с к л а в и а т у р ы . Операцию ввода с клавиа¬ туры выделить в отдельную подпрограмму. GOSUB m1 'Обращение к подпрограмме PRINT " y = " ; x a 'вывод на экран результата END 'конец программы ' П О Д П Р О Г Р А М М А m1: CLS 'очистка экрана PRINT "Введите данные" INPUT " x = " ; x 'ввод основания INPUT "a=";a 'ввод показателя степени RETURN A Особенностью использования оператора GOSUB является "плавающее" начало. Подпрограмма может быть помещена в любое место основной программы. Под¬ программу можно вызвать из любой точки программы или другой подпрограм¬ мы. Вложенность подпрограмм друг в друга ограничена только оперативной па¬ мятью. Если в программе много циклов GOSUB, то выдается сообщение: НЕ ХВАТАЕТ ПАМЯТИ Если в программе выполняется оператор R E T U R N , а GOSUB не выполня¬ лось, то выдается сообщение RETURN без GOSUB 7.12. О п е р а т о р O N - G O T O — в ы б р а т ь б е з у с л о в н ы й п е р е х о д Оператор ON-GOTO используется для передачи управления по списку меток. Формат оператора ON-GOTO: ON выражение% GOTO список-меток где Выражение% имеет числовое значение в диапазоне от 0 до 255; Список-меток — набор меток программы, которые перечисляются через запя тую и именуют операторы программы. Числовое значение выражения указывает, какая по порядку метка выбирается из списка_меток для выполнения. Если числовое значение выражения равно 0 или не соответствует имеющимся поряд¬ ковым номерам меток в списке_меток, то передача управле¬ ния не выполняется и управление передается оператору, сле¬ дующему за оператором ON-GOTO. Пример передачи управления с помощью оператора ON-GOTO: ON K% GOTO a,b,c Если К % равно 1, то управление будет передано оператору с меткой а; П р и К%=2 управление будет передано оператору с меткой b;