І Скляр - Я готуюсь до курсу інформатики. Алгоритмізація та програмування

GetCohr: word -функція повертає поточне значення основного кольору малювання (у діапазоні 0-15), встановлене раніше процедурою SetColor .

GetPixel(X,Y:mteger): word- функція повертає значення (колір) елемента зображення в точці ( X, Y ).

GetX: integer- функція повертає Х-координату поточного СР.

GetY: integer- функція повертає Y-координату поточного СР.

InitGraph- процедура ініціалізує графічну систему і переводить апаратну частину в графічний режим.

L4ne(Xl, Yl, X2, Y2 : integer) - процедура вичерчує пряму лінію (товщина і тип якої встановлений процедурою SetLineStyle , колір - процедурою SetColor ) із крапки ( X1, Y1 )y крапку ( Х2, Y2 ).

LineRel(Dx,Dy)- процедура вичерчує пряму лінію з точки поточного СР в точку, задану відносною відстанню ( Dx, Dy ) від поточного покажчика.

UneTo(X,Y: integer)- процедура малює пряму лінію з точки, у якій знаходиться поточний покажчик СР, у точку з координатами ( X, Y ).

MoveRel(Dx, Dy : integer) - процедура переміщує покажчик СР з поточної точки у точку, задану відносною відстанню (Dx, Dy).

MoveTo(X, Y: integer)- процедура переміщує поточний покажчик СР у точку з координатами (X, Y).

OutText (рядок: string)- процедура виводить текст «рядка» на монітор, починаючи з точки розташування покажчика СР.

OutTextXY(X, Y: integer; текст_рядок: string)- процедура виводить текст, що міститься у «текст_рядок», починаючи з точки, заданої координатами ( X, Y ). Якщо рядок занадто довгий і виходить за межі екрана чи поточної області перегляду, то він усікається.

PieSlice (X, Y: integer; нач_кут, кін_кут R: word)- процедура викреслює і заповнює поточним кольором сектор кола радіусом R . Точка ( X, Y ) -центр кола, а сектор малюється від початкового до кінцевого кута. Тип і колір зафарбування попередньо задається процедурою SetFillStyle .

PutPixelfX, Y: integer; ел_зображ : word)- процедура зафарбовує точку з координатами ( X, Y ) у колір, що визначається параметром «ел_зображ».

RectanglefXl, Yl, Х2, Y2: integer)- процедура вичерчує прямокутник, використовуючи поточний колір і тип лінії. ( X1, Y1 ) та ( Х2, Y2 ) - координати діагонально протилежних вершин прямокутника.

Sector (X, У: integer; поч_кут, кін_кут,Х_Радіус, Y_Padiyc: word)— процедура вичерчує і заповнює еліптичний сектор. ( X, У ) - центр кола, « ХРадіус », « YPaдiyc » - горизонтальний і вертикальний радіуси. Сектор креслиться від початкового « поч_кут » до кінцевого кута « кін_кут ». Сектор малюється поточним кольором і зафарбовується з використанням зразка зафарбування і кольорів, заданих за допомогою процедури SetFillStyle .

SetBkColor (колір: word)- процедура встановлює поточний колір тла.

SelColor(Koлip: word)- встановлює поточний колір малювання.

SetFillStyle( зразок : word; колір :р word) - процедура встановлює зразок і колір зафарбування для всіх типів зафарбування, виконуваних процедурами Bar , Bar3D , FillEllipse , FloodFillта PieSlice . Можна використовувати кілька типів зафарбування (наприклад, 1 - суцільне фарбування, 2 - штрихування лініями, 7 - штрихування символом «+», 11 - штрихування крапками тощо).

SetLineStyle(mun_pHdKa :word; зразок: word; товщина : word) -процедура встановлює поточну товщину і тип лінії.

SetTextJustify(ropu3, верт : word)- процедура встановлює значення вирівнювання тексту, що використовуються процедурами OutText і OutTextXY .

SetTextStyle (шрифт: word; направл: word; розм_символу: CharSize-турі)- процедура встановлює поточний шрифт символу.

SetViewport(XI, Yl, XI, Х2 word, clip: boolean)- процедура встановлює для графічного поточного виведення чи перегляду вікно, де ( X1,Y1 ) - верхній лівий кут області перегляду, ( Х2, Y2 ) - нижній правий кут. Процедура переміщує поточний покажчик у точку з координатами (0,0). Clip- булівська змінна.

Мета уроку: показати можливості роботи в графічному режимі на прикладах розв’язання задач.

На цьому уроці пропонується розв ‘язати цікаві задачі із застосуванням графічного режиму роботи монітору.