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

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- булівська змінна.

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

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

ЗАДАЧА № 604

Умова : Скласти програму, яка при натисканні клавіші Д (день) малює сонце, а при натисканні клавіші Н (ніч) малює місяць.

Розв’язування: По-перше, для вибору малюнку (день чи ніч) введемо символьну змінну Ch , залежно від значення якої і будемо малювати сонце чи місяць. По-друге, малювання сонця складається з малювання зафарбованого кола процедурою FillEllipse (ця процедура малює зафарбований еліпс, але, якщо еліпс має однакові радіуси по осям, то він перетворюється на коло) та кількох прямих (променів), а місяць можна отримати, якщо накласти одне на одне два кола різних кольорів (жовтого та чорного) з деяким зміщенням. Програма має вигляд:

Program Example_604;

Uses graph,crt; {Підключення бібліотек}

Var GraphDriver,GraphMode:integer;

Ch:char;