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

Нижче наведені деякі процедури та функції для роботи в графічному режимі, що містяться в бібліотеці Graph.

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

Bar(Xl,YJ,X2,Y2)- процедура малює зафарбований прямокутник, використовуючи колір зафарбування, що встановлюється процедурою SetFillStyle . Контур прямокутника креслиться кольором і типом лінії, що встановлені процедурами SetColor і SetLineStyle . Точки з координатами ( X1, Y1 ) та ( Х2, Y2 ) задають дві діагональні вершини прямокутника.

Bar3D(Xl, Yipb, Y2:integer; глибина: word, вершина: boolean)- процедура малює зафарбований тривимірний паралелепіпед. Контур паралелепіпеда креслиться кольором і типом лінії, що встановлені процедурами SetColor і SetLineStyle, тип і колір зафарбування встановлюється процедурою SetFillStyle . «Глибина» — число елементів зображення, що задають третій вимір тривимірного контуру. Якщо змінна, зазначена як параметр «вершина», приймає істинне значення ( True ), то для паралелепіпеда малюється тривимірна вершина, інакше — вершина не малюється.

Circle(X, Ydnteger;радіус: word)- процедура малює окружність поточним кольором. Точка ( X, Y ) - центр окружності, а «радіус» — її радіус.

ClearDevise- процедура очищує поточний графічний екран і підго-товлює його для виведення даних.

ClearViewport- процедура очищує поточне вікно.

CloseGraph- процедура припиняє роботу графічної системи (закриття графіки) і повертає монітор до текстового режиму.

DetectGraph(Var драйвер, режим: integer)- процедура перевіряє наявність відповідних апаратних засобів і визначає, який графічний режим і драйвер варто використовувати.

Ellipse(X,Y:integer; поч_кут, кін_кym:word; paдX,paдY:word) -процедура малює еліптичну дугу, використовуючи ( X, Y ), як точку центра і « радХ », « padY » - як радіуси на горизонтальній і вертикальній осях. Дуга еліпса малюється від початкового кута (параметр «почкут») до кінцевого кута (параметр «кін_кут») поточним кольором.

FillEllipse(X, Y:integer;Xpaдiyc, Ypaдiyc:word)- процедура вичерчує зафарбований еліпс, використовуючи точку з координатами ( X, Y ), як центр, а « Храдіус » і « Ypaдiyc » - у якості радіусів на горизонтальній та вертикальній осях. Контур еліпса креслиться кольором і типом лінії, що встановлені процедурами SetColorі SetLineStyle , тип і колір зафарбування встановлюється за допомогою процедури SetFillStyle .

FloodFill(X,Y,границя:word)- процедура заповнює замкнену область, використовуючи поточний заповнювач, заданий процедурою SetFillStyle . Точка ( X,Y ) є внутрішньою точкою області, що зафарбовується. Заповнюється область, обмежена лінією, що має колір, визначений параметром «границя». Якщо точка ( X,Y ) знаходиться усередині замкненої області, то заповнюється внутрішня область. Якщо ця точка знаходиться поза замкненої області, то заповнюється зовнішня частина.

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

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 ) від поточного покажчика.