Функции

Заголовок функции состоит из слова Function, за которым указывается имя функции, затем в круглых скобках записывается список формальных параметров, далее ставится двоеточие и указывается тип результата функции.

В теле функции обязательно должен быть хотя бы один оператор присваивания, в левой части которого стоит имя функции, а в правой - ее значение. Иначе значение функции не будет определено.

Таким образом, общий вид описания функции следующий :

Function Имя[(список формальных параметров)]:Тип результата

описательная часть

Begin

тело функции, в которой обязательно должно быть

присваивание Имя_функции:=значение

End;

Пример 1 Составить программу, подсчитывающую число сочетаний без повторения из n элементов по k. Число сочетания без повторения вычисляется по формуле

Обозначим через n и k переменные для хранения введенных чисел; С - переменную для хранения результата.

Воспользуемся функцией для вычисления факториала числа n. (n!=1*2*..*n)

program sochet;

var n,k : integer;

a1,a2,a3,c : lohgint;

Function factorial(n:integer):longint;

var i: integer;

rez : longint;

begin

rez:=1;

for i:=1 to n do rez:=rez*i;

factorial:=rez;

end;

begin

writeln(‘ ввод n и k :’); readln(n,k);

a1:=factorial(n); { вычисление n!}

a2:=factorial(k); { вычисление k!}

a3:=factorial(n-k); {вычисление (n-k)!}

c:=a1 div (a2*a3); { результат}

writeln(‘результат=’,c) ;

end.

Первая строка в описании функции - это ее заголовок. Служебное слово Function (функция) указывает на то, что именем factorial названа функция. В скобках записан список формальных параметров функции, состоящий из одной переменной целого типа. Далее в заголовке указан тип значения функции. В данном примере результат функции factorial - длинное целое число.

За заголовком функции следует описательная часть функции, которая, как у программы, может состоять из разделов описания переменных, констант, типов. В данном примере есть переменные i (счетчик цикла) rez (для накопления значения факториала).

Далее идет раздел операторов (тело функции).

В тексте программы описания функций всегда следуют за разделом описания переменных и до начала основной части, как и описания процедур.

Пусть n=5, k=3. Когда в программе встречается оператор a1:=factorial(n), выполняются следующие действия:

• выделяется память для переменных, описанных в функции factorial;

• формальному параметру присваивается значение фактического: n:=n (n=5);

• выполняется функция, вычисляется факториал числа 5;

• значение функции передается в место обращения к этой функции, то есть присваивается переменной a1;

• в операторах a2:=factorial(k) a3:=factorial(n-k) еще дважды вызывается функция factorial с параметрами k=3 n-k=2.

Функция - это самостоятельная часть программы, имеющая собственные переменные, которым отводится отдельное место в памяти ЭВМ. Этим объясняется тот факт, что переменные с одинаковыми именами, используемые в функции и в основной программе, являются разными ( переменная n основной программы и параметр n функции). При выполнении программы машина «не путает» имена этих переменных, т.к. области их действия не совпадают.

Пример 2 : Написать функцию, подсчитывающую количество цифр натурального числа. Используя ее, определить, в каком из двух данных чисел больше цифр.

Program chisla;

Var n1, n2 : longint;

k1, k2 : byte;

Function kol(x : longint): byte;

var k: byte;

begin

k:=0;

While x<>0 do

begin

Inc(k);

x:=x div 10;

end;

kol:=k;

end;

BEGIN

writeln(‘Введите два числа’); readln(n1, n2);

k1:=kol(n1);

k2:=kol(n2);

if k1=k2 Then writeln(‘одинаковое количество цифр’)

else if k1>k2 Then Writeln(‘в первом числе цифр больше’)

else writeln(‘во втором числе цифр больше’)

END.