31.2Параметры - значения и параметры - переменные

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

Рассмотрим использование параметров-значений и параметров-переменных.

Если в списке формальных параметров имени параметра предшествует слово VAR, то этот параметр является параметром - переменной. В качестве фактического параметра, соответствующего формальному параметру - переменной, должна использоваться переменная. Ее тип должен совпадать с типом, заданным в описании формального параметра - переменной. Все действия, задаваемые телом процедуры, выполняются над фактическим параметром - переменной, который доступен в течение всего времени действия оператора процедуры.

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

Если в списке формальных параметров ничего не предшествует имени параметра, то он является параметром - значением. Фактическим параметром, соответствующим параметру - значению, должно быть выражение, в частности, просто имя переменной или константа. Формальный параметр в этом случае - просто локальная переменная вызываемой процедуры. В качестве начального значения такому параметру присваивается текущее значение соответствующего фактического параметра, то есть значение выражения, вычисленное в момент обращения к процедуре. Значение формального параметра может изменяться при выполнении процедуры, однако никакого влияния на значение фактического параметра это не оказывает. Следовательно, параметр - значение не может представлять собой результат работы процедуры.

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

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

Программа 2.1

program multmatr;

{ Умножение матриц }

USES CRT;

const n=3;

type matr=array[1..n,1..n] of integer;

var a,b,c:matr;

procedure multmatr(x,y:matr;var z:matr);

{ Процедура умножения матриц }

var i,j,k,s:integer;

begin

for i:=1 to n do

for j:=1 to n do

begin

s:=0;

for k:=1 to n do

s:=s+X[i,k]*Y[k,j];

Z[i,j]:=s

end

end;

procedure inpmatr(var x:matr);

{ Процедура ввода матрицы }

var i,j:integer;

begin

for i:=1 to n do

for j:=1 to n do

begin

write('Введите x[',i,',',j,']:');

readln(x[i,j])

end

end;

procedure outmatr(x:matr);

{ Процедура вывода матрицы }

var i,j:integer;

begin

for i:=1 to n do

begin

for j:=1 to n do

write(x[i,j],' ');

writeln

end

end;

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

begin

clrscr;

writeln(' ***** ПРОИЗВЕДЕНИЕ МАТРИЦ A и B *****');

writeln;

writeln('Введите матрицу А:');

writeln;

inpmatr(a);

writeln;

writeln('Введите матрицу B:');

writeln;

inpmatr(b);

multmatr(a,b,c);

clrscr;

writeln('Произведение матриц');

writeln;

writeln('A:');

outmatr(a);

writeln;

writeln('и B:');

outmatr(b);

writeln;

writeln('равно:');

outmatr(c)

end.