Существует другой способ
ввода данных. Он применяется в том случае, если эти данные заранее известны.
Тогда мы организуем в программе некое подобие склада (с помощью оператора 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 мы выполним,
когда научимся пользоваться оператором цикла.
