Описание и использование функций

Структура любой подпрограммы аналогична структуре программы, она тоже имеет: заголовок; раздел констант, меток, типов, раздел описания переменных, раздел подпрограмм (в подпрограмме также могут содержаться другие подпрограммы) и раздел операторов, заканчивающийся «;».

Выясним, что такое подпрограмма-функция. Обычно функция используется в том случае, если результатом подпрограммы должна быть скалярная (простая) величина. Тип результата называется типом функции. В Турбо Паскале допускаются функции строкового типа.

Синтаксис описания функции упрощенно можно представить следующим образом:

function<имя_функции>(<список формальных параметров>):<тип значения>;

У функции список формальных параметров – это аргументы функции. Параметры вообще могут отсутствовать (если аргументы передаются глобально или их нет).

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

Обращение к функции – имя функции, за которым в скобках перечисляются фактические параметры/ аргументы:

<имя_функции> (<список фактических параметров>)

включается в качестве операнда в выражение, стоящее в правой части оператора присваивания (аналогично обращению к стандартным функциям). Если вызывается функция без параметров, то указывается только ее имя.

Замена формальных параметров фактическими осуществляется в порядке их следования слева направо. Правила соответствия между формальными и фактическими параметрами: соответствие по количеству, соответствие по последовательности и соответствие по типам.

В теле функции результат присваивается переменной с тем же именем, что и функция.

Var

...

begin {<имя_функции>}

. . .

 <имя_функции>:=что-то;

end ; {<имя_функции>}

Пример. Рассмотрим программу решения задачи нахождения площади четырехугольника:

{Лабораторная работа. Создание и использование функций}

{Вычислить площадь четырехугольника}

{Выполнил: Иванов Иван}

programLaba;

Var

 l1, l2, l3, l4, d, s1, s2, s: real;

{Функция вычисления площади треугольника по формуле Герона}

{Входные переменные: a, b, c - стороны треугольника}

functionPlTr(a, b, c: real): real;

Var

 p: real;

begin{PlTr}

p:=(a+b+c)/2;

PlTr:=sqrt(p*(p-a)*(p-b)*(p-c));

end; {PlTr}

begin{Laba}

writeln('Введите длины четырех сторон и диагонали');

readln(l1,l2,l3,l4,d);

s1:=PlTr(l1,d,l4);

s2:=PlTr(d,l2,l3);

s:=s1+s2;

writeln('Площадь четырехугольника =', s);

end. {Laba}