Урок № 42

(згідно робочої навчальної програми)

Робота з кольорами

Питання для вивчення:

1. Принцип роботи з кольором.

2. Стандартні константи для завдання кольорів.

Паскаль працює в текстовому режимі, тобто інформація виводиться на екран у вигляді символів, які відображаються в окремих позиціях. Екран при цьому можна представити як таблицю з 25 рядків і 80 стовпців. Рядки нумеруються зверху вниз, стовпці - зліва направо.

Crt - екранний модуль

ClrScr - процедура очищення екрана

GoToXY (x, y) - процедура встановлення курсору в позицію з координатами x, y

TextBackGround (n) - виклик процедури для вибору фонового кольору

TextColor (n) - процедура вибору кольору видаються символів

Тут n - номер кольору. Символи можна виводити на екран 16 різними квітами, які кодуються числами від 0 до 15. Текст можна кодувати також і словами, наприклад:

TextColor (red) - ставимо червоний колір тексту

TextBackGround (blue) - задаємо синій фон

Модуль Graph містить константи і функції для роботи з кольорами. Тип ColorType, що описує колір, визначений таким чином:

type ColorType = integer;

Стандартні кольори задаються символічними константами:

clBlack — чорний

clPurple — фіолетовий

clWhite — білий

clMaroon — темно-червоний

clRed — червоний

clNavy — темно-синій

clGreen — зелений

clBrown — коричневий

clBlue — синій

clSkyBlue — блакитний

clYellow — жовтий

clCream - кремовий clAqua — бірюзовий

clOlive — оливковий

clFuchsia — бузковий

clTeal — синьо-зелений

clGray — темно-сірий

clLime — яскраво-зелений

clLtGray — світло-сірий

clDkGray — темно-сірий

clMedGray — сірий

clSilver — срібний

Для роботи з кольорами використовуються наступні функції. function RGB (r, g, b: integer): ColorType;

Повертає ціле значення, яке є кодом кольору, який містить червону, зелену і синю складові з інтенсивностями r, g і b відповідно (r, g і b - цілі в діапазоні від 0 до 255, причому, 0 відповідає мінімальній інтенсивності, 255 - максимальної) . function GetRed (color: ColorType): integer;

Виділяє червону складову з кольору color (ціле в діапазоні від 0 до 255);

function GetGreen (color: ColorType): integer;

Виділяє зелену складову з кольору color (ціле в діапазоні від 0 до 255);

function GetBlue (color: ColorType): integer;

Виділяє синю складову з кольору color (ціле в діапазоні від 0 до 255).

Питання для контролю вивченого матеріалу:

1. Яким чином відбувається робота з кольором на Pascal?

2. Опрацюйте матеріал, розробіть власну програму.

Література:

Меженний О.А.Turbo Pascal: М: Издательский дом «Вильямс», 2006. – 336 с., стор. 210-213

Урок № 43

(згідно робочої навчальної програми)

Робота з координатами

Питання для вивчення:

1. Координати, вікна, сторінки

Координати, вікна, сторінки. Будь-яке зображення формується з досить простих геометричних фігур. Це точки, відрізки прямих, кола і т.д. З геометрії відомо, що положення геометричного об'єкта і його форма задаються координатами його точок. Отже, для того щоб запрограмувати графічне вивведення, треба навчитись задавати координати графічних об'єктів.

Багато графічних процедур та функції використовують покажчик поточної позиції на екрані, який на відміну від текстового курсора невидимий. Положення цього покажчика, як і взагалі будь-яка координата на графічному екрані, задається щодо лівого верхнього кута, який, в свою чергу, має координати 0,0. Таким чином, горизонтальна координата екрану збільшується зліва направо, а вертикальна - зверху вниз.

Функції GetMaxX і GetMaxY. Повертають значення типу Word, що містять максимальні координати екрану в поточному режимі роботи відповідно по горизонталі і вертикалі.

Процедура SetViewPort. Встановлює прямокутне вікно на графічному екрані.

Procedure SetVievPort (X1, Y1, X2, Y2: Integer; ClipOn: Boolean);

Тут X1 .. Y2 - координати лівого верхнього (Х1, Y1) і правого нижнього (X2, Y2) кутів вікна; ClipOn - вираз типу Boolean, що визначає «Відсічення» не вміщується у вікні елементів зображення.

Процедура ClearDevice. Очищає графічний екран. Після звернення до процедурі покажчик встановлюється в лівий верхній кут, а сам екран заповнюється кольором фону, заданим процедурою SetBkColor.

Питання для контролю вивченого матеріалу:

1. Які існують засоби для роботи з координатами?

2. Яким модулем підключається графічний режим?

Література:

Меженний О.А.Turbo Pascal: М: Издательский дом «Вильямс», 2006. – 336 с., стор. 213-216