Функции Объявление функции
Заголовок функции
Обращение к функции
Отличие функции от процедуры состоит в том, что
в заголовке функции после списка параметров необходимо указать тип функции(то есть тип вычисляемого ею результата) - имя ранее объявленного или стандартного типа,
в вызывающей программе обращение к функции можно записывать в правой части оператора присваивания и в выражениях, если тип результата простой (но присваивать значение имени функции в вызывающей программе запрещено),
в объявлении функции её имя (а не обращение к ней, делающее подпрограмму рекурсивной) не должно встречаться в правой части операторов присваивания или в выражениях,
в объявлении функции должен быть хотя бы один оператор, присваивающий её имени, или объявленной по умолчанию локальной (известной только внутри функции) переменной Resultтого же типа, что и тип функции, результат вычислений,
в отличие от имени функции, переменную Result можно использовать в правых частях операторов присваивания и в выражениях как дополнительную переменную, представляющую результат вычислений.
Обращение к функции можно так же, как и обращение к процедуре, записывать как отдельный оператор в режиме расширенного синтаксиса, используемом в Delphi по умолчанию. Обращение к функции отдельным оператором может иметь смысл, когда интересующий нас результат представлен параметрами, а не именем функции. Отключить режим расширенного синтаксисаможно директивой {$X-} или {$EXTENDEDSYNTAX OFF}, но тогда не будет объявлена по умолчанию локальная переменная Result, и при попытке её использования компилятор сообщит об ошибке.
Пример 1. Составить и использовать функцию, возвращающую максимальный из первых Nэлементов массива X(N), N≤100.
type
tMas=array[1..100] of Real;
. . . . .
function MaxMas(N:Integer; const X:tMas):Real;
var
i:Integer;
begin
Result:=X[i];
for i:=2 to N do
if X[i]>Result then
Result:=X[i];
end;
. . . . .
var
Y:tMas;
begin// РАЗДЕЛ ОПЕРАТОРОВ ПРОГРАММЫ
. . . . .
//Вызов функции в операторе вывода
WriteLn('Максимальный из сорока элементов массива Y = '
,MaxMas(40, Y));
. . . . .
end.
Если отключить режим расширенного синтаксиса, то в объявлении функции пришлось бы отказаться от использования переменной Result и объявить дополнительную переменную для поиска максимального значения в массиве. В результате получили бы следующее объявление функции.
function MaxMas(N:Integer; const X:tMas):Real;
var
i:Integer;
R:Real;//Дополнительная переменная
begin
R:=X[1];
for i:=2 to N do
if X[i]>R then
R:=X[i];
//Чтобы функция возвратила вычисленное значение,
//оно должно быть присвоено её имени
MaxMas:=R;
end;
Использование функций позволяет не только сделать текст программы более удобным для понимания её алгоритма, но и уменьшить его при необходимости повторных вычислений в разных частях программы.
Пример 2. Составить программу поиска приближенных значений корней уравнения
и их уточнённых значений методом половинного деления.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
//Функция, вычисляющая выражение, входящее в уравнение
function F_PX(const P,X:Real):Real;
var
PX:Real;
begin
PX:=P*X;
F_PX:=X*Cos(3*PX)/P/12-Sin(3*PX)/Sqr(P)/36
-3*X*Cos(PX)/P/4 +3*Sin(PX)/Sqr(P)/4;
end;
//функция, уточняющая значение корня
function KorenF_PX(P,X0,X1,Eps:Real):Real;
var
F0,F,F1,X:Real;
begin
F0:=F_PX(P,X0);
repeat
X:=(X0+X1)/2;
F:=F_PX(P,X);
if F0*F>0 then
X0:=X
else
X1:=X;
until Abs(X1-X0)<Eps;
KorenF_PX:=X;
end;
var
P,X, A, B, dX, F0, F1,Eps,Koren:Real;
begin// РАЗДЕЛ ОПЕРАТОРОВ ПРОГРАММЫ
Write('Введите границы интервала и шаг аргумента:');
ReadLn(A,B,dX);
Write('Введите параметр выражения P: ');ReadLn(P);
Write('Введите требуемую точность корня: ');ReadLn(Eps);
F0:=F_PX(P,A);
dX:=0.01;
X:=A+dX;
while X<B+0.005 do
begin
F1:=F_PX(P,X);
if F0*F1<0 then
begin
//Найдены приближенные значения корня
//X-dX - приближение, меньшее корня
//X - приближение, большее корня
WriteLn(X-dX,' = левое приближение корня');
//Поиск приближения с точностью Eps
Koren := KorenF_PX(P,X-dX,X,Eps);
//Вывод результатов
WriteLn(Koren,' = корень с точностью ',Eps);
WriteLn(F_PX(P,Koren),' = значение функции в корне');
WriteLn;
end;
F0:=F1;
X:=X+dX;
end;
ReadLn;
end.