Abs
Синтаксис:
function Abs(X) ;
Действие:
Возвращает абсолютное значение аргумента, в качестве которого можно использовать выражение целого или вещественного типа.
Append
Синтаксис:
procedure Append(var F: text);Действие:
Открывает существующий файл, связанный с файловой переменной f в режиме добавления в конец файла. При попытке открыть несуществующий файл появляется ошибка времени выполнения программы.
Arc
Синтаксис:
procedure Arc(x,у: integer; УголНачала, УголКонца: integer; Радиус: integer);Действие:
Вычерчивает дугу с центром в точке с координатами (х,у). Параметры УголНачала и УголКонца задают угловые координаты на-чальной и конечной точек линии дуги, которая вычерчивается против часовой стрелки от начальной точки к конечной. Угловые координаты задаются в градусах. Значение угловой координаты возрастает против часовой стрелки. Параметр Радиус задает радиус дуги.
Дуга вычерчивается цветом, заданным процедурой setcoior.
Arctan
Синтаксис:
function Arctan(X: real): real;Действие:
Возвращает арктангенс аргумента — угла, величина которого выражена в радианах.
Assign
Синтаксис:
мprocedure Assign(var F; ИмяФайла: string);
Действие:
Связывает файловую переменную г с конкретным файлом.
Bar
Синтаксис:
procedure Bar(xl,yl,x2,y2: integer);Действие:
Вычерчивает закрашенный прямоугольник. Параметры xl и yl задают положение левого верхнего угла прямоугольника, х2 и у2 — правого нижнего. Используемый стиль и цвет заливки задается Процедурой SetFillStyle.
Bar3D
Синтаксис:
procedure Bar3D(xI,yl,x2,y2: integer; Глубина: word; Граница: boolean);Действие:
Вычерчивает параллелепипед. Параметры xl и yl задают положение левого верхнего, а х2 и у2 — правого нижнего угла ближней грани параллелепипеда. Параметр глубина задает расстояние между передней и задней гранями. Параметр граница определяет, нужно ли вычерчивать верхнюю границу задней грани параллелепипеда.
Цвет и стиль закраски ближней грани параллелепипеда можно задать при помощи процедуры setmistyie, цвет линий границы — процедурой setcolor.
Безусловный переход
Инструкция GoTo
GoTo Метка;
Осуществляется переход к инструкции, перед которой указана метка, объявленная в разделе label.
Целые числа
Формат
Диапазон значений
SHORTINT
-128-127
INTEGER
-32 768-32 767
LONGINT
-2 147 483 648-2 147 483 647
BYTE
0-255
WORD
0-65 535
Chr
Синтаксис:
function Chr{КодСимвола: byte): char;Действие:
Возвращает символ с указанным кодом.
Circle
Синтаксис:
procedure Circle(х,у: integer; r: word);Действие:
Вычерчивает окружность радиуса г с центром в точке с координатами (х,у).
Цвет окружности можно задать при помощи процедуры Setcolor.
Close
Синтаксис:
procedure Close(var F) ;Действие:
Закрывает файл, связанный с файловой переменной к>
ClrEol
Синтаксис:
procedure ClrEol;Действие:
Очищает текущую строку (строка, в которой находиться курсор)
В которой курсор, до конца строки закрашивая ее текущим цветом.
ClrSctr
Синтаксис:
procedure ClrScr;Действинг:
Очищает текущее (заданное процедурой window) окно экрана закрашивая его цветом, заданным процедурой tJLJT*
Concat
Синтаксис:
function Concat(si [, s2, ...,sN] : string): string;Действие:
Возвращает строку, являющуюся объединением строк, указанных при вызове функции.
Cos
Синтаксис:
function Cos(X: real): real;Действие:
Возвращает косинус аргумента — угла, величина которого выражена в радианах.
Действительные числа
Формат Диапазон значений Количество значащих цифр
REAL 2.9E-39-1.7e38 11-12 SINGLE 1.5E-45-3.4e38 7-8 DOUBLE 5.0Е-324-1.7е308 15-16 EXTENDED 3.4Е-4932-1.1е4932 19-20
Delay Синтаксис: proceduir Delay (Задержка: word) ; Действие:
Обеспечивает задержку выполнения программы в миллисе-кундах.
Delete
Синтаксис:
procedure Delete(var s: srting; НомерСимвола: integer; Сколько: integer);Действие:
Удаляет из строки s ее часть, которая начинается с символа с номером п и состоит из i символов.
DetectGraph
Синтаксис:
DetectGraph(var Драйвер, Режим: integer);Действие:
Проверяет графический адаптер и определяет, какой графический драйвер и режим используются.
Dispose
Синтаксис:
procedure Dispose(var p);Действие:
Освобождает память, занимаемую динамической переменной, на которую указывает р.
Ехр
Синтаксис:
function Exp(X: real): real;Действие:
Возвращает значение, равное экспоненте аргумента.
Ellipse
Синтаксис:
procedure Ellipse(х,у: integer; УголНачала, УголКонца: word;РадиусХ, РадиусУ: word) ;
Действие:
Вычерчивает эллипс или дугу эллипса с центром в точке с координатами (к,у). Параметры УголНачала и Уголконца задают угловые координаты начальной и конечной точек линии эллипса, которая вычерчивается против часовой стрелки от начальной точки к конечной. Угловые координаты задаются в градусах, их значения возрастают против часовой стрелки. Параметры РадиусХ и Радиусу определяют горизонтальный и вертикальный радиусы эллипса. Линия эллипса или дуги вычерчивается в соответствии с установками процедуры setcoior.
EOF
Синтаксис:
function EOF(var F) : boolean;
Действие:
Проверяет, не достигнут ли конец файла (end of file) при чтении из файла, связанного с файловой переменной f. Если указатель
чтения достиг конца файла, то функция eof возвращает значение true, в противном случае — false.Eoln Синтаксис:
function Eoln [ (var F: text)]: boolean;
Действие:
Если при обращении к функции Eoln параметр не указан, то функция проверяет, не является ли очередной символ, читаемый из буфера клавиатуры, символом "новая строка". Если является, то функция возвращает значение true, в противном случае — false. Если параметр указан, то функция аналогичным образом проверяет очередной символ текстового файла, связанного с файловой переменной, указанной при вызове функции.
Erasre
Синтаксис:
procedure Erase(var F) ;Действие:
Уничтожает файл, имя которого связано с файловой переменной F.
Функции и процедуры для работы со строками и символами
Функции и процедуры преобразования
GetX, GetY
Синтаксис:
function GetX: integer; function GetY: integer;Действие:
Возвращают координаты х и у указателя вывода.
GotoXY
Синтаксис:
procedure GoToXY(x,y: byte);Действие:
Перемещает курсор в точку экрана, имеющую координаты (х,у).
GraphResult
Синтаксис:
function GraphResult: imteger;Возвращает результат (код ошибки) последней выполненной графической операции. Если операция выполнена успешно, функция возвращает ноль. Код ошибки выполнения графической операции устанавливают процедуры Bar, Bar3D, InitGraph, PieSlice, SetFillPattern, SetFillStyle, SetLineStyle, SetTextStyle
и др.
Halt
Синтаксис:
procedure Halt [ (КодЗавершения: word) ];Действие:
Завершает выполнение программы и передает управление операционной системе.
InitGraph
Синтаксис:
InitGraph(var Driver: integer; var Mode: integer; Path: string)Действие:
Инициализирует графический режим. Параметр Driver определяет драйвер видеосистемы, параметр Mode — режим работы видеосистемы, параметр Path — каталог, где находится драйвер.
Инструкция CASE
Вариант 1:
case Выражение of
Список_констант1: begin
{ Инструкции 1 } end; Список_констант2: begin
{ Инструкции 2 } end;
Список_коистантЗ: begin
{ Инструкции 3 } end; end;
Вариант 2:
case Выражение of
Список_констант1: begin
{ Инструкции 1 } end; Список_констант2: begin
{ Инструкции 2 } end;
CnncoK_KOHCTaHTj: begin
{ Инструкции J } end else begin
{ Инструкции } end; end;
Инструкции между begin и end выполняются в том случае, если значение выражения после слова case совпадает с константой из соответствующего списка. Если это не так, то выполняются инструкции, следующие после else, расположенные между begin И end..
Инструкция FOR
Вариант 1 (с увеличением счетчика):
for Счетчик := НачальноеЗначение to КонечноеЗначение do begin
Инструкции }
end;
Инструкции между begin и end выполняются
[{КонечноеЗначение — НачальноеЗначение) + 1] раз.
Если НачальноеЗначение больше, чем КонечноеЗначение, ТО ИНСТРУКЦИИ между begin И end не ВЫПОЛНЯЮТСЯ.
Примечание
Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.
Вариант 2 (с уменьшением счетчика):
for Счетчик := НачальноеЗначение downto КонечноеЗначение do begin
{ Инструкции } end;
ИНСТРУКЦИИ Между begin И ' end ВЫПОЛНЯЮТСЯ [{НачальноеЗначение — КонечноеЗначение) +1] раз.
Если НачальноеЗначение меньше, чем КонечноеЗначение, ТО ИНСТРУКЦИИ между begin И end не ВЫПОЛНЯЮТСЯ.
Инструкция IF
Вариант 1:
if Условие then
begin
{ Эти инструкции выполняются, }
{ если Условие истинно }
end
else
begin
( Эти инструкции выполняются, }
{ если Условие ложно }
end;
Вариант 2:
if Условие then
begin
{ Эти инструкции выполняются, }
{ если Условие истинно } end;
Примечание
Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.
Инструкция REPEAT
repeat
begin
{ Инструкции } end until Условие;
Выполняются инструкции, находящиеся между begin и end (инструкции цикла), после этого проверяется значение выражения Условие. Если оно равно False (т. е. условие не выполняется), то инструкции цикла выполняются еще раз. И так продолжается до тех пор, пока Условие не станет истинным. Таким образом, после слова until записывается условие завершения цикла.
Примечание
Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.
Инструкция WHILE
while Условие do begin
( Инструкции } end;
Проверяется значение выражения Условие, если оно равно True (условие выполняется), то выполняются инструкции, находящиеся между begin и end (инструкции цикла). Затем снова проверяется значение выражения Условие, и так продолжается до тех пор, пока значение выражения Условие не станет равным False. Таким образом, после слова while записывается условие выполнения инструкций цикла.
Примечание
Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.
Int
Синтаксис:
function Int(X: real): real;Действие:
Возвращает целую часть аргумента как значение вещественного типа. Дробная часть аргумента при преобразовании не учитывается, т. е. функция не производит округление.
IOResult
Синтаксис:
function lOResult: integer;Действие:
Возвращает код результата последней выполненной операции файлового ввода-вывода (в том числе открытия и закрытия файла). Если операция ввода-вывода выполнена успешно, функция возвращает ноль.
( Примечание ^
Чтобы программа могла использовать функцию lOResult, надо перед инструкциями, в результате которых может возникнуть ошибка ввода-вывода, поместить директиву {$1-}, а после этих инструкций —директиву {$!+}.
Length
Синтаксис:
function Length(Строка: string): integer;Действие:
Возвращает значение, равное количеству символов строки-аргумента.
Line
Синтаксис:
procedure Line(xl,yl,x2,y2: integer);Действие:
Вычерчивает линию между двумя точками экрана, координаты которых указаны при вызове процедуры. Линия вычерчивается стилем, установленным процедурой SetLineStyle. Цвет линии можно задать при помощи процедуры setcoior.
LineTo
Синтаксис:
procedure Line(x2,yl: integer);Действие:
Вычерчивает линию от текущего положения указателя вывода до точки, координаты которой указаны при вызове процедуры. Линия вычерчивается стилем, установленным процедурой SetLineStyle. Цвет линии можно задать при помощи процедуры
SetColor.
Ln
Синтаксис:
function Ln(X: real): real;Действие:
Возвращает значение, равное натуральному логарифму аргумента.
Массивы
Объявление одномерного массива:
ИмяМассива:array[НижнийИндекс..ВерхнийИндекс] of ТипЭлементов;
Объявление двумерного массива:
ИмяМассива:array[НижнийИндекс1..ВерхнийИндекс1,
НижнийИндекс2..ВерхнийИндекс2 ] of ТипЭлементов;
