Основи алгоритмізації та програмування Процедури і функції побудови графічних зображень

Exit Графічні координати Початком координат вважають верхній лівий куток аркуша. Вісь Х направлена зліва направо, Y – з гори до низу. Для всіх графічних функцій координати задають в формі (X,Y). (0,0)X Y

Exit Принципи виведення зображення Для графічних зображень, якщо координати при побудові виходять за межі аркуша, то інформація за межами аркуша ігнорується. При спробі виведення тексту під час роботи операторів Read, ReadLn та Write, WriteLn за нижню межу аркуша все зображення посувається угору на величину висоти символу.

Exit Встановлення кольору тексту Активний (поточний) колір тексту встановлюють за допомогою звертання до процедури КолірТексту: Procedure TextColor ( r, g, b : integer); Параметри r, g, b є виразами цілого типу і задають частки червоного, зеленого та синього кольору в результуючому кольорі тексту. Встановленим кольором буде відображатись уся текстова інформація, яка виводиться на екран процедурами Read та Write. Значення фактичних параметрів при звертанні до процедури КолірТексту мають належати до діапазону По замовчуванню встановлений чорний колір тексту (0,0,0). Активний (поточний) колір тексту встановлюють за допомогою звертання до процедури КолірТексту: Procedure TextColor ( r, g, b : integer); Параметри r, g, b є виразами цілого типу і задають частки червоного, зеленого та синього кольору в результуючому кольорі тексту. Встановленим кольором буде відображатись уся текстова інформація, яка виводиться на екран процедурами Read та Write. Значення фактичних параметрів при звертанні до процедури КолірТексту мають належати до діапазону По замовчуванню встановлений чорний колір тексту (0,0,0).

Exit Приклад встановлення кольору тексту Натисніть лівою кнопкою миші на малюнку, щоб викликати середовище АЛГО із прикладом тексту програми, виконайте її. Змініть параметри процедури TextColor та, виконавши програму знову, зверніть увагу на зміну кольору тексту. Натисніть лівою кнопкою миші на малюнку, щоб викликати середовище АЛГО із прикладом тексту програми, виконайте її. Змініть параметри процедури TextColor та, виконавши програму знову, зверніть увагу на зміну кольору тексту.

Exit Вибір шрифту Активний (поточний) шрифт для виведення тексту встановлюють за допомогою звертання до процедури Шрифт: Procedure Font ( h, a, b : integer ) де h - висоту пікселях, a -кут нахилу в градусах, b - насиченість шрифту. Насиченість задають числом з діапазону Звичайний шрифт має насиченість 400, а жирний Встановленим шрифтом буде відображатись уся текстова інформація, яка виводиться на екран процедурами Read та Write. Фактичними параметрами при звертанні до процедури Шрифт мають бути вирази цілого типу. За замовчуванням встановлений шрифт (8,0,400). Зауваження: не всі шрифти передбачають можливість виводу тексту під довільним кутом. Активний (поточний) шрифт для виведення тексту встановлюють за допомогою звертання до процедури Шрифт: Procedure Font ( h, a, b : integer ) де h - висоту пікселях, a -кут нахилу в градусах, b - насиченість шрифту. Насиченість задають числом з діапазону Звичайний шрифт має насиченість 400, а жирний Встановленим шрифтом буде відображатись уся текстова інформація, яка виводиться на екран процедурами Read та Write. Фактичними параметрами при звертанні до процедури Шрифт мають бути вирази цілого типу. За замовчуванням встановлений шрифт (8,0,400). Зауваження: не всі шрифти передбачають можливість виводу тексту під довільним кутом.

Exit Приклад вибору шрифту Натисніть лівою кнопкою миші на малюнку, щоб викликати середовище АЛГО із прикладом тексту програми, виконайте її. Змініть параметри процедури Font та, виконавши програму знову, зверніть увагу на зміну фонту тексту. Натисніть лівою кнопкою миші на малюнку, щоб викликати середовище АЛГО із прикладом тексту програми, виконайте її. Змініть параметри процедури Font та, виконавши програму знову, зверніть увагу на зміну фонту тексту.

