2.2. Описание процедур и функций стандартных модулей

SYSTEM

function Abs(x): тип результата;

Возвращает абсолютное значение аргумента; параметр x – выражение целого или вещественного типа; тип результата соответствует типу параметра

function Arctan(x: real): real;

Возвращает арктангенс аргумента

procedure Break;

Завершает выполнение циклической конструкции

procedure Continue;

Переход на следующую итерацию в циклической конструкции

function Cos(x: real): real;

Возвращает косинус аргумента, задающего угол в радианах

procedure Dec(var x [; n: longint]);

Уменьшает значение переменной; параметр x представляет собой переменную перечисляемого типа, а n – целочисленное выражение, задающее величину, на которую уменьшается x

procedure Exit;

Выход из текущего блока, например, процедуры или функции

function Frac(x: real): real;

Возвращает дробную часть аргумента

procedure Halt[(ExtCode: word)];

Выход из программы; параметр ExtCode представляет собой необязательное выражение, которое задает код завершения программы

procedure Inc(var x [; n: longint]);

Увеличивает значение переменной; данная процедура аналогична процедуре Dec

function Int(x: real): real;

Возвращает целую часть аргумента

function IOResult: integer;

Возвращает состояние последней операции ввода-вывода; проверка ввода-вывода должна быть выключена директивой компилятора {$I-}

function Ln(x: real): real;

Возвращает натуральный логарифм аргумента

function Odd(x: longint): boolean;

Проверяет, является ли аргумент нечетным числом, если нечетное, то функция возвращает значение true

function Ord(x): longint;

Возвращает порядковый номер для значения порядкового типа

function ParamCount: word;

Возвращает число параметров, переданных в командной строке

function ParamStr(index): string;

Возвращает заданный параметр командной строки по его порядковому номеру

function Pi: real;

Возвращает значение математической константы 

function Random[(Range: word)];

Возвращает случайное число в диапазоне от 0 до 1, в противном случае в диапазоне от 0 до Range-1

procedure Randomize;

Инициализирует генератор случайных чисел

function Round(x: real): longint;

Округляет значение вещественного типа до значения целого типа данных

function Sin(x: real): real;

Возвращает синус аргумента

function Sqr(x): тип данных;

Возвращает квадрат аргумента

function Sqrt(x: real): real;

Возвращает квадратный корень аргумента

function Trunc(x: real): longint;

Возвращает округленное значение вещественного типа до значения целочисленного

function UpCase(ch: char): char;

Преобразует символ в верхний регистр

DOS

function DiskFree(Disk: byte): longint;

Возвращает число свободных байтов на заданном диске

function DiskSize(Disk: byte): longint;

Возвращает число байтов на заданном диске

procedure Exec(Path, s: string);

Выполняет указанную программу, передавая заданную строку параметров (командную строку); Path – имя программы, s – строка параметров

procedure GetDate(var Year, Month, Day, DayofWeek: word);

Возвращает текущую дату, установленную в операционной системе

procedure GetFAttr(var f; var Attr: word);

Возвращает атрибуты файла; проверка атрибутов Attr выполняется путем сравнения их с масками, заданными в виде констант в модуле Dos

procedure GetFTime(var f; var Time: longint);

Возвращает дату и время последней записи файла

procedure GetTime(var hour, min, sec, ssec: word);

Возвращает установленное в операционной системе текущее время

procedure PackTime(var DT: DateTime; var Time: longint);

Преобразует запись DateTime в четырехбайтовое значение

procedure SetFAttr(var f; Attr: word);

Устанавливает атрибуты файла

procedure UnpackTime(Time: longint; var DT: DateTime);

Преобразует четырехбайтовое значение в распакованную запись DateTime

CRT

procedure ClrEol;

Стирает все символы, начиная от позиции курсора до конца строки

procedure ClrScr;

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

procedure Delay(MSec: word);

Выполняет задержку на заданное число миллисекунд

procedure DelLine;

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

procedure InsLine;

Вставляет пустую строку начиная с позиции курсора

procedure GotoXY(x, y: byte);

Позиционирует курсор в точку с заданными координатами

function KeyPressed: boolean;

Возвращает значение true, если на клавиатуре нажата клавиша

procedure NoSound;

Выключает внутренний динамик

function ReadKey: char;

Считывает символ с клавиатуры; считанный символ не отображается на экране

procedure Sound(Hz: word)

Включает внутренний динамик; параметр Hz задает частоту генерируемого сигнала в герцах

procedure TextBackGround(color: byte);

Устанавливает цвет фона

procedure TextColor(color: byte);

Устанавливает цвет выводимых символов

procedure TextMode(mode: integer);

Устанавливает определенный текстовый режим

function WhereX: byte;

Возвращает координату X для текущей позиции курсора относительно текущего окна

function WhereY: byte;

Возвращает координату Y для текущей позиции курсора относительно текущего окна

procedure Window(x1, y1, x2, y2: byte);

Устанавливает границы текстового окна