Описание функции состоит из заголовка и тела. Однако описание заголовка имеет 2 отличия: прежде всего, для функций используется ключевое слово function. Поскольку функции всегда возвращают результат, завершается строка заголовка типом возвращаемого значения. Таким образом, для объявления функции мы получаем следующий синтаксис:
function <Имя> [(параметры)] : <тип результата>;
Рассмотрим пример функции, которая будет возвращать куб числа, переданного ей в качестве аргумента:
function cube(value: integer) : integer;
result := value * value * value;
Здесь определена функция, имеющая параметр value типа целого числа, которое она возводит в третью степень путем троекратного умножения, и результат присваивается специальной переменной result. Таким образом, чтобы в любом месте программы вычислить значение числа в 3-й степени, достаточно написать такое выражение:
x = cube(3);
В результате выполнения этого выражения переменной x будет присвоено значение 27. Данный пример иллюстрирует использование функций в классическом случае - для явного вычисления значения переменной. Однако функции могут использоваться в выражениях и напрямую. Например, можно поставить вызов функции cube в каком-либо месте арифметического выражения подобно обычной переменной:
x := a + cube(b) / 2;
Функции так же могут быть встроенными. Функции могут включать в себя не только локальные функции, но и процедуры. Верно и обратное - в процедурах могут использоваться локальные функции. Например, в той же процедуре TriplePrint можно было бы использовать не процедуру, а функцию PrepareStr, которая принимала бы строку и возвращала ее же в кавычках:
procedure TriplePrint(str: string);
function PrepareStr(s: string) : string;
begin
result := '"'+s+'"';
end;
var
i: integer;
begin
for i := 1 to 3 do begin
writeln(PrepareStr(str)); // функция использована как переменная
end;
end;
Помимо специальной переменной result, в функциях можно использовать другую автоматически объявляемую переменную, имя которой соответствует имени функции. Так, для функции cube имя переменной также будет cube:
function cube(value: integer) : integer;
cube := value * value * value;