Exit Активні графічні параметри Під час виведення текстової чи графічної інформації необхідно вказати, куди саме виводити: зверху, посередині чи внизу, а також колір тексту, ліній та заповнення. Вказувати цю інформацію в кожному операторі було б дуже незручно. Тому система запам'ятовує значення координат точки, в якій завершилося виведення інформації та параметри вибраних інструментів. Ці значення називають активними. У момент запуску програми на виконання встановлюються нульові координати (верхній лівий куток екрану), чорний олівець одиничної товщини та чорний колір тексту. Колір заповнення замкнених фігур (колір пензля) вибирається прозорий, тобто замкнені фігури не зафарбовуються. В процесі роботи програми активні координати міняються так, щоб наступне виведення здійснювалося там, де закінчилося попереднє. Під час виведення текстової чи графічної інформації необхідно вказати, куди саме виводити: зверху, посередині чи внизу, а також колір тексту, ліній та заповнення. Вказувати цю інформацію в кожному операторі було б дуже незручно. Тому система запам'ятовує значення координат точки, в якій завершилося виведення інформації та параметри вибраних інструментів. Ці значення називають активними. У момент запуску програми на виконання встановлюються нульові координати (верхній лівий куток екрану), чорний олівець одиничної товщини та чорний колір тексту. Колір заповнення замкнених фігур (колір пензля) вибирається прозорий, тобто замкнені фігури не зафарбовуються. В процесі роботи програми активні координати міняються так, щоб наступне виведення здійснювалося там, де закінчилося попереднє.

Exit Встановлення кольору та товщини ліній Активний (поточний) колір та товщину ліній встановлюють за допомогою процедури Олівець: Procedure Pen ( n, r, g, b : integer ) де n задає товщину лінії в пікселях, а r, g, b - задають частки червоного, зеленого та синього в результуючому кольорі ліній. Встановленим кольором будуть відображатись усі лінії, які малюють за допомогою процедур LineTo, Line, Rectangle, Ellipse, Point. Фактичними параметрами при звертанні до процедури Олівець мають бути вирази цілого типу, значення яких знаходиться в діапазоні По замовчуванню встановлений чорний колір ліній (0,0,0) і одинична товщина. Активний (поточний) колір та товщину ліній встановлюють за допомогою процедури Олівець: Procedure Pen ( n, r, g, b : integer ) де n задає товщину лінії в пікселях, а r, g, b - задають частки червоного, зеленого та синього в результуючому кольорі ліній. Встановленим кольором будуть відображатись усі лінії, які малюють за допомогою процедур LineTo, Line, Rectangle, Ellipse, Point. Фактичними параметрами при звертанні до процедури Олівець мають бути вирази цілого типу, значення яких знаходиться в діапазоні По замовчуванню встановлений чорний колір ліній (0,0,0) і одинична товщина.

Exit Проведення лінії між двома точками Лінію між двома точками проводять за допомогою звертання до стандартної процедури Лінія: Procedure Line ( x1, y1, x2, y2 : integer ) де (x1, y1) та (x2, y2) - координати кінців лінії. Фактичними параметрами при звертанні до процедури Лінія мають бути вирази цілого типу. Лінія буде проведена активним олівцем. Після виконання процедури активна графічна позиція встановлюється в точку з координатами (x2,y2). Лінію між двома точками проводять за допомогою звертання до стандартної процедури Лінія: Procedure Line ( x1, y1, x2, y2 : integer ) де (x1, y1) та (x2, y2) - координати кінців лінії. Фактичними параметрами при звертанні до процедури Лінія мають бути вирази цілого типу. Лінія буде проведена активним олівцем. Після виконання процедури активна графічна позиція встановлюється в точку з координатами (x2,y2).

Exit Приклад встановлення кольору та товщини ліній та проведення лінії між двома точками Натисніть лівою кнопкою миші на малюнку, щоб викликати середовище АЛГО із прикладом тексту програми, виконайте її. Змініть параметри процедур Pen і Line та, виконавши програму знову, зверніть увагу на зміни результату роботи програми. Натисніть лівою кнопкою миші на малюнку, щоб викликати середовище АЛГО із прикладом тексту програми, виконайте її. Змініть параметри процедур Pen і Line та, виконавши програму знову, зверніть увагу на зміни результату роботи програми.

