Урок № 44

(згідно робочої навчальної програми)

Принцип виведення точки та лінії на екран

Питання для вивчення:

1. Процедури для зображення точки та лінії.

Процедура PutPixel. Виводить заданим кольором точку за вказаними координатам.

Procedure PutPixel (X, Y: Inteder; Color: word);

Тут X, Y - координати точки; Color - колір точки.

Процедура Line. Викреслює лінію з вказаними координатами початку і кінця.

Procedure Line (X1, Y1, X2, Y2: Integer);

Тут X1 .. Y1 - координати початку (X1, Y1) і кінця (X2, Y2) лінії. лінія викреслюється поточному стилем і поточним кольором.

Процедура SetLineStyle. Встановлює новий стиль викреслюють ліній.

Procedure SetLineStyle (Type, Pattern, Thick: Word);

Тут Type, Pattern, Thick - відповідно тип, зразок і товщина лінії. Тип лінії може бути створений за допомогою однієї з наступних констант:

Const

SolidLn = 0; (Суцільна лінія)

DottedLn = 1; (Точкова лінія)

CenterLn = 2; (Штрих-пунктирна лінія)

DashedLn = 3; (Пунктирна лінія)

UserBitLn = 4; (Візерунок лінії визначається користувачем)

Питання для контролю вивченого матеріалу:

1. Яким чином будуються точки?

2. Яким чином будуються лінії?

Література:

Меженний О.А.Turbo Pascal: М: Издательский дом «Вильямс», 2006. – 336 с., стор. 217-222

Урок № 45

(згідно робочої навчальної програми)

Принцип побудови не заповнених геометричних фігур

Питання для вивчення:

1. Побудова прямокутників.

2. Побудова дуг, еліпсів і кіл

Побудова прямокутників. Процедура Rectangle (Xl, Yl, X2, Y2: integer); будує зображення прямокутника на площині. Тут XI, Y1-координати лівого верхнього кута, X2, Y2 - координати правого нижнього кута прямокутника. При цьому використовується поточний колір (SetColOf) і стиль лінії (SetLineStyle). Область всередині прямокутника не зафарбована і збігається за кольором з фоном.

Побудова дуг, еліпсів і кіл. Процедура Arc (X, Y: integer; al, a2, R: word); будує дугу. Тут (X, Y)-центр окружності дуги, al, a2 - початковий і кінцевий кути, відлічувані від горизонтальної осі проти годинникової стрілки, R-радіус. Якщо al = 0o, а а2 = 360 °, то викреслюється повна окружність.

Процедура Ellipse (X, Y: integer; al, a2, Rx, Ry: word); призначена для побудови еліптичних дуг. Тут (X, Y)-центр еліпса, al, a2 - початковий і кінцевий кути, відлічувані від горизонтальної осі проти годинникової стрілки, Rx і Ry - горизонтальна і вертикальна півосі. Якщо al = 0 °, а а2 = 36о, то викреслюється повний еліпс.

Процедура FillEllipse (X, Y: integer; Rx, Ry: word); будує повний зафарбований еліпс.

Процедура Circle (X, Y: integer; R: word); виводить на екран зображення кола з центром (X, Y) і радіусом R. Окружність малюється кольором, заданим SetColor.

Питання для контролю вивченого матеріалу:

1. Опрацюйте матеріал.

2. Розробіть програму для виведення не заповнених графічних примітивів.

Література:

Меженний О.А.Turbo Pascal: М: Издательский дом «Вильямс», 2006. – 336 с., стор. 223-229