Функция начинается
с заголовка, за которым следуют разделы объявления констант, типов и переменных,
а также раздел инструкций.
Объявление функции
в общем виде выглядит следующим образом:
function
Имя (СписокПараметров) :
Тип;
const
// начало раздела объявления констант
type
// начало раздела объявления типов
var
// начало раздела объявления переменных
begin
// начало раздела инструкций
result
:= Значение; // связать с именем функции значение
end;
Заголовок функции начинается
словом function, за которым следует имя функции. После имени функции в скобках
приводится список параметров, за которым через двоеточие указывается тип значения,
возвращаемого функцией (тип функции). Завершается заголовок функции символом
"точка с запятой".
За заголовком функции
следуют разделы объявления констант, типов и переменных.
В разделе инструкций,
помимо переменных, перечисленных в разделе описания переменных, можно использовать
переменную result. По завершении выполнения инструкций функции значение этой
переменной становится значением функции. Поэтому среди инструкций функции обязательно
должна быть инструкция, присваивающая переменной result значение. Как правило,
эта инструкция является последней исполняемой инструкцией функции.
Ниже в качестве примера
приведена функция FuntToKg, которая пересчитывает вес из фунтов в килограммы:
//
Пересчет веса из фунтов в килограммы
function
FuntToKg(f:real):real;
const
//
в России 1 фунт равен 409,5 гр.
К=0.4095;
// коэф. Пересчета
begin
result:=f*K;
end;
Знаете ли Вы, что "гравитационное линзирование" якобы наблюдаемое вблизи далеких галактик (но не в масштабе звезд, где оно должно быть по формулам ОТО!), на самом деле является термическим линзированием, связанным с изменениями плотности эфира от нагрева мириадами звезд. Подробнее читайте в FAQ по эфирной физике.
