8.1. Библиотека C R T

Библиотека (модуль) CRT содержит константы, переменные,  
процедуры и функции, обеспечивающие управление текстовым режимом работы монитора и звуковым генератором.
Процедуры

ClrScr Очищает экран или окно и помещает курсор в верхний левый угол.

Delay(D: Word) Приостанавливает работу программы на указанное число D миллисекунд. Практически время задержки зависит от тактовой частоты процессора.

GotoXY(X, Y: Byte) Перемещает курсор в позицию X строки Y экрана.

NoSound Выключает источник звука.

Sound(F: Word) Запускает источник звука с частотой F (Гц).

TextBackGround(Color:Byte) Устанавливает цвет фона.

TextColor(Color: Byte) Устанавливает цвет символов.

Window(X1, Y1, X2, Y2: Byte) Определяет текстовое окно на экране. X1, Y1 - координаты левого верхнего угла окна, X2, Y2 -правого нижнего угла окна.

Функции

KeyPressed: Boolean Анализирует нажатие клавиши. Результат TRUE, если на клавиатуре нажата клавиша (кроме Alt, Ctrl и т.п.), и FALSE в противном случае. Не задерживает исполнение программы.

ReadKey: Char Читает символ с клавиатуры без эхоповтора на экране. Приостанавливает исполнение программы до нажатия на любую клавишу, кроме Alt, Ctrl и т.п.

Другие записи

10.06.2016. Пример 8.6. Программа демонстрирует получение эффекта движения изображения прицела под управлением клавишей-стрелок клавиатуры с выводом координат центра прицела.
Program Sight;    Uses Crt, Graph; {подключение к программе библиотек Crt и Graph}    Const Step = 5; {шаг изменения координат центра прицела }    Instr = 'УПРАВЛЕНИЕ ДВИЖЕНИЕМ ПРИЦЕЛА - СТРЕЛКИ,…
10.06.2016. Пример 8.7. Программа рисует человечка, делающего утреннюю зарядку.
Program Animation;    Uses Crt, Graph;  {подключение к программе библиотек Crt и Graph}    Const {вертикальные и горизонтальные координаты положения рук}    Vert : Array[1..3] of Integer…
10.06.2016. Пример 8.8. Эта программа демонстрирует возможности изображения объёмных предметов и столбиковых диаграмм.
Program Design;    Uses    Graph, Crt; {подключение к программе библиотек Crt и Graph}    Const    Height : Array[1..8] of Integer=(40,150,90,240,190,120,50,90);  …
10.06.2016. Пример 8.9. Эта программа демонстрирует работу с пикселами, случайными эллипсами и секторами.
Program RandomFigures;    Uses Graph, Crt;    Var    Key   : Char;    GrDriver, GrMode : Integer;    Radius, MaxX, MaxY, Ugol : Word; {параметры процедур}  BEGIN   …
10.06.2016. Пример 8.10. Программа изображает планету, вращающуюся вокруг Солнца на фоне мерцающих звезд и расходящейся галактики.
Перемещение и изменение размеров изображений на экране можно организовать по разному. Так, в примере 8.6 эффект движения изображения достигается следующим образом: выводится изображение, затем оно стирается…