Подпрограммы-функции

Описание подпрограммы-функции должно находится в разделе описаний программы.

Стандартный вид описания функции:

function идентификатор ( список параметров ): тип;

Begin

тело функции;

End;

Здесь зарезервированное слово function показывает, что далее следует описание функции. Идентификатор осуществляет именование функции. Список параметров – это список переменных, используемых для передачи данных в подпрограмму-функцию. Тип – это тип значения, носителем которого является идентификатор функции. Это значение, которое будет возвращать функция.

Внутренняя структура функции аналогична структуре программы, т.е. сначала идет раздел описаний (uses, type, const, var), а затем тело функции (begin…end).

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

Следует обратить внимание, что функция возвращает единственное значение, носителем которого является имя функции!

Обращение к подпрограмме-функции производится просто путем указания имени функции в составе какого-либо выражения (например: оператора присваивания или логического условия).

Рассмотрим пример:

составить программу для вычисления выражения: z=axⁿ+bx^a+cy^m, где a, x,n,b,c,y,m – целые числа. Вычисление степени оформить в виде функции.

Uses Crt;

Function step (k,s: Word): Word;

Var i,f: word;

Begin

f:=1;

for i:=1 to s do

f:=f*k;

step:=f;

end;

Var z,a,b,c,n,m,y,x: Word;

Begin

Write (‘Введите числа a,b,c,n,m,y,x:’);

Readln (a,b,c,n,m,y,x);

z:=a*step(x,n)+b*step(x,a)+c*step(y,m);

Writeln (‘z=’,z);

End.

результат выполнения программы:

Введите числа a,b,c,n,m,y,x: 2 1 1 2 3 2 2

z=20