Библиотечные функции и процедуры.

Помимо встроенных процедур и функций Turbo Pascal 7.0 предоставляет программисту множество процедур и функций различного назначения, объединенных в группы - библиотеки.

Каждая библиотека предназначена для решения определенного типа задач.

Для использования библиотечных процедур или функций, необходимо подключить "нужную" библиотеку к программе при помощи инструкции USES.

Библиотека (модуль) Ctr. Процедуры.

ClrScr; - очистка экрана, после чего курсор встает в левом верхнем углу, в точке (0,0).

Goto X Y (x: integer, y: integer); - переводит курсор в точку с координатами (X, Y), где X - номер столбца, Y - номер строки на пересечении которых встает курсор.

В текстовом режиме размеры экрана - 80 столбцов, 25 строк.

(1, 1)

X

(80,25)

Y

Инструкции write и writeln - выводят информацию на экран начиная с точки, где находится курсор.

textcolor (цвет символов); - задает цвета символов, выводимых на экран.

textbackcround (цвет фона); - задает цвет фона.

"Цвет символов" и "цвет фона" - выражения целого типа, устанавливающие цвет.

Таблица цветов.

Цвет символов	Цвет фона	Название	Обозначение
Черный Синий Зеленый Бирюзовый Красный Сиреневый Коричневый Белый Серый Голубой Светло-зеленый Светло-бирюзовый Светло-красный Светло-сиреневый Желтый Ярко-белый Мерцание	Черный Черный Черный Черный Черный Черный Черный Черный	Black Blue Green Cyan Red Magenta Brown LightGray Gray LightBlue LightGreen LightCyan LightRed LightMagenta Yellow White Blink	0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 128

"Цвета" могут быть заданы целыми константами (015), или английскими названиями цветов, которые определены как константы модуля Ctr. Установленные цвета называются "текущими" для символов и фона.

Рассмотрим программу:

Program t _color;

uses ctr;

var t, c: byte;

begin

for c:= black to lightgray do

begin

textbackground (c); clrscr;

for t:= black to write do

begin

textcolor (t);

writeln ('проверка цвета');

end;

textcolor (yellow + blink);

writeln ('проверка мерцания');

readln; {задержка на экране до нажатия Enter}

end;

end.

Рассмотрим программу:

Program color;

uses ctr;

begin

clrscr;

textcolor (15); - цвет символов - белый

textbackground (blue); - цвет фона - синий

doto xy (10, 10);

write ('Pascal');

end.

По данной программе очищается экран, фон окрасится в синий цвет. В точке с координатами (10, 10) - белыми буквами напечатается слово 'Pascal'.

Информация о цвете фона и символов хранится в глобальной переменной textattr - атрибуты текста.

Textattr: byte - тип.

Рассмотрим фрагмент:

…

uses ctr;

var

t: byte;

begin

t:= textattr; - сохранение предыдущих цветов

textcolor (red); - установление новых цветов

textbackground (while);

…

textattr:= t; - восстановление цветов

…

Установить цвета можно и по формуле:

"Цвет фона"  16 + "Цвет символов"

Достаточно вычесленное по формуле значение присвоить глобальной переменной textattr и установить цвета фона и символов.

Например:

tеxtattr: = 79 - присвоит фону - красный, а символам - белый

4 16 + 15 = 79

где 4 - красный цвет;

15 - ярко-белый цвет.

Window (x1, y1, x2, y2: byte); - установка окна, где x1, y1 - координаты левого верхнего, а x2, y2 -координаты правого нижнего угла окна.

Pascal позволяет выводить текстовую информацию не на весь экран, а только в пределах установленного окна (все окно 8025).

Предопределенные переменные хранят координаты:

Windmin: word - левого верхнего угла;

Windmax: word - правого нижнего угла текущего окна.

По умолчанию устанавливается размер окна, равный всему экрану.

После установки окна процедурой window большинство процедур и функций модуля crt будут работать относительно его системы координат.

Delay (MSEC: word); - задержка, где MSEC - задается в миллисекундах.