Оператор присоединения
Чтобы упростить обращение к элементам записи используют оператор присоединения, который имеет следующую структуру.
Подпрограммы
Если по ходу выполнения программы нужно производить одни и те же действия с разными данными в разных местах программы, то определяют эти действия в самостоятельную часть программы. Это автономная часть программы оформленная четко выраженный вход и выход называется подпрограммой. В Pascal используют два вида подпрограмм:
подпрограмма-процедура;
подпрограмма-функция.
Подпрограммы аналогично программе имеют заголовок, раздел описания и раздел операторов.
Подпрограммы-процедуры
Подпрограмма-процедура используется, когда основной программе из-под программы нужно передать один или более результатов или не передается никаких результатов.
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.
Подпрограммы-функции
Подпрограммы-функции используются когда основной программе передается единственный результат. Передается он через имя функции.
Подпрограмма функции имеет следующую структуру:
Function <имя функции> (формальные параметры): <тип результата функции>;
<переменная результата>:<тип результата>;
begin
{блок оператора}
<имя функции>:<переменная результата>;
end;
Program ma;
Var
A, b,nod,nok:integer;
Function nod(x,y:integer):integer;
Begin
If x<y then
Z:=y
Else
Z:=x;
Nod:=z;
{основная программа}
Begin
Write (‘a,b=’);
Readln (a,b);
Nok:=(a*b)/nod;
Write (‘nod=’,nod);
Write (‘nok=’,nok);
Readln;
End.