19.1.2 Порядок создания и использования процедур

Процедура предназначена для выполнения какой-то законченной последовательности действий. Любая процедура перед ее использованием должна быть предварительно описана (объявлена).

Объявление процедуры. Любая процедура начинается с заголовка. Он состоит из зарезервированного слова Procedure, за которым следует идентификатор имени процедуры, а далее в круглых скобках – список формальных параметров. За заголовком могут идти такие же разделы, что и в основной программе. В отличие от основной программы процедура завершается не точкой, а точкой с запятой.

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

Procedure <идентификатор имени> ([список формальных параметров]);

<[раздел описаний процедуры]>;

<Тело процедуры>).

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

<заголовок процедуры> ([список фактических параметров]);.

Фактические параметры должны совпадать по количеству, порядку следования и типу с формальными параметрами процедуры

Пример

В основной программе объявлен

тип

Type TСomplex = Record Re, Im: Real; End;

и переменные

Var Compl1, Compl2, Compl3: TСomplex;

X,Y,Z: Real

затем объявлена процедура:

Procedure InPut_Complex ( Var comp1: TComplex);

Const S1=’Введите действительную часть числа’;

S2=’Введите мнимую часть числа’;

Begin Write (S1); Readln (Comp1.Re);

Write (S2); Readln (Comp1.Im);

End;

Для использования процедуры в теле основной программы используют следующую форму:

InPut_Complex (Compl1);

InPut_Complex (Compl2);.

19.1.3 Порядок создания и использования функций

Функция, в отличие от процедуры, предназначена для вычисления какого-либо параметра. Функция может вычислять параметры только следующих типов:

любого порядкового типа;

любого вещественного типа;

стандартного типа String;

любого указателя, в том числе и типа PСhar.

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

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

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

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

(Function <заголовок> ([список формальных параметров]: <тип возвращаемого параметра>

<[раздел описаний функции]>

<Тело функции>);

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

Пример.

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

Объявление функции:

Function Summ (Const A,B: Real): Real;

Begin Summ:=A+B;

End;

Использование функции в основной программе: в первой строке переменной Х присваивается сумма константы, представленной цифрой 4 и значения переменной Y, а во второй строке переменной Z присваивается сумма значений переменных Y и X:

X:= Summ (4,Y);

Z:=Summ(Y,X); .