S: Integer;
Begin
s:= 0;
For i:=0 To High(a) Do нумерация элементов начинается с нуля!
s:= s + a[i]; номер последнего элемента определяетсяс
summa:= s; помощью функции High
End;
Передавать открытый массив можно как значение, переменную или константу. Поскольку тип индексов массива не указывается, используется соглашение, по которому эго элементы нумеруются с нуля. Номер последнего элемента в массиве можно определить с помощью функции High.
Примеры: задать целочисленный вектор a длиной n элементов случайным образом с элементами от m_min до m_max..
1. Определить минимальный min и максимальный max элементы вектора и их индексы i_min, i_max. Результаты сохранить в текстовом файле out_min_max.txt:
Program Primer_1;
Uses CRT;
Const n = 10; размер вектора
m_min = -50; диапазон значений
m_max = 50; элементов вектора
Type TVector = Array [1..n] Of Integer;
Var i, i_min, i_max: Word;
min, max: Integer;
a : TVector;
out_min_max: Text; файловая переменная
Procedure Init(elem_min, elem_max: Integer; Var Vector: Array Of Integer); используется открытый массив Vector
Var i: Word;
Begin
Randomize; запуск генератора случайных чисел
For i:=0 To High(Vector) Do задание элементов массива случайными числамив диапазоне от elem_min до elem_max
Vector[i]:=elem_max - Random(elem_max - elem_min +1);
End;
Procedure Min_max(m: Word; vector: TVector; Var min, max: Integer; Var i_min, i_max: Word); используется массив vector типа TVector
Var i: Word;
Begin
min:=vector[1]; перед поиском минимального и максимального элементов
max:=vector[1]; массива за таковые принимается первый элемент i_min:=1; массива
i_max:=1;
For i:=2 To m Do поиск начинаем со второго элемента
Begin
If (vector[i] < min) Then
Begin
min:=vector[i];
i_min:=i;
End;
If (vector[i] > max) Then
Begin
max:=vector[i];
i_max:=i;
End;
End;
End;
Begin
Дата добавления: 2015-08-08; просмотров: 527;