Иллюстрированный самоучитель по Basic, вводный курс

Операторы DATA и READ

Существует другой способ ввода данных. Он применяется в том случае, если эти данные заранее известны. Тогда мы организуем в программе некое подобие склада (с помощью оператора data), а потом при помощи оператора read последовательно считываем эти данные в запрашиваемые переменные, в которых они хранятся и обрабатываются. Удобство этого способа в том, что не приходится каждый раз при запуске программы вводить исходные данные (особенно, когда их много), а также в простоте изменения исходных данных.

Приведем пример программы.

DATA 13, 17, 19
READ A
? А
READ A
? а
READ А
? А

На "складе" data хранятся три числа – 13, 17 и 19. Первый оператор read читает со "склада" число 13 и записывает его в переменную а, а затем оператор print выводит ее значение на экран. Потом считывается второе число – 17, вместо старого значения 13 в переменную а записывается новое – 17, которое тоже выводится на экран. Аналогичные действия происходят и в третий раз с последним числом со "склада"

Предупреждение
В программе можно использовать несколько операторов data, причем они могут быть расположены в любых местах программы. Все они рассматриваются как единый "склад". А данные считываются все равно последовательно сверху вниз и слева направо
.

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

DATA 1, 2, 4
READ А, В
DATA 8
? А, В
READ А, В
? А, В
READ А, В
? А, В
DATA 16, 32

При выполнении оператора data может возникнуть сообщение об ошибке типа "Нет данных". Подобная ошибка возникает при попытке чтения уже закончившихся данных. Если данных во всех операторах data шесть, то и считать их можно только шесть раз.

Можно восстановить все данные, хранящиеся в data командой RESTORE.

А теперь маленькие задания.

74. Напишите программу, рисующую три закрашенных прямоугольника с заданными координатами диагоналей и цветами.

75. Задайте в операторах data четыре строки любого стихотворения и напишите программу, выводящую их на экран.

Еще ряд заданий на операторы data и read мы выполним, когда научимся пользоваться оператором цикла.

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.