Друзья
Друзья


Пример использования процедур

Пример использования процедур:

Например, в таблице дана запись:

procedure Dec (var X [; N: Longint]);

В программе нужно писать следующим образом: Dec(X)
Слово procedure не следует писать.

На месте X нужно написать ваше выражение, которое вы хотите преобразовать.

Я не написал N, потому что данный параметр не обязателен. Параметры, указанные в квадратных скобках, не обязательны. Их можно не писать.

После переменной или константы указан тип данных, к которому должна принадлежать данная переменная.

Пример использования функций:

function Arctan(X: Extended): Extended;

В скобках указаны параметры функции. Это переменные или константы. За ними указан тип. После скобок тоже указан тип. Это тип данных этой функции. Функция возвращает значение этого типа.

В программе нужно написать так:
y := ArcTan(x); //Переменной y присвоилось значение арктангенса x



Таблица стандартных процедур и функций:

Функция
Описание функции
function Abs (x) Возвращает модуль выражения x целого или вещественного типа
var AllocMemCount: Integer Возвращает полное количество блоков памяти, выделенных программе
var AllocSize: Integer Возвращает кол-во памяти (в байтах), выделенное программе
procedure Append(var F: Text) Открывает текстовый файл F для добавления новых строк
function ArcTan(X: Extended): Extended Возвращает Арктангенс выражения x (в радианах)
procedure Assert(expr: Boolean[;const msg: String]) Проверяет условное значение expr. Выдаёт сообщение msg и останавливает программу, если выражение имеет значение. (Параметр msg не обязателен)
procedure AssignFile(var F; FileName: String) Связывает файловую переменную F с файлом, указанном в FileName
procedure Break Немедленно прекращает выполнение циклов for, while или repeat
procedure ChDir(S: String) Выбирает рабочим каталогом каталог S
function Chr(X: Byte):Char Преобразует числовое начение ASCII-кода X в символ
procedure CloseFile(var F) Закрывает файл F
function Concat(s1[, s2,...,sn]:String):String Объединяет строки от s1 до sn в единую строку (конкатенация)
procedure Continue Прекращает очередную итерацию цикла for, while или repeat
function Copy(S: String; Index, Count: Integer):String Возвращает часть строки (копирует из строки S Count символов, начиная с символа под номеромIndex)
function Cos (X: Extended): Extended Возвращает косинус аргумента X, заданного в радианах
procedure Dec(var X [; N:Longint]) Если N отсутствует, процедура уменьшает X на 1, если N указано, уменьшает X на N
procedure Delete(var S:String; Index, Count: Integer) Удаляет из строки S Count символов, начиная с символа под номером Index
function Eof(var F): Boolean Возвращает True, если достигнут конец файла любого типа(он весь прочитан)
function Eoln (var F: Textfile) Возвращает True, если достигнут конец строки текстового файла
procedure Erase(var F) Уничтожает файл, связанный с переменной F
procedure Exit Завершает работу подпрограммы
function FileSize(var F): Integer Возвращает размер нетекстового файла
function Frac(X:Extended):Extended Возвращает дробную часть X
procedure Halt Завершает выполнение программы
procedure Inc(var X [; N:Longint]) Если N отсутствует, процедура увеличивает X на 1, если N указано, увеличивает X на N
procedure Insert(Sourse:String; var S:String; Index: Integer) Вставляет подстроку Source в строку S, начиная с символа Index
function Int(X: Extended): Extended Возвращает целую часть вещественной переменной
function Length(S): Integer Возвращает длину строки S
function Ln(X: Real): Real Возвращает натуральный логарифм выражения X
procedure MkDir(S: String) Создаёт новый каталог с путём S
function Odd(X: Longint): Boolean Возвращает True, если аргумент - нечётное число
function Ord(C: Char): Byte Возвращает ASCII-код по символу C
function Pi: Extended Возвращает число p (пи) = 3,141592653589793
function Pos(Substr: String; S: String): Integer Возвращает номер символа, начиная с которого в строке S располагается подстрока Substr (производит поиск строки Substr в строке S)
function Random [(Range: Integer)] Возвращает псевдослучайное число в диапазоне от 0 до Range-1
procedure Randomize Инициирует генератор псевдослучайных чисел
procedure Read(var F, v1 [, v2,..., vn]) Считывает из файла F заданное количество значений и помещает их в переменные от v1 до vn
procedure ReadLn(var F, v1 [, v2,..., vn]) Считывает из файла F заданное количество строк и помещает их в переменные от v1 до vn
procedure Rename(var F; Newname: String) Переименовывает файл, связанный с файловой переменной F (присваивается новое имя Newname)
procedure Reset(var F) Открывает существующий файл для чтения и/или записи
procedure Rewrite(var F) Создаёт, а затем открывает файл F для записи
procedure RmDir(S: String) Удаляет пустой каталог S
function Round(X:Extended): Int64 Округляет вещественное число X до ближайшего целого
procedure Seek(var F; N: Longint); Пропускает N байт от начала файла F
procedure SetLength(var S; NewLength: Integer); Устанавливает новую длину строки или динамического массива
function Sin(X: Extended): Extended Возвращает синус аргумента( в радианах)
function SizeOf(X): Integer Возвращает длину переменной X в байтах
function Sqr(X: Extended): Extended Возвращает квадрат аргумента X
function Sqrt(X: Extended): Extended Возвращает квадратный корень из аргумента
procedure Str(X); Преобразует целое или вещественное число X в строку
function Trunc(X: Extended): Int64 Преобразует вещественное число X в целое путём отбрасывания дробной части
function UpCase(C: Char): Char Преобразует строчный символ C в заглавный
procedure Write(var F, v1 [, v2,..., vn]) Записывает в файл F заданное количество значений
procedure WriteLn(var F, v1 [, v2,..., vn]) Записывает в файл F заданное количество строк
 
Самое популярное
Яндекс.Метрика