Виведення масиву.

Виведення значень елементів масиву також виконується в циклі for з використанням операторів write і writeln.

Наприклад, виведення вектора з 5 елементів:

• в стовпець:

for i:=1 to 5 do writeln(а[i]);

• в один рядок, через пропуск-роздільник:

for i:=1 to 5 do write(а[i],' ');

• або із завданням формату, де під кожний елемент відводиться 4 позиції:

for i:=1 to 5 do write(а[i]:4);

Виведення матриць в стандартній формі запису — по рядках і стовпцях — виконується за допомогою оператора writeln; (без параметра). Він використовується після виводу поточного рядка матриці для переміщення курсора в початок наступного рядка екрану:

for i:=1 to n do

begin

for j:=1 to m do

write(а[i,j]:4);

writeln;

end;

Дії з одновимірними масивами

Умовимося, що у векторі а міститься n елементів.

• Обчислення суми елементів:

s:=0;

for i:=1 to n do s:=s+a[i]; { звичайне накопичення суми в s }

• Обчислення добутку елементів:

s:=1;

for i:=1 to n do s:=s*a[i]; { накопичення добутку в s }

Сортування масиву

Сортування і пошук є найважливішими поняттями інформатики. Сортування — це процес впорядковування набору даних одного типу за збільшенням або зменшенням значення якої-небудь ознаки. З погляду програміста найбільший інтерес представляють: сортування масиву; сортування рядків; сортування елементів файлу. Саме ці сортування використовуються при розробці компіляторів, інтерпретаторів, баз даних, оформленні статистичних зведень, довідкових матеріалів і більшості прикладних пакетів.

Лабораторна робота №3. Тема: Сортування масивів. Робота з двовимірними масивами.

Мета роботи: навчитися сортувати одновимірні масиви, працювати з двовимірними масивами.

Хід роботи

1. Запустіть програму TURBO PASCAL.

2. Сортування одновимірних масивів. Масив заповнювати, використовуючи команду введення даних з клавіатури або генератор випадкових чисел. Масив повинен містити не менше 10 елементів.

   1. Відсортуйте масив за збільшенням, використовуючи алгоритм лінійного сортування.

   2. Відсортуйте масив за зменшенням, використовуючи алгоритм бульбашкового сортування. "Бульбашковий метод" заснований на тому, що в процесі виконання алгоритму більш "легкі елементи" масиву поступово "спливають". Особливістю даного методу є порівняння, а потім, якщо потрібно, і перестановка сусідніх елементів.

const count=20;

m: array [1.. count] of byte =

(9, 11, 12, 3,19, 1,5, 17, 10, 18, 3,19, 11, 9, 12, 20, 20, 19, 2,5);

var i, j, buf, n: byte; а: integer;

begin

writeln ( 'Вихідний масив: ');

for i:=1 to count do write (' ',m[i]); writeln; readln;

а:=0;

for i:=2 to count do

begin

for j : =count downto i do

begin

а: =a+l;

if m[j-1]<m[j] then {якщо елемент справа більше елемента зліва, то "витісняємо" його вліво - пухирець "спливає"}

begin

buf:=m[j-1]; { перестановка елементів }

m[j-1]:=m[j]; m[j]:=buf;

for n:=1 to count do write (' ',m[n]);

writeln('; ітерація # ', а);

end;

end;

end;

end.

3. Відсортуйте масив випадкових чисел за збільшенням, використовуючи алгоритм бульбашкового сортування.

1. Робота з двовимірними масивами. Масив заповнювати, використовуючи команду введення даних з клавіатури або генератор випадкових чисел. Масив повинен містити n=5 рядків і m=6 стовпців.

   1. Створіть програму пошуку мінімального елемента двовимірного масиву. Змінна min використовується для зберігання значення мінімального елемента, K — номер рядка, L — номер стовпця, де він знаходиться:

Min:=a[1,1]; K:=1; L:=1;

For i:=1 to n do

Begin

for j:=1 to m do

if а[i, j]<min then

begin

min:=a[i, j] ;

K:=i; L:=j;

end;

end.

2. Створіть програму множення двовимірного масиву а на вектор (одновимірний масив) х, в результаті виходить новий вектор у:

for i:=1 to n do

begin s:=0;

for j : =1 to m do s:=s+a[i, j]*x[j] ;

у[i]:=s;

end;

3. Створіть програму пошуку максимального елемента двовимірного масиву.

4. Двовимірні масиви і пошук елементів масиву. Створіть масив: array [1.. 4,1..4], заповніть його, використовуючи генератор випадкових чисел. Виведіть його на екран у вигляді таблиці (матриці). Виконайте додатково завдання свого варіанту.

   № вар.	Задача
   	Знайти індекси мінімального елемента масиву. Обчислити добуток його від’ємних елементів.
   	Обчислити кількість елементів масиву, для яких виконується нерівність 1 < аkn < 6.
   	Обчислити добуток значень тих елементів, для яких справедливі нерівності аkn < -1 або аkn > 1
   	Обчислити кількість додатних елементів і їх добуток.
   	Обчислити суму квадратів елементів, більших за 1.
   	Обчислити добуток тих елементів масиву, для яких виконується нерівність |аkn| < 3.
   	Обчислити кількість тих елементів масиву, для яких виконується нерівність аkn > 3 і суму елементів, менших за 9.
   	Обчислити добуток від’ємних елементів. Визначити індекси максимального елемента.
   	Обчислити добуток тих елементів масиву, для яких виконується нерівність 2 < аkn < 10.
   	Обчислити добуток елементів перших двох рядків.
   	Обчислити суму елементів масиву над головною діагоналлю. Визначити індекси мінімального елемента.
   	Обчислити суму від’ємних елементів масиву. Знайти максимальний елемент.
   	Знайти добуток мінімального і максимального елементів масиву.
   	Визначити індекси мінімального і максимального елементів масиву.
   	Обчислити добуток матриці на вектор та максимальний елемент отриманого вектора.
   	Знайти добуток двох матриць та мінімальний елемент отриманої матриці.
   	Знайти суму двох матриць та обчислити слід (суму діагональних елементів) отриманої матриці.

5. Оформіть звіт про лабораторну роботу.

6. Захистіть лабораторну роботу у викладача.