Exit Встановлення поточних координат Активна графічна позиція встановлюється в точку з координатами (x, y) процедурою Перемістити: Procedure MoveTo ( x, y : integer) Фактичними параметрами наведеної процедури є вирази цілого типу, значення яких задають нові координати активної графічної позиції. Активна графічна позиція встановлюється в точку з координатами (x, y) процедурою Перемістити: Procedure MoveTo ( x, y : integer) Фактичними параметрами наведеної процедури є вирази цілого типу, значення яких задають нові координати активної графічної позиції.

Exit Проведення лінії до точки Коли наступна лінія починається з кінця попередньої, як буває при побудові ламаних ліній чи графіків, або будується із активної графічної позиції (поточних координат), зручно користуватись процедурою ЛініяДо: Procedure LineTo ( x, y : integer ) де (x, y) - координати кінця лінії. Лінія починається від активної графічної позиції. Фактичними параметрами при звертанні до процедури ЛініяДо мають бути вирази цілого типу. Лінія буде проведена вибраним олівцем. Після виконання процедури ЛініяДо активна графічна позиція встановлюється в точку з координатами (x, y). Коли наступна лінія починається з кінця попередньої, як буває при побудові ламаних ліній чи графіків, або будується із активної графічної позиції (поточних координат), зручно користуватись процедурою ЛініяДо: Procedure LineTo ( x, y : integer ) де (x, y) - координати кінця лінії. Лінія починається від активної графічної позиції. Фактичними параметрами при звертанні до процедури ЛініяДо мають бути вирази цілого типу. Лінія буде проведена вибраним олівцем. Після виконання процедури ЛініяДо активна графічна позиція встановлюється в точку з координатами (x, y).

Exit Приклад встановлення поточних координат та проведення лінії до точки Натисніть лівою кнопкою миші на малюнку, щоб викликати середовище АЛГО із прикладом тексту програми, виконайте її. Змініть параметри процедур MoveTo і LineTo та, виконавши програму знову, зверніть увагу на зміни результату роботи програми. Натисніть лівою кнопкою миші на малюнку, щоб викликати середовище АЛГО із прикладом тексту програми, виконайте її. Змініть параметри процедур MoveTo і LineTo та, виконавши програму знову, зверніть увагу на зміни результату роботи програми.

Exit Намалювати крапку Щоб поставити (намалювати) крапку в точці з координатами (x, y), треба звернутись до процедури Крапка: Procedure Point ( x, y : integer ) Фактичними параметрами при звертанні до процедури Крапка мають бути змінні, константи чи вирази цілого типу. Колір крапки визначається активним кольором олівця. Після виконання процедури активна графічна позиція встановлюється в точку з координатами (x, y). Щоб поставити (намалювати) крапку в точці з координатами (x, y), треба звернутись до процедури Крапка: Procedure Point ( x, y : integer ) Фактичними параметрами при звертанні до процедури Крапка мають бути змінні, константи чи вирази цілого типу. Колір крапки визначається активним кольором олівця. Після виконання процедури активна графічна позиція встановлюється в точку з координатами (x, y).

Exit Приклад малювання крапки Натисніть лівою кнопкою миші на малюнку, щоб викликати середовище АЛГО із прикладом тексту програми, виконайте її. Змініть параметри процедури Point та, виконавши програму знову, зверніть увагу на зміни результату роботи програми. Натисніть лівою кнопкою миші на малюнку, щоб викликати середовище АЛГО із прикладом тексту програми, виконайте її. Змініть параметри процедури Point та, виконавши програму знову, зверніть увагу на зміни результату роботи програми.

Exit Побудова еліпса Еліпс будують за допомогою звертання до стандартної процедури Еліпс: Procedure Ellipse ( x1, y1, x2, y2 : integer ) де x1, y1 та x2, y2 - координати двох діаметрально протилежних вершин прямокутника, в який вписується еліпс. Фактичними параметрами при звертанні до процедури Еліпс мають бути вирази цілого типу. Еліпс буде побудований активним олівцем та зафарбований активним пензликом, або не зафарбований, якщо встановлений прозорий колір пензлика. Після виконання процедури активна графічна позиція не змінюється. Еліпс будують за допомогою звертання до стандартної процедури Еліпс: Procedure Ellipse ( x1, y1, x2, y2 : integer ) де x1, y1 та x2, y2 - координати двох діаметрально протилежних вершин прямокутника, в який вписується еліпс. Фактичними параметрами при звертанні до процедури Еліпс мають бути вирази цілого типу. Еліпс буде побудований активним олівцем та зафарбований активним пензликом, або не зафарбований, якщо встановлений прозорий колір пензлика. Після виконання процедури активна графічна позиція не змінюється.

