312 lines
15 KiB
Plaintext
312 lines
15 KiB
Plaintext
|
==============================================================================
|
|||
|
|
|||
|
Библиотека (Windows)
|
|||
|
|
|||
|
------------------------------------------------------------------------------
|
|||
|
MODULE Out - консольный вывод
|
|||
|
|
|||
|
PROCEDURE Open
|
|||
|
открывает консольный вывод
|
|||
|
|
|||
|
PROCEDURE Int(x, width: INTEGER)
|
|||
|
вывод целого числа x;
|
|||
|
width - количество знакомест, используемых для вывода
|
|||
|
|
|||
|
PROCEDURE Real(x: REAL; width: INTEGER)
|
|||
|
вывод вещественного числа x в плавающем формате;
|
|||
|
width - количество знакомест, используемых для вывода
|
|||
|
|
|||
|
PROCEDURE Char(x: CHAR)
|
|||
|
вывод символа x
|
|||
|
|
|||
|
PROCEDURE FixReal(x: REAL; width, p: INTEGER)
|
|||
|
вывод вещественного числа x в фиксированном формате;
|
|||
|
width - количество знакомест, используемых для вывода;
|
|||
|
p - количество знаков после десятичной точки
|
|||
|
|
|||
|
PROCEDURE Ln
|
|||
|
переход на следующую строку
|
|||
|
|
|||
|
PROCEDURE String(s: ARRAY OF CHAR)
|
|||
|
вывод строки s (ASCII)
|
|||
|
|
|||
|
PROCEDURE StringW(s: ARRAY OF WCHAR)
|
|||
|
вывод строки s (UTF-16)
|
|||
|
|
|||
|
------------------------------------------------------------------------------
|
|||
|
MODULE In - консольный ввод
|
|||
|
|
|||
|
VAR Done: BOOLEAN
|
|||
|
принимает значение TRUE в случае успешного выполнения
|
|||
|
операции ввода и FALSE в противном случае
|
|||
|
|
|||
|
PROCEDURE Open
|
|||
|
открывает консольный ввод,
|
|||
|
также присваивает переменной Done значение TRUE
|
|||
|
|
|||
|
PROCEDURE Int(VAR x: INTEGER)
|
|||
|
ввод числа типа INTEGER
|
|||
|
|
|||
|
PROCEDURE Char(VAR x: CHAR)
|
|||
|
ввод символа
|
|||
|
|
|||
|
PROCEDURE Real(VAR x: REAL)
|
|||
|
ввод числа типа REAL
|
|||
|
|
|||
|
PROCEDURE String(VAR s: ARRAY OF CHAR)
|
|||
|
ввод строки
|
|||
|
|
|||
|
PROCEDURE Ln
|
|||
|
ожидание нажатия ENTER
|
|||
|
|
|||
|
------------------------------------------------------------------------------
|
|||
|
MODULE Console - дополнительные процедуры консольного вывода
|
|||
|
|
|||
|
CONST
|
|||
|
|
|||
|
Следующие константы определяют цвет консольного вывода
|
|||
|
|
|||
|
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
|
|||
|
|
|||
|
PROCEDURE Cls
|
|||
|
очистка окна консоли
|
|||
|
|
|||
|
PROCEDURE SetColor(FColor, BColor: INTEGER)
|
|||
|
установка цвета консольного вывода: FColor - цвет текста,
|
|||
|
BColor - цвет фона, возможные значения - вышеперечисленные
|
|||
|
константы
|
|||
|
|
|||
|
PROCEDURE SetCursor(x, y: INTEGER)
|
|||
|
установка курсора консоли в позицию (x, y)
|
|||
|
|
|||
|
PROCEDURE GetCursor(VAR x, y: INTEGER)
|
|||
|
записывает в параметры текущие координаты курсора консоли
|
|||
|
|
|||
|
PROCEDURE GetCursorX(): INTEGER
|
|||
|
возвращает текущую x-координату курсора консоли
|
|||
|
|
|||
|
PROCEDURE GetCursorY(): INTEGER
|
|||
|
возвращает текущую y-координату курсора консоли
|
|||
|
|
|||
|
------------------------------------------------------------------------------
|
|||
|
MODULE Math - математические функции
|
|||
|
|
|||
|
CONST
|
|||
|
|
|||
|
pi = 3.141592653589793E+00
|
|||
|
e = 2.718281828459045E+00
|
|||
|
|
|||
|
PROCEDURE IsNan(x: REAL): BOOLEAN
|
|||
|
возвращает TRUE, если x - не число
|
|||
|
|
|||
|
PROCEDURE IsInf(x: REAL): BOOLEAN
|
|||
|
возвращает TRUE, если x - бесконечность
|
|||
|
|
|||
|
PROCEDURE sqrt(x: REAL): REAL
|
|||
|
квадратный корень x
|
|||
|
|
|||
|
PROCEDURE exp(x: REAL): REAL
|
|||
|
экспонента x
|
|||
|
|
|||
|
PROCEDURE ln(x: REAL): REAL
|
|||
|
натуральный логарифм x
|
|||
|
|
|||
|
PROCEDURE sin(x: REAL): REAL
|
|||
|
синус x
|
|||
|
|
|||
|
PROCEDURE cos(x: REAL): REAL
|
|||
|
косинус x
|
|||
|
|
|||
|
PROCEDURE tan(x: REAL): REAL
|
|||
|
тангенс x
|
|||
|
|
|||
|
PROCEDURE arcsin(x: REAL): REAL
|
|||
|
арксинус x
|
|||
|
|
|||
|
PROCEDURE arccos(x: REAL): REAL
|
|||
|
арккосинус x
|
|||
|
|
|||
|
PROCEDURE arctan(x: REAL): REAL
|
|||
|
арктангенс x
|
|||
|
|
|||
|
PROCEDURE arctan2(y, x: REAL): REAL
|
|||
|
арктангенс y/x
|
|||
|
|
|||
|
PROCEDURE power(base, exponent: REAL): REAL
|
|||
|
возведение числа base в степень exponent
|
|||
|
|
|||
|
PROCEDURE log(base, x: REAL): REAL
|
|||
|
логарифм x по основанию base
|
|||
|
|
|||
|
PROCEDURE sinh(x: REAL): REAL
|
|||
|
гиперболический синус x
|
|||
|
|
|||
|
PROCEDURE cosh(x: REAL): REAL
|
|||
|
гиперболический косинус x
|
|||
|
|
|||
|
PROCEDURE tanh(x: REAL): REAL
|
|||
|
гиперболический тангенс x
|
|||
|
|
|||
|
PROCEDURE arsinh(x: REAL): REAL
|
|||
|
обратный гиперболический синус x
|
|||
|
|
|||
|
PROCEDURE arcosh(x: REAL): REAL
|
|||
|
обратный гиперболический косинус x
|
|||
|
|
|||
|
PROCEDURE artanh(x: REAL): REAL
|
|||
|
обратный гиперболический тангенс x
|
|||
|
|
|||
|
PROCEDURE round(x: REAL): REAL
|
|||
|
округление x до ближайшего целого
|
|||
|
|
|||
|
PROCEDURE frac(x: REAL): REAL;
|
|||
|
дробная часть числа x
|
|||
|
|
|||
|
PROCEDURE floor(x: REAL): REAL
|
|||
|
наибольшее целое число (представление как REAL),
|
|||
|
не больше x: floor(1.2) = 1.0
|
|||
|
|
|||
|
PROCEDURE ceil(x: REAL): REAL
|
|||
|
наименьшее целое число (представление как REAL),
|
|||
|
не меньше x: ceil(1.2) = 2.0
|
|||
|
|
|||
|
PROCEDURE sgn(x: REAL): INTEGER
|
|||
|
если x > 0 возвращает 1
|
|||
|
если x < 0 возвращает -1
|
|||
|
если x = 0 возвращает 0
|
|||
|
|
|||
|
PROCEDURE fact(n: INTEGER): REAL
|
|||
|
факториал n
|
|||
|
|
|||
|
------------------------------------------------------------------------------
|
|||
|
MODULE File - работа с файловой системой
|
|||
|
|
|||
|
CONST
|
|||
|
|
|||
|
OPEN_R = 0
|
|||
|
OPEN_W = 1
|
|||
|
OPEN_RW = 2
|
|||
|
|
|||
|
SEEK_BEG = 0
|
|||
|
SEEK_CUR = 1
|
|||
|
SEEK_END = 2
|
|||
|
|
|||
|
PROCEDURE Create(FName: ARRAY OF CHAR): INTEGER
|
|||
|
создает новый файл с именем FName (полное имя с путем),
|
|||
|
открывет файл для записи и возвращает идентификатор файла
|
|||
|
(целое число), в случае ошибки, возвращает -1
|
|||
|
|
|||
|
PROCEDURE Open(FName: ARRAY OF CHAR; Mode: INTEGER): INTEGER
|
|||
|
открывает существующий файл с именем FName (полное имя с
|
|||
|
путем) в режиме Mode = (OPEN_R (только чтение), OPEN_W
|
|||
|
(только запись), OPEN_RW (чтение и запись)), возвращает
|
|||
|
идентификатор файла (целое число), в случае ошибки,
|
|||
|
возвращает -1
|
|||
|
|
|||
|
PROCEDURE Read(F, Buffer, Count: INTEGER): INTEGER
|
|||
|
Читает данные из файла в память. F - числовой идентификатор
|
|||
|
файла, Buffer - адрес области памяти, Count - количество байт,
|
|||
|
которое требуется прочитать из файла; возвращает количество
|
|||
|
байт, которое было прочитано из файла
|
|||
|
|
|||
|
PROCEDURE Write(F, Buffer, Count: INTEGER): INTEGER
|
|||
|
Записывает данные из памяти в файл. F - числовой идентификатор
|
|||
|
файла, Buffer - адрес области памяти, Count - количество байт,
|
|||
|
которое требуется записать в файл; возвращает количество байт,
|
|||
|
которое было записано в файл
|
|||
|
|
|||
|
PROCEDURE Seek(F, Offset, Origin: INTEGER): INTEGER
|
|||
|
устанавливает позицию чтения-записи файла с идентификатором F
|
|||
|
на Offset, относительно Origin = (SEEK_BEG - начало файла,
|
|||
|
SEEK_CUR - текущая позиция, SEEK_END - конец файла),
|
|||
|
возвращает позицию относительно начала файла, например:
|
|||
|
Seek(F, 0, 2) - устанавливает позицию на конец файла и
|
|||
|
возвращает длину файла; при ошибке возвращает -1
|
|||
|
|
|||
|
PROCEDURE Close(F: INTEGER)
|
|||
|
закрывает ранее открытый файл с идентификатором F
|
|||
|
|
|||
|
PROCEDURE Delete(FName: ARRAY OF CHAR): BOOLEAN
|
|||
|
удаляет файл с именем FName (полное имя с путем),
|
|||
|
возвращает TRUE, если файл успешно удален
|
|||
|
|
|||
|
PROCEDURE Exists(FName: ARRAY OF CHAR): BOOLEAN
|
|||
|
возвращает TRUE, если файл с именем FName (полное имя)
|
|||
|
существует
|
|||
|
|
|||
|
PROCEDURE Load(FName: ARRAY OF CHAR; VAR Size: INTEGER): INTEGER
|
|||
|
загружает в память существующий файл с именем FName (полное имя с
|
|||
|
путем), возвращает адрес памяти, куда был загружен файл,
|
|||
|
записывает размер файла в параметр Size;
|
|||
|
при ошибке возвращает 0
|
|||
|
|
|||
|
PROCEDURE CreateDir(DirName: ARRAY OF CHAR): BOOLEAN
|
|||
|
создает папку с именем DirName, все промежуточные папки
|
|||
|
должны существовать. В случае ошибки, возвращает FALSE
|
|||
|
|
|||
|
PROCEDURE RemoveDir(DirName: ARRAY OF CHAR): BOOLEAN
|
|||
|
удаляет пустую папку с именем DirName. В случае ошибки,
|
|||
|
возвращает FALSE
|
|||
|
|
|||
|
PROCEDURE ExistsDir(DirName: ARRAY OF CHAR): BOOLEAN
|
|||
|
возвращает TRUE, если папка с именем DirName существует
|
|||
|
|
|||
|
------------------------------------------------------------------------------
|
|||
|
MODULE DateTime - дата, время
|
|||
|
|
|||
|
CONST ERR = -7.0E5
|
|||
|
|
|||
|
PROCEDURE Now(VAR Year, Month, Day, Hour, Min, Sec, MSec: INTEGER)
|
|||
|
возвращает в параметрах компоненты текущей системной даты и
|
|||
|
времени
|
|||
|
|
|||
|
PROCEDURE NowEncode(): REAL;
|
|||
|
возвращает текущую системную дату и
|
|||
|
время (представление REAL)
|
|||
|
|
|||
|
PROCEDURE Encode(Year, Month, Day,
|
|||
|
Hour, Min, Sec, MSec: INTEGER): REAL
|
|||
|
возвращает дату, полученную из компонентов
|
|||
|
Year, Month, Day, Hour, Min, Sec, MSec;
|
|||
|
при ошибке возвращает константу ERR = -7.0E5
|
|||
|
|
|||
|
PROCEDURE Decode(Date: REAL; VAR Year, Month, Day,
|
|||
|
Hour, Min, Sec, MSec: INTEGER): BOOLEAN
|
|||
|
извлекает компоненты
|
|||
|
Year, Month, Day, Hour, Min, Sec, MSec из даты Date;
|
|||
|
при ошибке возвращает FALSE
|
|||
|
|
|||
|
------------------------------------------------------------------------------
|
|||
|
MODULE Args - параметры программы
|
|||
|
|
|||
|
VAR argc: INTEGER
|
|||
|
количество параметров программы, включая имя
|
|||
|
исполняемого файла
|
|||
|
|
|||
|
PROCEDURE GetArg(n: INTEGER; VAR s: ARRAY OF CHAR)
|
|||
|
записывает в строку s n-й параметр программы,
|
|||
|
нумерация параметров от 0 до argc - 1,
|
|||
|
нулевой параметр -- имя исполняемого файла
|
|||
|
|
|||
|
------------------------------------------------------------------------------
|
|||
|
MODULE Utils - разное
|
|||
|
|
|||
|
PROCEDURE Utf8To16(source: ARRAY OF CHAR;
|
|||
|
VAR dest: ARRAY OF CHAR): INTEGER;
|
|||
|
преобразует символы строки source из кодировки UTF-8 в
|
|||
|
кодировку UTF-16, результат записывает в строку dest,
|
|||
|
возвращает количество 16-битных символов, записанных в dest
|
|||
|
|
|||
|
PROCEDURE PutSeed(seed: INTEGER)
|
|||
|
Инициализация генератора случайных чисел целым числом seed
|
|||
|
|
|||
|
PROCEDURE Rnd(range: INTEGER): INTEGER
|
|||
|
Целые случайные числа в диапазоне 0 <= x < range
|
|||
|
|
|||
|
------------------------------------------------------------------------------
|
|||
|
MODULE WINAPI - привязки к некоторым API-функциям Windows
|