Графіка в паскаль

Запуск графічного режиму в Паскаль. Висновок точки на екран.

У рядку №2 оголошуємо модулі CRT і GRAPH. Без цих модулів графічний режим працювати не буде.

У рядку №8 записується процедура Initgraph. Ця процедура ініціалізує (запускає) графічний режим. В круглих дужках через кому записуються змінні «gd» і «gm». Також тут в лапках необхідно вказати шлях до програми - драйверу з розширенням bgi. За замовчуванням, після установки Паскаль на комп'ютер ця програма - драйвер знаходиться в директорії fpc / units / i386-win32 / graph. Для того щоб не вказувати шлях до програми - драйверу (як в нашому прикладі) необхідно в директорії fpc / units / i386-win32 / graph скопіювати 2 файли: graph.o і graph.ppu, і вставити їх в директорію fpc / bin / i386 -win32. Таким чином, ці файли, що відповідають за графічний режим, тепер знаходяться в поточній директорії. І нам не потрібно вказувати до них шлях, досить поставити лапки.

Рядок №9 і №10 говорить про те, що якщо ініціалізація була успішною, то програма зупиниться.
У рядку №17 задаємо процедуру, яка закриває графічний режим і робить екран знову текстовим.
Запам'ятайте ці рядки (№2,3,7,8,9,10,17). Їх можна використовувати в якості шаблону при написанні програм, які вимагають запуску графічного режиму.

У рядку №4 ми оголошуємо змінну color. У неї ми будемо записувати значення для кольору пікселів. Всього в Паскалі є 15 різних кольорів. Вони позначаються цілими числами від 0 до 15. Тому для змінної color ми вказуємо тип даних byte (цілий тип 0 ... 255).

Рядок №11. Процедура Randomize инициализирует датчик випадкових чисел.

У рядку №12 починається цикл, який повторюється до тих пір, поки ми не натиснемо на якусь клавішу (рядок №16) (until keypressed означає: до тих пір, поки Ви не натиснете). Цикл буде діяти на 3 оператора, які перебувають в рядках №13 - №15.

У рядку №13 ми присвоюємо змінної color випадкове число від 1 до 15, за допомогою функції Random.

У рядку №14 викликаємо процедуру Putpixel. Ця процедура створює точку на екрані в графічному режимі (Putpixel від англ. - поставити піксель). В круглих дужках вказуються координати цієї точки і її колір. У нашому прикладі координати мають значення (random (100), random (100)). Тобто координати будуть генеруватися випадково. Колір має значення «color». Він також генерується випадково (рядок №13). Як бачите змінну «color» для визначення кольору можна було не створювати. Досить було в рядку №14 замість «color» записати «random (15)». Таким чином, у нас виходить, що процедура putpixel буде виводити на екран точку з випадковими координатами і кольором.

У рядку №15 викликається процедура Daley. Прoцедура Daley використовується для затримки дій в циклі. В круглих дужках вказується час затримки. Daley (1000) може призвести до затримок у одну секунду. Таким чином, виходить що точки (пікселі) будуть виводиться на екран з затримкою в 0,01 с.

Після запуску програми відкриється консольне вікно програми Pascal. в якому нічого не буде, а через кілька секунд відкриється 2-е вікно - графічне, де можна буде побачити результати роботи програми.

Закрити графічне вікно можна, натиснувши на хрестик в правому верхньому куті графічного екрану, або натиснувши на будь-яку клавішу в текстовому режимі.