Exit Побудова прямокутника Прямокутник будують за допомогою звертання до стандартної процедури Прямокутник: Procedure Rectangle ( x1, y1, x2, y2 : integer) де x1, y1 та x2, y2 - координати двох діаметрально протилежних вершин прямокутника. Фактичними параметрами при звертанні до процедури Прямокутник мають бути вирази цілого типу. Прямокутник буде побудований активним олівцем та зафарбований активним кольором пензля, або не зафарбований, якщо встановлений прозорий колір пензля. Після виконання процедури активна графічна позиція встановлюється в точку з координатами (x2, y2). Прямокутник будують за допомогою звертання до стандартної процедури Прямокутник: Procedure Rectangle ( x1, y1, x2, y2 : integer) де x1, y1 та x2, y2 - координати двох діаметрально протилежних вершин прямокутника. Фактичними параметрами при звертанні до процедури Прямокутник мають бути вирази цілого типу. Прямокутник буде побудований активним олівцем та зафарбований активним кольором пензля, або не зафарбований, якщо встановлений прозорий колір пензля. Після виконання процедури активна графічна позиція встановлюється в точку з координатами (x2, y2).

Exit Встановлення кольору заповнення Активний (поточний) колір заповнення встановлюють за допомогою звертання до процедури Пензель: Procedure Brush ( k, r, g, b : integer ) де r, g, b - задають частки червоного, зеленого та синього в результуючому кольорі заповнення, а параметр k задає стиль заповнення. Якщо k=1 то замкнені фігури зафарбовуються, а при k=0 встановлюється так званий прозорий колір заповнення, тобто фігури не зафарбовуються. Встановленим кольором будуть зафарбовуватись фігури процедурами Rectangle, Ellipse та Fill. Фактичними параметрами при звертанні до процедури Пензель мають бути змінні, константи чи вирази цілого типу, значення яких знаходиться в діапазоні В залежності від типу монітора операційна система може використовувати для заповнення суміш кольорів. В цьому випадку процедура Fill може працювати некоректно. Для отримання чистих кольорів в цьому випадку треба задавати значення r, g, b такі, щоб остача від ділення їх на 8 була рівна 7. Активний (поточний) колір заповнення встановлюють за допомогою звертання до процедури Пензель: Procedure Brush ( k, r, g, b : integer ) де r, g, b - задають частки червоного, зеленого та синього в результуючому кольорі заповнення, а параметр k задає стиль заповнення. Якщо k=1 то замкнені фігури зафарбовуються, а при k=0 встановлюється так званий прозорий колір заповнення, тобто фігури не зафарбовуються. Встановленим кольором будуть зафарбовуватись фігури процедурами Rectangle, Ellipse та Fill. Фактичними параметрами при звертанні до процедури Пензель мають бути змінні, константи чи вирази цілого типу, значення яких знаходиться в діапазоні В залежності від типу монітора операційна система може використовувати для заповнення суміш кольорів. В цьому випадку процедура Fill може працювати некоректно. Для отримання чистих кольорів в цьому випадку треба задавати значення r, g, b такі, щоб остача від ділення їх на 8 була рівна 7.

Exit Приклад побудови прямокутника та встановлення кольору заповнення Натисніть лівою кнопкою миші на малюнку, щоб викликати середовище АЛГО із прикладом тексту програми, виконайте її. Змініть параметри процедур Rectangle і Brush та, виконавши програму знову, зверніть увагу на зміни результату роботи програми. Натисніть лівою кнопкою миші на малюнку, щоб викликати середовище АЛГО із прикладом тексту програми, виконайте її. Змініть параметри процедур Rectangle і Brush та, виконавши програму знову, зверніть увагу на зміни результату роботи програми.

