1) А.Ф.Верлань, н.В.Апатова. Інформатика (підручник для учнів 10-11 класів середньої загальноосвітньої школи).- Київ, «Форум», 2000.

2) В.Л.Руденко, О.М.Макарчук, М.О.Патланжоглу. Практичний курс інформатики.- Київ, «Фенікс», 1997. – 304 с.

3) В.В.Фаронов. Turbo Pascal 7.0. Начальный курс. Учебное пособие. – М.: «Нолидж», 1998. – 616 с.

4) Т.П.Караванова. Збірник задач з програмування. 750 задач з розв’язками.

Контрольні запитання та завдання

1. Чим відрізняється текстовий та графічний режими роботи монітора?

2. Як здійснюється перемикання між цими режимами в мові Паскаль?

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

4. Яким чином задається колір фону в текстовому та графічному режимах роботи?

5. Яким чином можна задати в текстовому режимі блимання символів?

6. Скільки кольорів символів та фону можна вибрати в текстовому кольорповому режимі?

7. Для чого можна використати функцію READKEY модуля CRT?

8. Поясніть на прикладі, яким чином можна досягти ефекту руху зображення?

9. Які координати називають абсолютними? Приведіть приклад процедур з абсолютними координатами.

10. Які координати називають відносними? Приведіть прикмет процедур з відносними координатами.

11. Для яких величин існує поняття "поточний"?

12. Опишіть процедури для малювання заповнених фігур.

13. Як змінюються координати поточної позиції при застосуванні різних графічних процедур і функцій?

14. Як змінюється поточний стиль і колір заповнення фігур?

Завдання для самостійного виконання.

1. Виконайте приклади програм, що демонструють можливості модуля CRT з опорного конспекту.

2. Виведіть логотип вашої фірми та ваші ініціали за допомогою символів псевдографіки або символів, що є на клавіатурі (викоритовується модуль CRT).

3. Намалюйте картинку "пейзаж" на будь-яку тему (викоритовується модуль GRAPH).

4. Намалюйте різноколірну мішень.

5. Намалюйте круг диаграму, що складається з 10 заповнених секторів

використовуючи різні орнаменти і кольори заповнення.

6. Намалюйте заповнені різним орнаментом і кольором заповнення тре-

косинець, трапецію і зірку.

7. Намалюйте шестигранну призму, вигляд зверху і збоку. Всі видимі гра-

ні заповніть різним орнаментом і кольором заповнення.

8. Намалюйте свої ініціали у вигляді заповнених багатокутників.

9. Зобразіть горизонтальну послідовність що складається з 16 заповнених еліпсів.

10. Намалюйте послідовність з 16 різноколірних заповнених зірок.

11. Намалюйте графік функції синус, що складається з 40 паралелепипедов

різного кольору і висоти.

12. Намалюйте єгипетську "ступінчасту" піраміду, вигляд зверху і збоку.

Грані "освітлені" однаково заповните однаковим кольором і орнаментом.

Опорний конспект

Функція Keypressed.

Повертає значення типу Boolean , що вказує стан буфера клавіатури: False, означає, що буфер вільний, а True – що в буфері є хоча б один символ, який ще не прочитаний програмою.

Функція Readkey.

Повертає значення типу Char .При зверненні до цієї функції аналізується буфер клавіатури: якщо в ньому є хоча б один не прочитаний символ , код цього символа береться з буфера і повертається в якості значення функції, в іншому випадку функція буде очікувати натиснення на будь-яку клавішу.

Приклад:

uses Crt;

var

C: Char;

begin

while KeyPressed do

C:=ReadKey;

…………………

end.

Процедура TextMode.

Використовується для задання одного з можливих текстових режимів роботи адаптера. Заголовок процедури:

Procedure TextMode(Mode: Word);

Тут Mode – код текстового режиму. В якості значення цього виразу можуть використовуватись наступні константи, визначені в модулі CRT:

const

BW40 = 0 ; {Чорно-білий режим 4025}

Co40 = 1 ; {Кольоровий режим 4025}

BW80 = 2 ; {Чорно-білий режим 8025}

Co80 = 3 ; {Кольоровий режим 8025}

Mono = 7 ; {Використовується з MDA}

Font88 = 256 ; {Використовується для завантажуваного шрифта в режимі 8043 або 8050 з адаптерами EGA або VGA}

Приклад.

uses CRT;

procedure Print(S: String);

{Виводить повідомлення S і очікує ініціативи користувача}

begin

writeln(S); {Виводимо повідомлення}

writeln(‘Натисніть клавішу <Enter>…’);

readln; {Очікуємо натиснення клавіші <Enter>}

end; {Print}

var

LM: word; {Початковий режим екрана}

begin

