Графічний режим
writeln ('Помилка ініціалізації');
Стандартна функція графрезультату - виробляє значення 0 - якщо ініціалізація пройшла успішно.
Побудова найпростіших фігур у графічному режимі.
putpixel(X, Y: integer, color: word); - Процедура відображення (пікселі) точки на екрані, де: X, Y- координати точки, color - колір.
cetpixel(X, Y: integer): слово; - функція визначення номера кольору точки (пікселі) із координатами (X, Y).
line(X1, Y1, X2, Y2: integer); - Малюється лінія від точки з координатами (X1, Y1) до точки з координатами (X2, Y2).
lineto(X, Y); - малюється лінія від поточного покажчика до точки координат (X, Y).
linerel(dx, dy); - від поточного покажчика до точки з координатами (x + dx, y + dy), де (x, y) – координати поточного покажчика.
setlinestyle (тип, шаблон, товщина); - Задається стиль лінії.
Якщо не 4 (корист.) - то шаблон задається 0
Setlinestyle (0, 0, 3) - суцільна лінія завтовшки 3.
rectangle(X1, Y1, X2, Y2: integer); - процедура побудови прямокутника, де X1, Y1 – координати лівого верхнього, X2, Y2 – нижнього правого кутів прямокутника.
bar(X1, Y1, X2, Y2: integer); - процедура побудови прямокутників, внутрішня область якого залита за поточним шаблоном, де X1, Y1 – координати лівого верхнього кута, X2, Y2 – правого нижнього кута прямокутника. Використовується для побудови діаграм.
bar 3d(X1, Y1, X2, Y2: integer; d3: word; top: boolean); - малює паралелепіпед. Лицьова сторона заливається за поточним шаблоном.
d3 - параметр, що задається в пікселях, визначає глибину паралелепіпеда.
top = TRUE – відображати
top = FALSE – невідображати верхню площину. (Стовпці малюються один на одному - верхня площина не потрібна).
circle(X, Y: integer, rad: word); - процедура побудови кіл, де X, Y - координати центру кола, rad - радіус.
ellipse(X, Y: integer, sstart, send: word, XR, YR: word); - Процедура побудови еліптичної дуги. X, Y – координати центру, sstart, send – початок, кінець дуги.
Якщо встановити sstart = 0, а send = 359 - намалюється повний еліпс. XR, YR - горизонтальний та вертикальний радіуси.
arc(X, Y: integer, sstart, send, rad: word); - Побудова частини дуги кола, де X, Y - центр, sstart, send - початок і кінець дуги, rad - радіус.
Якщо sstart = 0 і send = 359 – малюється повне коло.
fillellipse(X, Y: integer, XR, YR: word); - Побудова зафарбованого еліпса.
pieslice(X, Y: integer, sstart, send, rad: word); - Побудова зафарбованого сектора або всього кола, якщо sstart = 0; send = 359.
setcolor(color: word); - процедура завдання кольору, який використовується процедурами графічного виведення (color – параметр кольору).
setbrcolor(color: word); - Процедура завдання кольору фону. За замовчуванням – для зображення використовується колір із максимальним номером, а для фону – з мінімальним.
setfillstule(pat: word, color: word); - процедура встановлює тип (pat) та колір (color) заповнення.
floodfill(X, Y: integer, color: word); - Заповнення замкнутого контуру. Колір і стиль заповнення задається процедурою setfillstyle. X, Y - координати точки всередині або поза замкнутим контуром, color - колір контуру.
Калькулятор
Сервіс безкоштовної оцінки вартості роботи
- Заповнітьзаявку. Фахівці розрахують вартість вашої роботи
- Розрахунок вартості прийде на пошту та по СМС
Номер вашої заявки
Зараз на пошту прийде автоматичний лист-підтвердження з інформацією про заявку.