- •Введение
- •1. Начальные сведения
- •1.1. Назначение и применение эвм
- •1.2. Этапы решения задач на эвм
- •2. Описание языка basic
- •2.1. Общая характеристика алгоритмического языка basic
- •2.2. Символы языка basic
- •2.3. Простейшие конструкции языка basic
- •Примеры записи чисел на basiCе
- •Стандартные функции
- •2.4. Арифметические выражения
- •2.5. Структура программы на языке basic
- •2.5.1. Программы линейной структуры на языке basic
- •Определение нестандартных функций оператором def fn.
- •2.5.2. Программы ветвящейся структуры
- •1) If «условие» then (или go to) n;
- •2) If «условие» then «действие»;
- •3) If «условие» then «действие 1» else «действие 2»;
- •4) If «условие 1» then
- •2.5.4. Программирование с использованием массивов.
- •Печать p-s
- •Печать t
- •Печать s(I)
- •3.Программирование с использованием подпрограмм.
- •4. Обработка графической информации
- •4.1. Графические операторы бейсика
- •4.1.1. Установка режима экрана
- •4.1.2. Оператор задания цвета
- •4.1.3. Очистка экрана
- •4.1.4. Построение точки
- •4.1.5. Построение линий и прямоугольников
- •4.1.6. Построение окружности
- •4.1.7. Заливка
- •4.1.8. Построение дуг
- •4.2. Круговая диаграмма
- •Logate строка, столбец, курсор,
- •4.3. Построение эллипса
- •4.4.Построение ломаных
- •4.5. Команды перемещения
- •4.6. Задание цвета изображений
- •4.7. Поворот изображений
- •4.8. Масштабирование изображений
- •4.9. Построение графика функции.
- •5. Программа.
- •Литература
4.6. Задание цвета изображений
Раскрашивание изображения в разные цвета осуществляется
командой CN , которая задает цвет всех точек и отрезков , которые рисуются следующими за ней командами.
Пример 19. (Нарисуем цветной дом).
SCREEN 12, 0
CLS
DRAW “ C3 U20 E20 F20 D20 L39”
DRAW “ BM 170, 90 P2, 3 “
В строке 30 нарисовали замкнутую линию ( дом ). В строке 40 команда ВМ переместила курсор внутрь многоугольника. Команда Р2,3 закрасила внутренность многоугольника фиолетовым цветом.
4.7. Поворот изображений
Изображения можно перемещать с помощью команды АN ,
которая поворачивает каждый из отрезков последующих за ней
команд на угол, равный N 90 градусов
Пример 20. Изображение стрелок, иллюстрирующих изменение
информационных потоков.
Программа последовательно рисует четыре повернутые относительно друг друга разноцветные стрелки.
SCREEN 12, 0
FOR I = 0 TO 3
CLS
DRAW “ A =I; C = I; U10 R50 U5 F15 G15 U5 L50 U10”
NEXT I.
В строке 40 использованы имена переменных “– имя переменной”.
Отрезок можно поворачивать с помощью команды TAN ,
которая поворачивает каждый из отрезков, последующих за ней
команд на произвольный угол от -360 до 360 градусов.
Пример 21. Изображение секундной стрелки плавно описывающую круг.
SCREEN 12, 0
FOR I = 0 TO 360 STEP 3
DRAW “ CO NU50 TA = I;” Стирание стрелки
DRAW “ C1 NU50 “ Восстановление стрелки
NEXT I.
По команде NU проводятся отрезки прямых линий длиной 50
пикселей. Курсор возвращается в первоначальную позицию – сначала вертикальную вверх, затем под увеличивающимся углом. Угол задается параметром ТА = I.
4.8. Масштабирование изображений
Масштабирование изображений позволяет увеличивать/ уменьшать отрезки. Масштабирование задается командой SN. После этой команды длины отрезков, вычерченные последующими команда ми, будут уменьшены или увеличены.
Коэффициент масштабирования вычисляется как N / 4.
4.9. Построение графика функции.
Масштабирование изображений позволяет уменьшить или уве-
личить рисунки на экране , соблюсти пропорции фигур и соот-
ветствие между некоторыми изображениями.
Пример 22. Построить оси координат и график функции Y = SIN(x)
на отрезке [ -10; 10 ] с шагом 1. Точка пересечения осей должна
располагаться в центре экрана. Перевести декартовы координаты
в пиксельные для конкретного режима экрана. Составить программу.
1. Выберем режим экрана. Режим установим оператором
SCREEN 12,
т. е. 640 пикселей по оси Х, и 480 пикселей по оси У .
2. Масштабируем по оси Х. Координата Х меняется на отрезке
Х = [-10; 10 ]
В новых, пиксельных координатах XPIC меняется на отрезке
[0; 640], так как максимальное число точек в строке 640:
XPIC = [0; 640].
Коэффициент масштабирования по Х равен
KOEFX = 640/(10 + 10) = 32.
Формула связи декартовых и пиксельных координат для Х
XPIC = ( X- A ) * KOEFX
3. Масштабирование по У. Оценим функцию Y = SIN( x ).
Определим наибольшее по модулю значение функции
на выбранном отрезке [-10; 10]
MAX = 1.
Координата У меняется на отрезке [-1; 1]
В новых, пиксельных координатах YPIC меняется на отрезке
[0; 480], так как максимальное число точек по вертикали 480
YPIC = [ 0; 480 ].
Коэффициент масштабирования по У равен
KOEFY = 480/( MAX*2) = 480/(1*2) = 240
Формула связи декартовых и пиксельных координат для У
YPIC = ( MAX – SIN(X) ) * KOEFY.
4. Построение осей координат. Центр экрана должен совпа-
дать с центром декартовых координат. Для этого должны выпол-
няться соотношения :
YOPIC = 480/2 =240;
XOPIC= 640/2 = 320
По полученным данным строим оси координат.