Подпрограммы-процедуры

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

Procedure <имя процедуры> (<формальные параметры>);

{блок описания}

begin

{блок операторов}

end;

Тест процедуры указывается в блоке описания основной программы. В блоке операторов основной программы содержится обращение к этой процедуре.

Формальные параметры бывают входные и выходные.

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

(<имя перемен. 1>:<тип переменной>; <имя перемен.2>,., <имя перемен.3>,<имя перемен.4>:<тип переменной>); var <имя перемен. n>:<тип переменной>,..., var <имя перемен. x>,<имя перемен. y>:< тип переменной >;

Фактические параметры указываются при вызове процедуры в блоке операторов. Оператор вызова имеет следующий вид:

<имя процедуры>(фактические параметры);

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

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

Имена величин, объявленные в разделе описания подпрограммы, доступны в этой подпрограмме или вложенной в нее подпрограмме. Не доступны основной программе и называются локальными.

Program ma;

Var

C:real;

N,m:byte;

N1,m1,n_m1:longint;

Procedure fackt(k:byte;var p:longint);

Var

I:byte;

Begin

P:=1;

For i:=1 to k do p:=P*I;

End;

{ основная программа }

Begin

Repeat

Write (‘m=’, ‘n=’);

Read (m,n);

Until n>m;

Fackt (n,n1);

Fackt (m,m1);

Fackt (n_m, n_m1);

C:= n1/m1*(n-m)1;

Write (‘c=’,c);

Readln;

End.