|
85 |
Программирование на языке Pascal |
n1 и n2 два случайных числа в область памяти переменных rand1 и rand2 соответственно.
Способ передачи параметров по ссылки дает прирост в производительности, в случае, если в подпрограмму необходимо передавать большой объем данных. При этом, значения фактических параметров не копируются, а подпрограмме передается лишь одно число – адрес памяти, по которому располагаются данные.
При этом важно помнить, что при использовании механизма передачи параметров по ссылке, нельзя использовать в качестве фактических параметров константы (так как константы нельзя изменять, а механизм подразумевает изменение). Т.е. приведенный ниже пример будет неправильный:
Procedure Dummy(var param: Integer);
Begin
…
End;
Begin
Dummy(5); {Так при передаче параметров по ссылке делать
нельзя!}
End.
Передача массивов в подпрограммы, открытые массивы
Для того, чтобы передать массив в качестве параметра подпрограммы, необходимо объявлять массивы тем способом, который мы советовали в соответствующей главе. Например так:
Type TArray=array[1..10] of Integer; Procedure Dummy(arr:TArr);
Begin
…
End;
Var a:TArray;
Begin
…
Dummy(a);
..
End.
Однако, такой способ передачи массив не является универсальным. Он сильно зависит от размера передаваемого массива (размер ведь указан в типе). Зачастую, многие подпрограммы должны быть написаны таким образом, чтобы они могли обрабатывать массивы произвольной длины. Например, если мы хотим написать программу, подсчитывающую среднее арифметическое элементов массива, то нас может не устроить частная реализация только для массивов длиной 10, например.
В связи с этим в Pascal введены так называемые открытые массивы – это такое описание параметра в заголовке подпрограммы, в котором не указывается размер массива. Но тогда потребуется определять максимальные и минимальные индексы массива, чтобы универсальным образом их обрабатывать. В этом нам помогут две функции:
1.Low – возвращает минимальный индекс массива;
2.High – возвращает максимальный индекс массива.
85
|
86 |
Программирование на языке Pascal |
Рассмотрим пример:
Function Avg(Arr:Array of Integer): Real;
Var i:Integer;
Sum:Real;
Begin
Sum:=0;
For i:=Low(Arr) To High(Arr) do
Sum:=Sum+Arr[i];
Avg:=Sum/(High(Arr)-Low(Arr)+1);
End;
Var A:Array[1..10] of Integer; B:Array[0..19] of Integer;
I:Integer;
Begin
Randomize;
For i:=1 to 10 do
A[i]:=random(50);
For i:=0 to 19 do
B[i]:=random(100);
WriteLn('Среднее первого массива=', Avg(A)); WriteLn('Среднее второго массива=', Avg(B));
End.
В данном примере в функции, вычисляющей среднее арифметическое элементов массива, используются функции Low и High для перебора всех индексов передаваемого в качестве параметра массива. Как мы видим и начальные и конечные индексы у массивов A и B, которые затем предаются в функцию, различаются, но, тем не менее, функция корректно считает среднее арифметическое их элементов. Подсчет количества элементов массива ведется по формуле Low-High+1. Где Low – это нижний индекс массива, а High – верхний.
86