BETA BASIC

Продолжение. Начало см. стр. 3,47

16. DO

или DO WHILE <условие>

или DO UNTIL <условие>

Клавиша D (Ключевое слово WHILE находится на клавише J, а ключевое слово UNTIL на клавише K).

См. также LOOP, EXIT IF.

Конструкция DO LOOP имеет ряд преимуществ по сравнению с обычным способом организации циклов FOR NEXT стандартного БЕЙСИКа. Эти преимущества становятся еще более ощутимыми при использовании квалификаторов WHILE и UNTIL.

Без них DO и LOOP являются просто маркерами, отмечающими начало и конец цикла. После того, как программа встретит оператор LOOP, управление передается на оператор DO и т.д.

Пример:

10 DO

20 PRINT "HELLO"

30 LOOP

Эта программа будет печатать бесконечное число раз слово HELLO. Остановить ее можно будет только нажав BREAK.

Действие DO можно изменить с помощью квалификатора WHILE <условие>. Его действие таково:

Если условие стоящее после WHILE справедливо (имеет значение "истина"), то выполняются операторы стоящие после DO до тех пор, пока не встретится оператор LOOP, после чего управление вновь передается на DO и вновь проверяется справедливость условия и т.д. Если же условие "ложно", то вся часть программы, стоящая между DO и LOOP игнорируется и управление передается к оператору, стоящему за LOOP.

Таким образом, та часть программы, которая стоит между DO WHILE <условие> и LOOP выполняется раз за разом, пока <условие> справедливо.

DO UNTIL <условие> имеет прямо противоположное значение. Часть программы заключенная между DO и LOOP выполняется, пока условие "ложно" (иными словами до тех пор, пока условие не станет справедливым).

Пример:

10 LET total = 0

20 DO UNTIL total > 100

30 INPUT "Введите число ";x

40 LET total = total * x

50 PRINT total

60 LOOP

70 PRINT "Получили число больше ста"

В этом примере строку 20 можно было бы заменить такой:

20 DO WHILE total < = 100.

Пары DO LOOP могут вкладываться точно так же, как FOR NEXT. Например:

Компьютер запоминает адрес, по которому в программе хранится оператор DO. Для запоминания служит стек, поэтому нельзя выходить из цикла (перепрыгивать через LOOP), иначе как с помощью EXIT IF или POP. Иначе может произойти "закупоривание" стека и сбой работы в программе.

Если в программе для оператора DO не найден соответствующий LOOP, выдается сообщение об ошибке:

S, "Missing LOOP".

Аналогичные конструкции существуют и во многих других языках программирования и могут иметь другое написание, вот примеры аналогичных конструкций:

REPEAT операторы

UNTIL <условие>

аналогично:

DO

операторы

LOOP UNTIL <условие> REPEAT

операторы UNTIL FALSE

аналогично:

DO

операторы LOOP

WHILE <условие> операторы

ENDWHILE (ИЛИ WEND)

аналогично:

DO WHILE <условие> операторы

LOOP

17. DPOKE адрес, число

Клавиша: P

См. также DPEEK (адрес), число

DPOKE означает "двойной" РОКЕ.

Этот оператор засылает двухбайтное число в две адресных ячейки. Аналогичная конструкция в стандартном Бейсике имеет следующий вид:

POKE а,n INT(n/256)*256 POKE а+1,INT(n/256)

Здесь а адрес

n число (0...65535)

Другими словами, младший байт засылается по указанному адресу, а старший байт в следующий за ним адрес. Поскольку многие системные переменные "Спектрума" имеют именно такой двухбайтный формат, то их очень удобно изменять с помощью DPOKE. Аналогично функция DPEEK представляет "двойной" РЕЕК.

18. DRAW ТО x,y <,угол>

Здесь используются два ключевых слова стандартного Бейсика DRAW и ТО.

Этот оператор вычерчивает линию от текущей графической позиции до точки, заданной координатами x,y. Часто это более удобно, чем использовать стандартный DRAW, при котором задаются не абсолютные координаты, а величина относительного "смешения" по горизонтали и вертикали.

Пример:

10 FOR n=1 ТО 100

20 DRAW TO RND*255,RND*175

30 NEXT n

Если Вы зададите и третий параметр (угол), то сможете изображать кривые.

После TO Вы можете поставить оператор цвета PAPER, INK или атрибут, например OVER и т.п.

DRAW TO 10,10

DRAW TO INK 2;20,30 DRAW TO 100,90,1

18. EDIT <номер строки>

Клавиша: 0 (в обычном, не графическом режиме).

Это не то же самое, что SHIFT + "1". EDIT это ключевое слово. Оно предназначено для того, чтобы избежать утомительной последовательности: LIST выбор строки BREAK SHIFT + "1".

