7.1. Операции с массивами
Типовые операции при работе с массивами:
-
Вывод массива;
-
Ввод массива;
-
Поиск максимального/минимального элемента массива;
-
Поиск заданного элемента массива;
-
Сортировка массива.
Вывод массива
Под выводом массива понимается вывод на экран монитора значений элементов массива.
При выводе всех элементов массива удобно использовать оператор цикла for, при этом переменная счетчик может быть использована в качестве индекса элементов массива.
Пример вывода одномерного массива Team:
program Example2;
…
uses
SysUtils;
const
N=5;
var
Team: array[1..N] of string[10]= ('Zenit', 'Dinamo', 'Spartak', 'Rotor', 'CSK');
i:integer; //индекс, номер массива
begin
for i :=1 to N do
Writeln( i, ' element massive Team ', Team[i] );
//вывод элементов массива Team
readln
end.
Ввод массива
Под вводом массива понимается процесс получения от пользователя во время работы программы, значений элементов массива.
При вводе элементов массива удобно использовать оператор цикла for, при этом переменная счетчик может быть использована в качестве индекса элементов массива.
Иногда в качестве элементов массива используют случайные числа, которые можно получить с помощью функции Random(x), где х - случайное число в диапазоне 0..x-1.
Перед первым обращением к функции Random необходимо вызовом процедуры Randomize инициализировать программный генератор случайных чисел.
Пример ввода и вывода одномерного массива A с использованием программного генератора случайных чисел.
program Example3;
…
uses
SysUtils;
var
I: byte;
A: array[1..10] of byte; //объявление целочисленного одномерного массива A
begin
Randomize; //обращение к генератору случайных чисел
for I := 1 to 10 do
begin
A[i]:= Random(20); //присвоение элементам массива А значений
// случайных чисел в диапазоне от 0 до 19
write(A[i] ,' '); //вывод элементов массива в строку
end;
readln
end.
Пример ввода значений элементов двумерного массива D во время работы программы, с последующим их выводом на печать в виде матрицы.
program Example4;
{$APPTYPE CONSOLE}
uses
SysUtils;
var i: integer; //число строк
j: integer; //число столбцов
D: array[1..4,1..4] of integer; //объявление целочисленного двумерного массива
b
vvedite
22 element massive D 6 vvedite
23 element massive D -2 vvedite
24 element massive D 0 vvedite
31 element massive D 7 vvedite
32 element massive D -6 vvedite
33 element massive D 3 vvedite
34 element massive D 5 vvedite
41 element massive D -8 vvedite
42 element massive D 4 vvedite
43 element massive D 3 vvedite
44 element massive D 5 Zadannay
matrix D:
5 6
9 4 -5
6 -2 0
7 -6
3
5
-8 4
3
3
for i:=1 to 4 do
for j:=1 to 4 do
begin //ввод элементов массива D
writeln ('vvedite ', i, j, ' element massive D');
readln (D[i,j]);
end;
writeln('Zadannay matrix D: ');
for i:=1 to 4 do
begin
for j:=1 to 4 do write(D[i,j], ' ');
writeln;
end;
readln; //вывод массива D в виде матрицы
end.