Параметры - значения и параметры - переменные
В языке программирования Турбо Паскаль различают несколько видов формальных параметров: параметры - значения, параметры - переменные, параметры - процедуры, параметры - функции и нетипизированные параметры-переменные.
Рассмотрим использование параметров-значений и параметров-переменных.
Если в списке формальных параметров имени параметра предшествует слово 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.
Дата добавления: 2014-12-06; просмотров: 925;