Установка окон.

Экран монитора персонального компьютера IBM PC можно разбить на окно или несколько окон (см. рис. 1):

Положение окна на экране задается координатами 2-х точек окна: левой верхней (точка А), правой нижней (точка В). Координатами точки являются номер строки и позиции в строке, в которых точка находится на экране. Номер строк изменяются с 1 до 25 (сверху - вниз), номера позиций – от 1 до 80 (слева - направо).

Для задания окон используется процедура

Window (XA,YA, XB, YB),

где Window – имя процедуры;

XA, YA – координаты левой верхней точки окна;

XB, YB – координаты правой нижней точки окна.

Задание цвета фона.

Язык Турбо Паскаль обладает возможностью задавать цвет фона активного окна. В языке Турбо Паскаль для указания цвета предусмотрены 16 числовых констант от 0 до 15 (см. таблицу), каждая из которых имеет соответствующее символическое обозначение (имя константы). Значение констант цвета представлены в таблице 1.

Для установки цвета фона активного окна используется процедура

Textbackground (<цвет>);

где Textbackground – имя процедуры,

<цвет> - целая константа от 0 до 7 либо одно из первых восьми обозначений цвета на английском языке , приведенных в таблице.

Задание цвета символов.

Для установки цвета символов (текста) используется процедура

Textcolor(<цвет>),

Где Textcolor – имя процедуры,

<цвет> - одно из 16 обозначений цвета на английском языке (либо константа от 0 до 15).

Таблица 1.

Константа цвета	Обозначение цвета	Цвет
0	Black	черный
1	Blue	синий
2	Green	зеленый
3	Cyan	бирюзовый
4	Red	красный
5	Magenta	малиновый
6	Brown	коричневый
7	Lightgray	светло-серый
8	Darkgray	темно-серый
9	Lightblue	светло-голубой
10	Lightgreen	светло-зеленый
11	Lightcyan	светло-бирюзовый
12	Lightred	светло-красный
13	Lightmagenta	светло-малиновый
14	Yellow	желтый
15	White	белый

“Очистка” окон.

Для “очистки” окон (удаления из них сообщений о предыдущей работе компьютера и закрашивания активного окна цветом фона) используется процедура

Clrscr

Процедура производит “очистку” активного окна и закрашивание его цветом фона. Если окно не было задано, то происходит “очистка” и закрашивание всего экрана.

Установка курсора.

Для установки курсора в точку с координатами XT, YT внутри окна используется процедура

Gotoxy (XT,YT)

где Gotoxy – имя процедуры

XT, YT – координаты точки (см. рис 2)

Рис.2

Процедура задает положение точки внутри активного окна. Если окно не было задано, то положение точки устанавливается внутри всего экрана.

Пример программирования с использованием условного оператора.

Составить на языке Паскаль программу, которая после вывода латинской буквы выводит на первой строке окна текст “ЛАТИНСКАЯ БУКВА”, н следующей строке – “ЗАГЛАВНАЯ БУКВА” или ”СТРОЧНАЯ БУКВА”. В противном случае вывести текст: “ЭТО НЕ ЛАТИНСКАЯ БУКВА”.

Текст сообщения вывести в окно с произвольным размером. Задать цвет фона экрана малиновый, цвет фона окна – красный.

Программа приведена ниже, варианты информации на экране монитора после запуска программы на выполнение – на рис.4, 5, 6.