48621 (608690), страница 4

procedure ClrScr;

Очищает текущее окно,заполняя его цветом фона и помещает курсор в его левый ерхний угол с координатами(1,1).

procedure Delay(Ms:word);

Задает задержку выполнения программы в Ms миллисекундах.

procedure DelLine;

Удаляет строку , в которой находится курсор.

procedure GotoXY(X,Y:Byte);

Перемещает курсор к элементу экрана с заданными координатами.

X,Y-координаты элемента экрана (отсчитываются от левого верхнего угла текущего окна)

procedure HighVideo;

Устанавливает высокую яркость символов (заменяет цвета 0-7 на 8-15)

procedure InsLine;

Вставляет пустую строку на экране в месте расположения курсора и заполняет ее цветом фона.

procedure LowVideo;

Устанавливает малую яркость символов ( заменяет цвета 8-15 на 0-7)

procedure NormVideo;

Устанавливает первоначальную яркость символов,выводимых далее на экран.

procedure NoSound;

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

procedure Sound(Hz:word);

Запускает источник звука с частотой Hz герц.

procedure TextBackGround(color:byte);

Задает цвет фона. Color-задаваемый цвет фона.

procedure TextColor(Color)Byte;

Задает цвет символов.Color-задаваемый цвет символов.

procedure TextMode( Mode:word);

Устанавливает текстовый режим,увеличивает текущее окно до целого экрана,устанавливает переменным DirectVideo и CheckSnow значение true.Помещает значение текущего режима в переменную LastMode,запускает процедуру NormVideo . Mode- требуемый текстовый режим.

procedure Window (X1,Y1,X2,Y2:Byte);

Задает размеры окна на экране и помещает курсор в левый верхний угол окна с координатами (1,1)

X1,Y1- координаты левого верхнего угла экрана

X2,Y2- координаты правого нижнего угла экрана.

Если хотя бы одна из координат недопустима, то процедура не выполняется.

Function KeyPressed:boolean;

Анализирует нажатие клавиши клавиатуры ( за исключением вспомогательных клавиш- Shift,Alt,NumLock и т.п.). Результат - true ,если клавиша на клавиатуре нажата и false - в противном случае.

function Readkey:char;

Считывает символ с клавиатуры и освобождает буфер клавиатуры от считанного символа.

function WhereX:Byte;

Возвращает текущую координату X курсора

function WhereY:byte:

Возвращает текущую координату Y курсора

клавиша

код



0 75



0 77



0 72



0 80

enter

13

Имя

Значение

Назначение

Black

0

Черный

Blue

1

Синий

Green

2

Зеленый

Cyan

3

Голубой

Red

4

Красный

Magenta

5

Фиолетовый

Brown

6

Коричневый

LightGray

7

Светло-серый

DarkGray

8

Темно-серый

LightBlue

9

Светло-синий

LightGreen

10

Светло-зеленый

LightCyan

11

Светло-голубой

LightRed

12

Розовый

LightMagenta

13

Светло-фиолетовый

Yellow

14

Желтый

White

15

Белый

Комментарий до конца строки комментарии, могущие быть вложенными

(*...*) или {...}

Регулярное выражение идентификатора переменной

[A-Za-z_][A-Za-z0-9_]*

Регулярное выражение идентификатора функции

[A-Za-z_][A-Za-z0-9_]*

Присваивание значения переменной

:=

Объявление переменной

variable: type

Группировка выражений

( ... )

Блок

begin ... end

Тождественное равенство

=

Тождественное неравенство

<>

Сравнение

=

Определение функции

function f(p1: type1, p2: type2, ...): returntype

Вызов функции

f(a, b, ...)

Вызов функции без параметров

f

Последовательность

;

Если - то

if condition then

Если - то - иначе

if condition then ... else ...

Бесконечный цикл

while true do ...