Basic - вводный курс

http://www.infodez.ru/


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

Задача 74

' Исходные данные для прямоугольников
' В каждом DATA координаты диагоналей и цвет
DATA 30, 50, 130, 150, 1
DATA 160, 100, 280, 170, 4
DATA 300, 180, 450, 270, 14
1 Считывание данных и построение прямоугольников
SCREEN 9
READ XI, Yl, X2, Y2, С
LINE (Xl, Y1)-(X2, Y2), С, BF
READ XI, Yl, X2, Y2, С
LINE (XI, Y1)-(X2, Y2), C, BF
READ XI, Yl, X2, Y2, С
LINE (XI, Y1)-(X2, Y2), C, BF
END

Назад Начало Вперед