Процедуры описываются в специальном разделе описательной части программы вслед за разделом переменных. Любая процедура состоит, аналогично программе, из заголовка процедуры и блока. Заголовок процедуры представляет собой:
PROCEDURE <ИМЯ> (<СПИСОК-ПАРАМЕТРОВ>);
где PROCEDURE - служебное слово; ИМЯ - имя процедуры, определяемое в соответствии с общими правилами построения идентификаторов; СПИСОК-ПАРАМЕТРОВ - перечень имен для обозначения исходных данных и результатов работы с указанием их типов. Параметры, перечисленные в списке, называются формальными. Допускается описание процедуры, не содержащей формальных параметров:
PROCEDURE <ИМЯ>;
Содержательная часть процедуры представляет собой блок и состоит, следовательно, из раздела описаний (меток, констант, типов, переменных, процедур и функций) и раздела операторов, представляющего собой составной оператор BEGIN-END. Заканчивается блок процедуры точкой с запятой.
Пример 1
Оформить в виде процедуры алгоритм вычисления степени y = xn с натуральным показателем n:
PROCEDURE STEP1 (N: INTEGER; X: REAL; VAR Y: REAL); VAR I : INTEGER; BEGIN Y:=1; FOR I:=1 TO N DO Y:=Y*X END;
В заголовке процедуры с именем STEP1 перечислены параметры N, X, определяющие исходные данные процедуры, и параметр Y, обозначающий значение искомой степени - результат выполнения процедуры. Указан также тип всех формальных параметров.
Тело процедуры (блок) состоит:
из описательной части, где определена переменная I, необходимая и имеющая смысл только внутри данной процедуры и называемая локальной переменной (значение локальной переменной недоступно в основной программе);
из составного оператора BEGIN-END, реализующего алгоритм вычисления степени действительного числа с натуральным показателем.
Пример 2
Оформите алгоритм вычисления степени y = xn в виде процедуры без параметров:
PROCEDURE STEP2; VAR I : INTEGER; BEGIN Y:=1; FOR I:=1 TO N DO Y:= Y*X
END;
В этом случае процедура STEP2 не содержит списка формальных параметров и работает с локальной переменной I, описанной в блоке процедуры, и переменными X, N, Y, которые должны быть описаны в программе, содержащей описание данной процедуры. Переменные X, N, Y называются глобальными по отношению к процедуре STEP2. Значения глобальных переменных доступны и могут быть использованы в любой точке основной программы (в частности, внутри данной процедуры).
Функция - это подпрограмма, результат выполнения которой есть единственное скалярное значение, присваиваемое имени этой функции. Следовательно, функции являются частным случаем процедур и принципиально отличаются от них тем, что, во-первых, результат выполнения функции - одно значение, а процедуры - одно или несколько; во-вторых, результат выполнения функции передается в основную программу как значение имени этой функции, а результаты выполнения процедуры - как значения ее параметров.
Описание функции аналогично описанию процедуры и состоит из заголовка и блока. Заголовок функции имеет вид:
FUNCTION <ИМЯ> (<СПИСОК-ПАРАМЕТРОВ>): <ТИП>;
где FUNCTION - служебное слово; ИМЯ - имя функции; СПИСОК-ПАРАМЕТРОВ - перечень формальных параметров (исходных данных) с указанием их типов; ТИП - тип результата: значение, которое должно приобретать имя функции. Допускается описание функции без параметров:
FUNCTION <ИМЯ> : <ТИП>;
В содержательной части подпрограммы-функции имени функции должно быть присвоено некоторое значение (значение ответа), т.е. имя хотя бы один раз должно присутствовать в левой части некоторого оператора присваивания.
Пример 3
Оформите в виде функции алгоритм вычисления степени y = xn:
FUNCTION STEP3 (N:INTEGER; X:REAL): REAL ; VAR I : INTEGER; Y : REAL; BEGIN Y:=1; FOR I:=1 TO N DO Y:=Y*X; STEP3:=Y END;
В заголовке функции с именем STEP3 перечислены параметры N, X, определяющие её исходные данные. Результат выполнения функции (значение локальной переменной Y) присваивается её имени STEP3. Тип результата (тип функции) - REAL, который указывается в заголовке функции при её описании.
Введение локальной переменной Y не обязательно, но придает описанию функции более наглядный вид