Для того, чтобы быть по настоящему полезным, EDIT должен вызываться без нажатия SHIFT клавиши. Но все буквенные клавиши уже заняты, а цифровые клавиши нужны для ввода номеров строк. В то же время, номера строк не начинаются с нуля, поэтому эту клавишу можно использовать.

Вы закончили набор какой либо строки. Нажали ENTER. Программа ждет ввода номера очередной строки. Вы нажимаете 0 и получаете ключевое слово EDIT (если даже оно и не появятся, все равно нуль в начале строки означает EDIT). Если после EDIT (или нуля) набрать номер нужной Вам строки и нажать ENTER, эта строка мгновенно будет помешена в нижнюю часть экрана для последующего редактирования.

Если номер строки не указан, то на редактирование поступит текущая строка. Дополнительно для упрощения редактирования введена возможность перемещать курсор по экрану "вверх"/"вниз" в рамках программной строки. Курсор не может вставать внутри ключевых слов, а занимает ближайший пробел. Если Вы попытаетесь поднять его выше, чем вершина строки или опустить ниже нижней строки экрана, он автоматически "прыгнет" в конец программной строки. Самый простой способ добавить что то к концу строки вызвать EDIT и затем нажать "курсор вверх".

9. EDIT строковая переменная

или EDIT ; числовая переменная

Клавиша: SHIFT + "5"

EDIT может применяться не только для удобного редактирования строк, но и для простого изменения программных переменных. Для этих целей нельзя использовать нуль в начале строки и введена возможность вызова EDIT нажатием SHIFT + "5" в графическом режиме. Можно также набрать слово EDIT по буквам в режимах KEYWORDS 3 или 4. Типичное применение внесение изменений в строковые переменные, например для изменения фамилии, имени, отчества, адреса в массиве данных, представляющем из себя базу данных.

Такой массив мог быть заполнен, например с помощью INPUT. Если теперь надо в нем что то изменить, то это трудоемкая задача для обычного БЕЙСИКа, а здесь с помощью EDIT а$(n) Вы получаете содержимое строки "n" в области редактирования. Рассмотрим пример:

10 LET a$ = "John Brown"

20 EDIT а$

30 PRINT a$

40 LET num=365.253

50 EDIT ; num

60 PRINT num

В строке 50 применен знак ";" для того, чтобы отличить режим EDIT <числовая переменная> от режима EDIT <номер строки>. Можно было бы, однако, вместо точки с запятой использовать и запятую, но в этом случае редактируемая переменная была бы изображена, начиная с 16 ой позиции экрана.

EDIT имеет синтаксис, очень похожий на INPUT. Вы можете использовать точку с запятой, запятую, AT, TAB, LINE и строковую подсказку точно так же, как обычно это делают с оператором INPUT. Отличие в том, что редактировать можно только одну переменную. Если Вы попробуете редактировать несколько, то все прочие, кроме первой, будут восприняты, как операторы INPUT. Нижеследующий пример показывает, как можно создавать массивы и редактировать их:

10 DIM а$(10, 15)

20 FOR n=1 то 10

30 INPUT а$(n)

40 NEXT n

50 PRINT "Редактирование"

60 FOR n=1 ТО 10

70 EDIT ("запись ";n;" ");а$(n)

80 NEXT n

Если переменная, подлежащая редактированию в EDIT не существует, то команда полностью эквивалентна INPUT.

20. ELSE <оператор>

Клавиша: Е

ELSE один из элементов конструкции IF THEN. Обычно, если условие, стоящее после if несправедливо (ложно), то следующей выполняется строка, стоящая за строкой, содержащей этот IF. Этот порядок можно изменить. Если IF и THEN содержат еще и ELSE, то в случае, когда условие не выполняется, управление передается оператору, стоящему после ELSE. С другой стороны, если условие справедливо, то строка IF исполняется только до ELSE и затем управление передается следующей строке (если THEN не передал его в иное место).

Например:

10 INPUT "Задайте число ";х

20 PRINT "Это число равно 1?"

30 PAUSE 50

40 IF x=1 THEN PRINT "ДА": ELSE PRINT "НЕТ"

50 GO TO 10

Однако, ситуация может быть осложнена, если на одной строке у Вас есть несколько IF THEN ELSE. Тогда может быть трудным определить, что же к чему относится. Приведенные ниже примеры помогут Вам разобраться.

┌──────┐

││

IF..THEN...:IF..THEN...:ELSE...

┌────────────────────────────┐

IF..THEN..ELSE..:IF..THEN..:ELSE

Если ELSE используется без IF, например, когда ELSE стоит первым оператором строки, то и ELSE и остальная часть строки игнорируются.

21. END PROC

Клавиша: 3

См. также раздел, посвященный процедурам PROCEDURES; DEF PROC.