Exit Зафарбування замкненої області Щоб зафарбувати замкнену область, треба звернутись до процедури Зафарбувати: Procedure Fill ( x, y : integer ) Фактичними параметрами при звертанні до процедури Зафарбувати мають бути вирази цілого типу. Починаючи з точки з координатами x,y, процедура заповнює екран у всіх напрямках активним кольором пензля до тих пір, поки не зустрінеться межа іншого кольору, ніж колір вказаної точки (x,y). Іншими словами процедура Зафарбувати міняє колір замкненої області, всередині якої лежить точка (x,y) на активний колір пензля. Процедура Зафарбувати не виконує ніяких дій, якщо заданий прозорий колір заповнення або колір точки (x,y) співпадає з кольором заповнення. Щоб зафарбувати замкнену область, треба звернутись до процедури Зафарбувати: Procedure Fill ( x, y : integer ) Фактичними параметрами при звертанні до процедури Зафарбувати мають бути вирази цілого типу. Починаючи з точки з координатами x,y, процедура заповнює екран у всіх напрямках активним кольором пензля до тих пір, поки не зустрінеться межа іншого кольору, ніж колір вказаної точки (x,y). Іншими словами процедура Зафарбувати міняє колір замкненої області, всередині якої лежить точка (x,y) на активний колір пензля. Процедура Зафарбувати не виконує ніяких дій, якщо заданий прозорий колір заповнення або колір точки (x,y) співпадає з кольором заповнення.

Exit Приклад зафарбування замкненої області Натисніть лівою кнопкою миші на малюнку, щоб викликати середовище АЛГО із прикладом тексту програми, виконайте її. Змініть параметри процедур Fill і Brush та, виконавши програму знову, зверніть увагу на зміни результату роботи програми. Натисніть лівою кнопкою миші на малюнку, щоб викликати середовище АЛГО із прикладом тексту програми, виконайте її. Змініть параметри процедур Fill і Brush та, виконавши програму знову, зверніть увагу на зміни результату роботи програми.

Exit Витирання вікна результатів Для витирання аркуша (вікна результатів) використовують процедуру Стерти: Procedure Clear Крім витирання аркуша, процедура встановлює наступні значення активних (поточних) параметрів: a) чорний олівець товщиною 1; b) чорний колір тексту; c) прозорий колір заповнення; d) активну графічну позицію - (0, 0); e) активний шрифт - (8,0,400). Для витирання аркуша (вікна результатів) використовують процедуру Стерти: Procedure Clear Крім витирання аркуша, процедура встановлює наступні значення активних (поточних) параметрів: a) чорний олівець товщиною 1; b) чорний колір тексту; c) прозорий колір заповнення; d) активну графічну позицію - (0, 0); e) активний шрифт - (8,0,400).

Exit Визначення поточних координат Коли необхідно визначити координати активної графічної позиції, це можна зробити за допомогою процедури Координати: Procedure Coordinates( var x, y: integer) Фактичними параметрами процедури Координати повинні бути змінні цілого типу, яким у результаті виконання процедури надаються значення відповідних координат активної графічної позиції. Коли необхідно визначити координати активної графічної позиції, це можна зробити за допомогою процедури Координати: Procedure Coordinates( var x, y: integer) Фактичними параметрами процедури Координати повинні бути змінні цілого типу, яким у результаті виконання процедури надаються значення відповідних координат активної графічної позиції.

Exit Приклад визначення поточних координат Натисніть лівою кнопкою миші на малюнку, щоб викликати середовище АЛГО із прикладом тексту програми, виконайте її. Змініть параметри процедури Coordinates та, виконавши програму знову, зверніть увагу на зміни результату роботи програми. Натисніть лівою кнопкою миші на малюнку, щоб викликати середовище АЛГО із прикладом тексту програми, виконайте її. Змініть параметри процедури Coordinates та, виконавши програму знову, зверніть увагу на зміни результату роботи програми.

Exit Підсумки Ви ознайомилися із основними поняттями та процедурами побудови графічних зображень мовою Паскаль у середовищі програмування АЛГО. На наступному занятті ви закріпите отримані знання на практиці, створивши програму виконання заданого графічного зображення. Ви ознайомилися із основними поняттями та процедурами побудови графічних зображень мовою Паскаль у середовищі програмування АЛГО. На наступному занятті ви закріпите отримані знання на практиці, створивши програму виконання заданого графічного зображення.