У нас: 141825 рефератів
Щойно додані Реферати Тор 100
Скористайтеся пошуком, наприклад Реферат        Грубий пошук Точний пошук
Вхід в абонемент



Лабораторна робота - Одновимірні масиви
4



Лабораторна робота №

Тема: “Одновимірні масиви”

Одновимірні масиви

Масив – упорядкований набір із одним ім’ям, що складається з фіксованого числа однотипних елементів.

Елементи масиву нумеруються за допомогою індексу, наприклад, І(=1, 2, 3). Якщо з масиву R(І) потрібно обрати перший елемент і надати йому значення Х, то це записується за допомогою ідентифікатора масиву: X = R(I)

Інші елементи масиву записуються аналогічно: Y = R(2); Z = R(3)

Елементи масиву R належать до одного типу, тому що всі координати X, Y, Z набувають дійсних значень.

Масив можна побудувати з елементів будь-якого дозволеного типу: цілого, символьного, логічного тощо. Прикладом масиву символьного типу є алфавіт. Якщо позначити його як Azbooka, то значення його елементів можна визначити як:

Azbooka (1) = ‘А’

Azbooka (2) = ‘Б’

…………………

Azbooka (33) = ‘Я’

Масив компактно розміщується в оперативній пам’яті комп’ютера. Звернення до того чи іншого елемента масиву робиться за ідентифікатором та індексом, що має натуральні значення 1, 2, 3, … N. Масиви можуть бути одно-, дво-, тривимірними і т.д.

Двовимірні масиви зображуються у вигляді прямокутних таблиць, названих матрицями. Елементи матриць нумеруються двома індексами: перший відповідає номеру рядка, а другий – номеру стовпця. У тексті програми до елементів двовимірного масиву звертаються за допомогою ідентифікатора і індексів, наприклад, Array (j, k), Trek (2, m), Bym (1, 9). У дужках вказуються номери рядка і стовпця, на перехресті яких розташовано елемент.

Поняття масиву може бути узагальнене на випадок трьох і більше змінних індексів (тривимірні, n-вимірні масиви). Якщо масиви з двома індексами можна назвати таблицями, то у разі трьох і більше індексів говорити про таблиці не доводиться.

{$N+,E+}

var x:array [1..15] of integer;

i,max,min:integer;

begin

writeln ('X=');

randomize;

for i:=1 to 15 do begin

x[i]:=random(10);

write (x[i],' ');

if x[i]<min then min:=x[i];

if x[i]>max then max:=x[i];

end;

writeln;

writeln ('(Max-min)/2=',(max-min)/2:1:1);

readln;

end.