teger; c: word); {виводить точку з координатами (х, у) кольором з}
.2 Графічні функції
- визначає максимальний розмір екрану по осі x. - визначає максимальний розмір екрану по осі y. - координата поточної позиції курсору по осі x. - координата поточної позиції курсору по осі y.
Машинні координати.
Початок машинної системи координат, напрям осей, а також максимальні значення координат монітора, відповідно з малюнком 6
В
Малюнок 6 - Машинна система координат
На малюнку наведена також машинна (xm, ym) і фізична (x, y) системи координат. Для зображення на екрані точки з фізичними координатами (x, y) необхідно визначити її машинні координати (xm, ym). Розрахункові формули мають такий вигляд (спробуйте самостійно отримати ці формули):
xm = x0 + x * Mx, = y0-y * My,
де Mx, My-масштаби відповідно по осях x і y, які показують число пікселів в одній фізичній одиниці,, y - фізичні координати точки,, ym - машинні координати точки,, y0 - машинні координати початку фізичної системи координат.
Приклад. Намалювати через весь екран горизонтальну і вертикальну лінії, що перетинаються в центрі монітора. p> Етапи розробки програми зведені в таблицю.
Таблиця 1 - Розробка програми
Етапи программированияВыполнениеПостановка задачіНарісовать через весь екран горизонтальну і вертикальну лінії, що перетинаються в центрі монітора.Математіческое опісаніеІзобразім вигляд екрану із зазначенням координат необхідних ліній відповідно з малюнком 7
Малюнок 7 - Математичне опісаніе.Разработка структограммиОпісаніе gd, gm: integer Імітація графіки Малювання лінії Закриття графікіНапісаніе программиProgram P5; Uses graph; {підключення граф. модуля} Var gd, gm: integer; Begin gd: = detect; {визначення граф. драйвера} InitGraph (gd, gm, ); {ініціалізація графіки} Line (0, round (GetMaxY/2), GetMaxX, Round (GetMaxY /2)); {гориз. лін. } Line (round (GetMaxX/2), 0, Round (GetMaxX/2), GetMaxY); {вертик. лін. } Readln; {порожній введення} CloseGraph; {закриття графіки} End.Отладка та отримання результатовВиполніть самостійно
Модуль Graph
ТР має досить різноманітними засобами для роботи зі стандартним VGA екраном (можливо також використання і та інших типів відеоадаптерів). адаптер має дозвіл 640х480 піксел (точка (0,0) в лівому верхньому кутку екрану), 16 кольорів.
Перед початком роботи з графікою необхідно її ініціалізувати, а по закінченні - "закрити". Всі графічні процедури і функції знаходяться в модулі Graph, тому також необхідно його підключення. p align="justify"> Загальна структура графічної програми:
Uses crt, graph;
var Gd, Gm: Integer;: = Detect; (Gd, Gm, '...