7. Структуровані типи даних.
7.1 Визначення масивів.
До структурованих типів даних відносяться:
1) масиви;
2) множини;
3) записи;
4) файли.
Змінна або константа структурованого типу завжди має декілька компонентів. Кожна компонента, в свою чергу, може належати до структурованого типу.
Масив - це структура даних, яка є впорядкованою сукупністю значень одного типу (з Оксфордського словника англійської мови, 1995г.).
Тип елементів масиву називається базовим типом і може бути будь-яким: простим чи складним.
Елементи масиву впорядковані по індексам. Тип індексів може бути будь-яким простим, крім дійсного і longint.
Описати масив можна в розділах var або type :
1) var
A,B: array [1 . . 5] of integer; {одновимірний масив з 5 цілих чисел}
C: array [1 . . 2, 1 . . 3] of real; {двовимірний масив з 6 дійсних чисел}
2) type
mass = array [1 . . 5] of integer;
matr = array [1 . . 3, 1 . . 4] of real;
var
A,B: mass; {одновимірний масив}
C : matr; {двовимірний масив}
В пам’яті комп’ютера (ПК) елементи масиву розташовані один за одним так, що при переході від елемента до елемента найшвидше змінюється самий правий індекс масиву. Таким чином, двовимірний масив (матриця) розташовується в пам’яті по рядках.
Звернення до елементу масиву:
A[i] - до елементу аi одновимірного масиву;
C[i,j] - до елементу cij двовимірного масиву;
Введення-виведення елементів масиву можна виконувати тільки поелементно, тобто за допомогою операторів циклу.
7.1. Одновимірні масиви.
ПРИКЛАД 1.
. В одновимірному масиві з n елементів, знайти максимальний елемент та його індекс.
Блок-схема:
Програма:
Program Ex_Array1;
uses Crt;
const n=12; {кількість елементів масиву}
var
A: array [1..n] of integer; {одновимірний масив}
max: integer;
ind, i : byte;
BEGIN
clrscr;
writeln(‘Ввести масив з’, n, ‘елементів’);
for i:=1 to n do {введення елементів масиву}
read(A[i]);
readln;
max:= A[1]; {приймаємо за max перший елемент}
ind:=1; {номер або індекс першого елемента }
for i:=1 to n do
if A[i] > max then
begin
max:= A[i]
ind:=i;
end;
writeln(‘max=’, max,’ ‘ : 3, ‘ind=’, ind);
readln; {пауза}
END.
ПРИКЛАД 2.
Дано масив X з 30 цілих чисел. Сформувати новий масив Y, в який ввійдуть парні числа масиву X і обчислити їх суму.
Блок-схема:
Програма:
Program Ex_Array2;
uses Crt;
const n=30;
type mass=array[1..n] of integer;
var X, Y: mass;
k, i : byte;
summa : integer;
BEGIN
clrscr;
writeln(‘Ввести масив з’, n, ‘елементів’);
for i:=1 to n do {введення елементів масиву}
read(X[i]);
readln;
summa:=0; {сума парних елементів}
k:=0; {лічильник елементів масиву Y}
for i:=1 to n do
if X[i] mod 2 = 0 then
begin
k:=k+1;
Y[k]:=X[i];
summa:=summa+Y[k];
end;
if k=0 then
writeln(‘В масиві X парних чисел немає)
else
begin
writeln(‘Масив парних чисел Y:’);
for i:=1 to k do {k – кількість елементів масиву Y }
write(Y[i]);
writeln;
writeln(‘Сума парних чисел summa=’, summa);
end;
END.