код (ціле число), залежно від того, як пройшло виконання будь-якої графічної процедури або функції. Код 0 (grOk) - успішне виконання. У наведеному вище прикладі програми Ex_1, дана функція застосовується для перевірки того, як пройшла ініціалізація графічного режиму. Подальша робота цієї програми можлива лише тоді, коли код функції GraphResult дорівнює grOk. p align="justify"> Вимкнення графічного режиму.
Все вищевикладене необхідно знати кожному грамотному користувачеві IBM-сумісних комп'ютерів. Проте в нашій лабораторної работедостаточно використовувати конструкцію, використану в першому прикладі, для включення графічного режиму. (І не страшно, якщо в ній не все зрозуміло.) p align="justify"> Система координат.
Для того, щоб ми могли що-небудь намалювати на екрані, нам потрібно вміти задавати положення на екрані того, що ми малюємо. Для цього з екраном зв'язується система координат наступного виду відповідно з малюнком 2
В
Рисунок 2 - Система координат в pascal.
Зверніть увагу. Точка 0,0 знаходиться в лівому верхньому кутку. Звична для нас система координат "перевернута". p> Кожна точка на екрані насправді являє собою дуже маленький прямокутник (і оскільки це не зовсім точка, те іноді використовують спеціальний термін - "піксель"). Кількість точок (пікселів), що вміщується на екрані по вертикалі і горизонталі, називають роздільною здатністю. Роздільна здатність екрану в режимі VGAhi - 640x480. Це означає, що по горизонталі на екрані вміщається 640 точок, а по вертикалі - 480. p align="justify"> 2 Процедури і функції графічного режиму
2.1 Графічні процедури
(x, y: integer; St, En, R: word), {малювання дуги, де x, y - коорд. центру дуги, R - радіус, St, En - поч. і кінцевий кути. виду відповідно з малюнком 3}
В
Рисунок 3 - Процедура Arc
; {очищення екрана} (x, y: integer; R: word); {коло радіуса R cцентром в точці (x, y)}; {закриття графіки} (gd, gm: integer; Path: string); {ініціалізація графіки, де-графічний драйвер, - графічний режим, - шлях розміщення файлу
з розширенням. bgi. } (X1, y1, x2, y2: integer); {малювання лінії, що проходить через дві точки: з координатами (x1, y1) і (x2, y2)} (dx, dy: integer); {малювання лінії: dx, dy - прирости координат до координат поточної позиції курсору відповідно з малюнком 4}
В
Малюнок 4 - Процедура LineRel.
(x, y: integer); {малювання лінії, що проходить через поточну
позицію курсору і точку з координатами (x, y)} (x, y: integer); {завдання координат поточної точки} (T: string); {висновок тексту в поточну точку} (x, y: integer; T : string); {висновок тексту в точку з координатами х, у} (x1, y1, x2, y2: integer); {малювання прямокутника: (x1, y1) і (x2, y2) - координати протилежних вершин відповідно з малюнком 5}
В
Малюнок 5 - Процедура Rectangle
(x, y: in...
