чці (X, Y) і радіусом R - в пікселях:
Procedure Circle (X, Y: Integer; R: Word);
Дуга кола з центром в точці (X, Y), радіусом R, початковим кутом BegA і кінцевим кутом EndA. Кути вимірюються в градусах проти годинникової стрілки від напрямку осі X.
Procedure Arc (X, Y: Integer; BegA, EndA, R: Word);
еліпсності дуга з центром в точці X, Y з початковим і кінцевим кутами BegA і EndA, горизонтальним радіусом RX і вертикальним радіусом RY:
Procedure Ellipse (X, Y: Integer :; BegA, EndA, RX, RY: Word);
Приклад. Складемо програму, рісующую голову робота (рис. 32).
Малюнок містить два прямокутника, дві окружності, дві дуги, еліпс, три прямі лінії і дві червоні крапки. Заздалегідь визначаються всі координати і розміри елементів малюнка.
Uses Graph;
Var Driver, Mode: Integer;
Begin
{Ініціалізація графічного режиму)
Driver:=Detect; i, InitGraph (Driver, Mode, 'C: TP BGI ||;
Обведений лінією і зафарбований сектор окружності: Procedure PieSlice (X, Y: Integer; BegA, EndA: Word); Нарешті, можна зафарбувати будь-яку область, обмежену замкнутою лінією. Для цього потрібно вказати якусь точку всередині цієї області (X, Y) і колір граничної лінії {Border). Відповідна процедура виглядає наступним чином: Procedure FloodFill (X, Y: Integer; Border: Word); Модуль Graph дозволяє виводити на графічний екран тексти. Ми не будемо зараз детально обговорювати цю проблему, необхідну інформацію можна знайти у відповідній літературі. Наведемо лише приклад однієї текстової процедури, за допомогою якої виводиться в графічне вікно символьний рядок (Txt), починаючи з вказаної позиції (X, Y). Procedure OutTextXY (X, YInteger; Txt: String); Наприклад, щоб вивести під нашим малюнком рядок «ЦЕ РОБОТ», слід в програму додати оператор OutTextXY (195; 400, ЦЕ РОБОТ '); Як побудувати графік функції. Одним з додатків комп'ютерної графіки є наочне представлення результатів математичних розрахунків. Графіки функцій, діаграми, лінії рівнів розподілу просторових залежностей і т. П. Роблять результати розрахунків осяжному, наочніше, зрозуміліше. Ми розглянемо лише один найпростіший варіант математичної графіки - побудова графіка функції. Потрібно скласти програму побудови на екрані дисплея графіка функції у=т.
Рішення цієї задачі зручно проводити в наступному порядку:
. Визначити межі значень аргументу, в межах яких будуватиметься графік. Позначимо їх наступним чином: X min - нижня межа, - верхня межа.
. Для даної області значень аргументу визначити граничні значення функції: Y min і У max. Ці значення необов'язково повинні бути точними. Вони можуть бути оціночними знизу і зверху відповідно.
. Задати кордону графічного вікна, в межах якого буде малюватися графік: [Xg min, Xg max], [Yg min, Yg max] Оскільки в графічних координатах вертикальна вісь спрямована вниз, то Yg min gt; Yg max.
Таким чином, ми маємо дві системи координат: (X, У), яку назвемо системою математичних координат (в літературі частіше використовують термін «світові координати).
Тут квадратні дужки означають округлення до цілого значення (функція Round) .Построеніе графіка функції може проводитися або точковим методом, або кусочно-лінійним. При першому способі графік будується як послідовність точок, розташованих максимально близько. Виробляється «попіксельно» перебір значень аргументу в інтервалі [Xg min, Xg max] з виставленням точок з відповідними координатами Y. При кусочно-лінійному методі задається крок АХ і розраховується послідовність значень (Х, Y).
Приклад. Складемо програму побудови графіка функції
Uses Graph; Driver, Mode: Integer ;: Real; Xg, Yg, I: Integer;
{Ініціалізація графічного режиму}
Driver:=Detect;
InitGraph (Driver, Mode; C: TP BGI ); (White); {білий колір ліній} (Black); {чорний колір фону} (10,90,200,90) ; (вісь X} (10,20,10,160); {вісь Y}
{Побудова графіка функції жовтими крапками}
Х:=0; 1:=0 Те 190 DoXg:=10 + Round (95/Pi * X);:=90-Round (50 * Sin (X)); (Xg, Yg, Yellow);:=X + Pi/95
End;
{Розмітка осей, запис функції}
OutTextXY (15,30, Y ); (205,90, X ); (130,40, Y=SIN (X) ') ;; {затримка}; {вихід з графіки}.
2.2 Робота з текстом
Виведення тексту
Виведені на ек...