LM := LastMode; {Запам`ятовуєм початковий режим роботи дисплея}

TextMode(Co40);

Print(‘Режим 4025’);

TextMode(Co80);

Print(‘Режим 8025’);

TextMode(Co40+Font88);

Print(‘Режим Co 40+Font88’);

TextMode(Co80+Font88);

Print(‘Режим Co80+Font88’);

{Встановлюємо вихідний режим роботи:}

TextMode(LM)

end.

Процедура TextColor.

Визначає колір символів, що виводяться. Заголовок процедури:

Procedure TextColor(Color:Byte);

Процедура TextBackground.

Визначає колір фона. Заголовок:

Procedure TextBackground(Color:Byte);

Єдиним параметром звертання до цих процедур повинен бути вираз типу Byte, який задає код необхідного кольору. Цей код зручно визначати за допомогою наступних мнемонічних констант, об`явлених в модулі CRT:

const

Black = 0; {Чорний}

Blue = 1; {Темно-синій}

Green = 2; {Темно-зелений}

Cyan = 3; {Березовий}

Red = 4; {Червоний}

Magenta = 5; {Фіолетовий}

Brown = 6; {Коричневий}

LightGray = 7; {Світло-сірий}

DarkGray = 8; {Темно-сірий}

LightBlue = 9; {Cиній}

LightGreen = 10; {Світло-зелений}

LightCyan = 11; {Світло-березовий}

LightRed = 12; {Рожевий}

LightMagenta = 13; {Малиновий}

Yellow = 14; {Жовтий}

White = 15; {Білий}

Blint = 128; {Мерехтіння символа}

Приклад.

Uses CRT;

const

Col: array [1..15] of String[16] =

(‘темно-синій’,’темно-зелений’,’бірюзовий’,’червоний’,’фіолетовий’, ’коричневий’,’світло-сірий’, ’темно-сірий’,’синій’, ’зелений’,’світло-бірюзовий’,’рожевий’,’малиновий’,’жовтий’,’білий’);

var

k := Byte ;

begin {Виводим 15 повідомлень різними кольорами}

TextColor(k);

WriteLn (‘Колір ‘, k ,’ – ‘, Col [k] )

end ;

TextColor (White +Blink); {Білі бликаючі символи}

Writeln (‘Мерехтіння символів’) ;

{Поновлюємо стандартний колір}

TextColor (LightGray) ;

Writeln

end.

Процедура Clrscr.

Очищує екран чи вікно. Після звернення до неї екран (вікно) заповнюється кольором фону і курсор встановлюється в його лівий верхній кут.

Приклад:

uses CRT ;

var

C : Char

begin

TextBackground (red);

ClrScr; {заповнюємо екран червоним кольором}

Writeln (‘Натисніть будь-яку клавішу…’);

C: = Readkey; {чекаємо натиснення будь-якої клавіші}

TextBackground (Black);

ClrScr {встановлюємо чорний фон екрану}

end.

Процедура Window.

Визначає текстове вікно – межі екрану, яка в подальшому буде розглядатися процедурами виводу як весь екран.Відразу після виклику процедури курсор розміщується в лівому верхньому куті вікна, а саме вікно очищується. По мірі вивода курсор зміщується вправо і при досягнені правої межі вікна переходить на новий рядок, а якщо він до цього моменту знаходився на останньому рядку, вміст вікна зсувається вверх на один рядок. Заголовок процедури:

Procedure Window(x1,y1,x2,y2: Byte);

Приклад:

Uses CRT;

var

k: integer;

begin

{створюєм ліве вікно – жовті символи на синьому фоні:}

TextBackground (Blue);

Window (5,2,35,17);

TextColor (Yellow);

for k:=1 to 100 do

Write (‘Натисніть клавішу <Enter> …’);

Readln; {Очікуємо натиснення <Enter>}

ClrScr; {Oчищаємо вікно}

 {Створюємо праве вікно – білі символи на червоному фоні:}

TextBackground (Red);

TextColor (White);

Window (40,2,70,17);

for k:=1 to 100 do

Write (‘Натисніть клавішу <Enter>…’);

Readln;

TextMode (CO80) {Скидуємо всі установки}

end.

Процедура Goto XY.

Переводить курсор в необхідне місце екрана або поточного вікна.Заголовок процедури:

Procedure Goto XY(x,y: Byte);

Тут x,y - нові координати курсора .Координати задаються відносно меж екрана (вікна), тобто оператор

Goto XY (1,1);

означає вказання переведення курсора в лівий верхній кут екрана. Звернення до процедури ігнорується, якщо нові координати виходять за границі екрана (вікна).

uses CRT ;

var

C : Char

begin

TextBackground (red);

ClrScr; {заповнюємо екран червоним кольором}

Writeln (‘Натисніть будь-яку клавішу…’);

C: = Readkey; {чекаємо натиснення будь-якої клавіші}

TextBackground (Black);

ClrScr {встановлюємо чорний фон екрану}

end.