Алгоритмы и программы. Афанасьева Т. В - 169 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

169
компонент что и компоненты открытого массива. Такие параметры
введены для того, чтобы подпрограмма могла обрабатывать массив
любого размера. Фактический размер массива в этом случае может быть
определен с помощью функции High. Открытый массив задается как и
обычный массив, но только без указания типа индекса. Индексация эле-
ментов открытого массива начинается с
нуля, а максимальный индекс
элемента равен значению функции High.
Пример 9.8. Функция вычисления максимального элемента в
массиве.
function Max(var Mas : Array of Integer): Integer;
var Ma: Integer;
i: Byte;
begin
Ma := Mas[0];
for i := 1 to High(Mas) do {цикл до наибольшего индекса}
if Ma < Mas[i] then
Ma :=Mas[i];
Max := Ma
end;
Пример 9.9. Функция нахождения суммы элементов массива меньше
заданного числа с использованием в качестве передаваемого параметра
массива открытого типа; размер массива и его элементы определяются
датчиком случайных чисел.
Program SummaElementov;
Type
tArr=array[1..15] of Integer;
Var
Massiv : tArr;
Ma,K,X : Byte;
C : Integer;
Sum : Integer;
Function Summa(var Mas : Array of integer): Integer;
Var S: Integer;
i: Byte;
begin
S := 0;
for i := 0 to High(Mas) do
if Mas[i] < C then S := S + Mas[i] else Ma := Ma + 1;
Summa := S;
end;{Summa}

Страницы