Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

ПАРАМЕТРЫ-МАССИВЫ И ПАРАМЕТРЫ-СТРОКИ





Может сложиться впечатление, что объявление переменных в списке формальных параметров подпрограммы ничем не отличается от объявления их в разделе описания переменных. Действительно, в обоих случаях много общего, но есть одно существенное различие:

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

Procedure S (a: array [1..10] of real);

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

Если мы хотим передать какой-то элемент массива, то проблем, как правило, не возникает, но если в подпрограмму передается весь массив, то следует первоначально описать его тип. Например:

Type

аТуре = array [1..10] of Real;

Procedure S(var a: аТуре);

Поскольку короткая строка является фактически своеобразным массивом, ее передача в подпрограмму осуществляется аналогичным образом:

Type

InputType = String [15];

OutputType = String [30];

Function St(S: InputType): OutputType;

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

8.3.1. Открытые массивы

Object Pascal поддерживает так называемые открытые массивы, легко решающие проблему передачи подпрограмме одномерных массивов переменной длины.

Открытый массив представляет собой формальный параметр подпрограммы, описывающий базовый тип элементов массива, но не определяющий его размерности и границы:

Procedure MyProc(OpenArray: array of Integer);

Внутри подпрограммы такой параметр трактуется как одномерный массив с нулевой нижней границей. Верхняя граница открытого массива возвращается стандартной функцией High. Используя 0 как минимальный индекс и значение, возвращаемое функцией High, как максимальный индекс, подпрограмма может обрабатывать одномерные массивы произвольной длины.

Procedure TfmExample.bbRunClick(Sender: TObject);

{Иллюстрация использования открытых массивов: программа выводит в компонент mmOutput содержимое двух одномерных массивов разной длины с помощью одной процедуры ArrayPrint) Procedure ArrayPrint(aArray: array of Integer);

Var

k: Integer;

S: String;

Begin

S:=' ';

for k:= 0 to High(aArray) do S:= S + IntToStr(aArray[k]);

mmOutput.Lines.Add(S);

End;

Const

A: array [-1..2] of Integer = (0,1,2,3);

B: array [5..7] of Integer = (4,5,6);

Begin

ArrayPrint(A);

ArrayPrint (B);

End;

Как видно из этого примера, фактические границы массивов а и в, передаваемых в качестве параметров вызова процедуре ArrayPrint, не имеют значения. Однако размерность открытых массивов (количество индексов) всегда равна 1 - за этим следит компилятор. Если бы, например, мы добавили в программу двумерный массив с

Var

С: array,[1..3,1..5] of Integer;

то обращение

ArrayPrint(С)

вызвало бы сообщение об ошибке.

8.3.2. Конструктор массива

При обращении к подпрограмме на месте формального параметра в виде открытого массива можно указывать так называемый конструктор массива. Конструктор массива представляет собой список разделенных запятыми значений элементов массива, обрамленный квадратными скобками. Например, в предыдущем примере вместо

const

A: array [-1..2] of Integer = (0,1,2,3);

В: array [5..7] of Integer = (4,5,6);

begin

ArrayPrint(A);

ArrayPrint(B);

end;

мы могли бы написать так:

Begin

ArrayPrint ([0,1,2,3]);

ArrayPrint([4,5,6]);

End;

8.3.3. Вариантные массивы-параметры

В Delphi 32 при передаче подпрограмме массивов переменной длины и размерности удобно использовать вариантные массивы (см. п. 7.4.3). В следующем примере с помощью функции GetAr-rayAverage определяется среднее арифметическое значение всех элементов вариантного массива произвольной длины и размерности не выше 5:

function GetArrayAverage (const V: Variant): Double;

{Возвращает среднее арифметическое значение массива произвольной длины и размерности или очень маленькую отрицательную величину, если V - не вариант или если его размерность больше 5} var

i,j,k,l,m: Integer;

Sum: Double;

NItem: Integer;

begin

Result:= -1E-309;

if ((VarType(V) and VarArray) <>; VarArray) or

(VarArrayDimCount(V) >; 5) then Exit;

Sum:= 0;

NItem:= 0;

// Подсчитываем количество элементов массива

for k:= 1 to VarArrayDimCount(V) do

NItem:= NItem+VarArrayH'ighBound(V, k)-VarArrayLowBound(V,k);

// Подсчитываем сумму элементов case VarArrayDimCount(V) of

1: for i "VarArrayLowBound(V,1) to VarArrayHighBound(V,1) do

Sum:= Sum+V[i];

2: for i =VarArrayLowBound(V,1) to VarArrayHighBound(V,1) do

for j:=VarArrayLowBound(V,2) to VarArrayHighBound(V,2) do

Sum:= Sum+V[i,j];

3: for i: =VarArrayLowBound(V,1) to VarArrayHighBound(V,1) do

for j: =VarArrayLowBound(V,2) to VarArrayHighBound(V,2) do

for k: =VarArrayLowBound(V,3) to VarArrayHighBound(V,3) do

Sum:= Sum+V[i,j,k];

4: for i: =VarArrayLowBound(V,1) to VarArrayHighBound(V,1) do

for j: =VarArrayLowBound(V,2) to VarArrayHighBound(V,2) do

for k:=VarArrayLowBound(V,3) to VarArrayHighBound(V,3) do

for l: =VarArrayLowBound(V,4) to VarArrayHighBound(V,4) do

Sum:= Sum+V[i,j,k,1];

5: for i:=VarArrayLowBound(V,1) to VarArrayHighBound(V,1) do

for j:=VarArrayLowBound(V,2) to VarArrayHighBound(V,2) do

for k: =VarArrayLowBound(V,3) to VarArrayHighBound(V,3) do

for 1:=VarArrayLowBound(V,4) to VarArrayHighBound(V,4) do

for m:= VarArrayLowBound(V,5) to VarArrayHighBound(V,5) do

Sum:= Sum+V[i,j,k,1,m];

End;

Result:= Sum/NItem

End;

В подобного рода подпрограммах ограничение на размерность вариантного массива определяется, как правило, количеством вариантов в предложении case.







Дата добавления: 2015-10-18; просмотров: 466. Нарушение авторских прав; Мы поможем в написании вашей работы!




Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...


Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...


Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...


Кардиналистский и ординалистский подходы Кардиналистский (количественный подход) к анализу полезности основан на представлении о возможности измерения различных благ в условных единицах полезности...

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

Случайной величины Плотностью распределения вероятностей непрерывной случайной величины Х называют функцию f(x) – первую производную от функции распределения F(x): Понятие плотность распределения вероятностей случайной величины Х для дискретной величины неприменима...

Схема рефлекторной дуги условного слюноотделительного рефлекса При неоднократном сочетании действия предупреждающего сигнала и безусловного пищевого раздражителя формируются...

Дезинфекция предметов ухода, инструментов однократного и многократного использования   Дезинфекция изделий медицинского назначения проводится с целью уничтожения патогенных и условно-патогенных микроорганизмов - вирусов (в т...

Машины и механизмы для нарезки овощей В зависимости от назначения овощерезательные машины подразделяются на две группы: машины для нарезки сырых и вареных овощей...

Классификация и основные элементы конструкций теплового оборудования Многообразие способов тепловой обработки продуктов предопределяет широкую номенклатуру тепловых аппаратов...

Studopedia.info - Студопедия - 2014-2025 год . (0.013 сек.) русская версия | украинская версия