Основные рпоцедуры и функции текстового режима

Билет 9 . Вопрос 1 .

Основные рпоцедуры и функции текстового режима в языке ПАСКАЛЬ .

Модуль CRT представляет собой библиотеку функций и процедур, предназначенных для увеличения возможностей текстового ввода-вывода данных.

Экран делится на знакоместа(символы). Их количество по горизонтали - 80, по вертикали - 25, т.е.

ТАБЛИЦА ВОЗМОЖНОСТЕЙ МОДУЛЯ CRT.

Название функции	Назначение
Clrscr	Процедура позволяет очищать экран и устанавливать курсор в левый верхний угол экрана
Delay(t:word)	Процедура осуществляет задержку информа- ции на экране в миллисекундах
Gotoxy(x,y:byte)	Процедура переводит курсор в указанное
Sound(f:word)	Процедура заставляет звучать динамик с нужной частотой
NoSound	Процедура отключает динамик
Window(x1,y1,x2,y2)	Процедура определяет текстовое окно на экране. Курсор помещается в левый верхний угол.
Textcolor(n)	Процедура определяет цвет выводимых сим- волов, n - номер цвета (0-15)
TextBackground(n)	Процедура определяет цвет фона, n - номер цвета (0-7)
Readkey	Функция читает значение нажатой клавиши. Возвращается тип char.
KeyPressed	Функция определяет, была ли нажата кла- виша на клавиатуре. Возвращается тип boolean. Первоначальное ее значение FALSE

КОДЫ ЦВЕТОВ

0 - черный 8 - темно-серый

1 - темно-синий 9 - голубой

2 - темно-зеленый 10 - салатовый

3 - бирюзовый 11 - светло-бирюзовый

4 - красный 12 - розовый

5 - фиолетовый 13 - малиновый

6 - коричневый 14 - желтый

7 - светло-серый 15 - белый

128 - мерцание символа

Пример программы, работы с модулем CRT.

PROGRAM SS;

USES CRT;

BEGIN

TEXTBACKGROUND(0); { УСТАНАВЛИВАЕТСЯ ЦВЕТ ФОНА }

CLRSCR; { ОЧИЩАЕТСЯ ЭКРАН УСТАНОВЛЕННЫМ ЦВЕТОМ }

WHILE KEYPRESSED=FALSE DO { ЦИКЛ РАБОТАЕТ, ПОКА НЕ НАЖАТА ЛЮБАЯ КЛА ВИША }

BEGIN

WINDOW(20,6,60,18); { ОПРЕДЕЛЯЕТСЯ ОКНО }

TEXTBACKGROUND(5); { ИЗМЕНЯЕТСЯ ЦВЕТ ФОНА }

TEXTCOLOR(7); { УСТАНАВЛИВАЕТСЯ ЦВЕТ ВЫВОДИМЫХ СИМВОЛОВ }

CLRSCR;

GOTOXY(15,7); { КУРСОР ПЕРЕМЕЩАЕТСЯ В УКАЗАННУЮ ПОЗИЦИЮ }

SOUND(1000); { ВКЛЮЧАЕТСЯ ДИНАМИК, ЧАСТОТА - 1000 Гц }

WRITE('П Р И В Е Т'); { ВЫВОД ИНФОРМАЦИИ НА ЭКРАН }

DELAY(1000); { ЗАДЕРЖКА 1000 мсек }

NOSOUND; { ВЫКЛЮЧАЕТСЯ ДИНАМИК }

TEXTBACKGROUND(7); { ИЗМЕНЯЕТСЯ ЦВЕТ ФОНА, ОН СОВПАДАЕТ С ЦВЕТОМ СИМВОЛОВ }

CLRSCR;

DELAY(1000)

END; { КОНЕЦ ЦИКЛА }

TEXTBACKGROUND(0); { УСТАНОВКА ПЕРВОНАЧАЛЬНОГО ЦВЕТА ФОНА }

CLRSCR; { ОЧИСТКА ОКНА УСТАНОВЛЕННЫМ ЦВЕТОМ }

TEXTCOLOR(15) { УСТАНОВКА ПЕРВОНАЧАЛЬНОГО ЦВЕТА СИМВОЛОВ }

END. { КОНЕЦ ПРОГРАММЫ }