Функция начинается
с заголовка, за которым следуют разделы объявления констант, типов и переменных,
а также раздел инструкций.
Объявление функции
в общем виде выглядит следующим образом:
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;
Знаете ли Вы, что в 1974 - 1980 годах профессор Стефан Маринов из г. Грац, Австрия, проделал серию экспериментов, в которых показал, что Земля движется по отношению к некоторой космической системе отсчета со скоростью 360±30 км/с, которая явно имеет какой-то абсолютный статус. Естественно, ему не давали нигде выступать и он вынужден был начать выпуск своего научного журнала "Deutsche Physik", где объяснял открытое им явление. Подробнее читайте в FAQ по эфирной физике.
