Модуль crt.

У Паскалі під модулями розуміють бібліотеки, в яких розміщені процедури та функції, що виконують роль допоміжних алгоритмів. Вони містяться в окремих фай­лах і підключаються до програми тільки тоді, коли їх імена зазначені у розділі Uses. Це дає змогу не перевантажувати Паскаль- програму зайвою інформацією.

Для підключення модуля CRT до програми необхідно ввести до неї рядок Uses CRT:

Program my_pror;

Uses Crt;

…...……………..

1. Робота в текстовому відео режимі.

Розмір екрана в текстовому відео режимі можуть бути 80х25 або 40х25 (гори­зонталь, вертикаль).

CLS; -Очищення екрана монітору;

TextMode N; -Відео режим встановлюється процедурою TextMode (константа ре­жима від 0 до 3).

Конст. N	Розмір екрану
0	40х25, чорно-білий
1	40х25, кольоровий
2	80х25, чорно-білий
3	80х25, кольоровий

TextBackGround(color); -Встановлення кольору фону символів;

Значення color		Встановлюваний колір	Значення color		Встановлюваний колір
Числове	Мнемонічне		Числове	Мнемонічне
0	Black	чорний	9	LightBlue	яскраво-синій
1	Blue	синій	10	LightGreen	яскраво-зелений
2	Green	зелений	11	LightCyan	яскраво-блакитний
3	Cyan	блакитний	12	LightRed	рожевий
4	Red	червоний	13	LightMagenta	бузковий
5	Magenta	фіолетовий	14	Yellow	жовтий
6	Brown	коричневий	15	White	білий
7	LightGrey	яскраво-сірий	128	Blink	блимання символу
8	DarkGrey	темно-сірий

TextColor(color); -Встановлення кольору символів;

Приклад:

Begin

TextMode 1; TextBackGround(red); TextColor(12); CLS;

. . . . .

або TextAttr:= Red +Gren*16+Blink;

формула встановлення атрибутів екрана = символ+ фон + блимання.

GoToXY(X,Y); -виставлення курсора в позицію x рядка y (1<=x<=80, 1<=y<=25);

В Turbo Pascal можливо виводить текстову інформацію в рамках не всього ек­рана, а тільки в рамках його окремою частини (вікно).

Window(X1,Y1,X2,Y2); -де x1 та y1 –координати лівого верхнього кута вікна;

x2 та y2 –координати правого нижнього кута вікна.

Координати вікна починаються з координати лівого верхнього кута вікна (1,1).

ClrScr; очищення вікна екрану.

Write(‘текст’,<змінна>); -виведення на екран або в вікно.

Приклад:

Begin

TextMode 1; TextBackGround(red); TextColor(12); CLS;

Window(12,8,38,17); TextBackGround(Green); TextColor(5); ClrScr;

Write(‘текст’,<змінна>).

. . . . .