Объявление подпрограмм.

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

Синтаксическая диаграмма объявления подпрограмм имеет вид:

Подпрограммы имеют имя. Как правило, подпрограммы помимо имени имеют список параметров, посредством которых данные попадают в подпрограммы и извлекаются из них в виде результатов. Список формальных параметров:

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

Синтаксическая диаграмма вызова подпрограммы имеет вид:

При объявлении подпрограммы параметры, указанные в списке называют формальными.

При вызове подпрограммы формальные параметры заменяют фактическими.

Примеры объявления и вызова подпрограмм:

function Tang ( x: Real ): Real; { вещественная функция вещественного аргумента}

Пример многократного вызова функции: z:= 0.3; y:= Tang(z); d:= Tang(y –2*z);

begin

Tang:= sin(x)/cos(x)

end;

function Tang2 ( x: Real ): Real; { вещественная функция одного аргумента }

Var S, C: Real; {локальные объявления }

Begin

S:= sin(x); C:= cos(x); Tang2:= S/C

end;

procedure Tang1 ( x: Real; var rezult: Real ); { процедура }

Пример вызова процедуры: z:= 0.3; Tang1(z, y); Tang1(y –2*z, d);

begin

rezult:= sin(x)/cos(x)

end;

function Exp1 ( x, delta: Real ): Real; {экспонента - вещественная функция двух аргументов}

Var s, a: Real; i: Integer; { локальные объявлния }

Пример вызова функции: z:= 0.3; epsilon:= 1e-6; y:= Exp1(z, epsilon) + sin(z); r:= Exp1(z, 0.0001)

begin s:= 1; i:= 0; a:= x;

while abs(a) > delta do

Begin

s:= s + a; i:= i + 1; a:= a*x/i;

End;

Exp1:= s

end;

procedure csth ( x: Real; var ch, sh, th: Real ); { три гиперболические функции}

Пример вызова процедуры: z:= 0.3; csth(z, a, b, c); csth(0.45, a1, b1, c1); y:= a – c1;

Var ep, em, r: Real;

Begin

ep:= exp(x); em:= 1/ep;

ch:= (ep + em)*0.5;

sh:= (ep - em)*0.5;

th:= sh/ch

end;

Дата добавления: 2015-08-21