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

Тема: Обробка одновимірних та двовимірних масивів.

Мета: Навчитись працювати з масивами за допомогою системи візуального проектування Visual Basic.

Короткі відомості

Для збереження величин крім простих змінних можна використовувати масиви.

Масив являє собою набір змінних з одним ім'ям і різними індексами. Кожна така змінна називається елементом масиву. Кількість елементів, що зберігаються в масиві, називаються розміром масиву. Розмір масиву обмежений обсягом оперативної пам'яті і типом даних елементів масиву.

Всі елементи масиву мають однаковий тип. Однак, якщо масив має тип variant, то окремі елементи можуть містити дані різних типів.

Найчастіше використовуються масиви двох розмірностей – одномірні і двовимірні.

Одномірний масив має вигляд лінійної таблиці (вектора). Його елементи позначаються змінною з одним індексом: А(1) , А(2), А(3)... A(j)..A(N)

Двовимірний масив являє собою прямокутну таблицю (матрицю). Його елементи позначаються змінною з двома індексами, де перший індекс указує номер рядка, а другий номер стовпця:

С(1,1) С(1,2) С(1,3)

С(2,1) С(2,2) С(2,3)

С(3,1) С(2,2) С(3,3)

C(I,J) –елемент i-го рядка та j-стовпця.

Приклад 9.1 Обчислити добуток елементів вектора А(10), які менше нуля і підрахувати їхню кількість (****)

**** - Для спрощення виконання роботи завдання на перетворення масивів необхідно виконувати без попередньої розробки інтерфейсу.

Рішення

1. На формі Form6 власного проекту помістити командну кнопку Command1.

2. Блок – схема (рис. 9.1)

Опис блоків:

0. 1. Резервуємо в оперативній пам'яті місце під статичний масив від 1 до 10;

1. 2. У циклі від 1 до 10 у діалоговому режимі ручного уведення вводимо послідовно елементи одномірного масиву;

2. 3. У тім же циклі виводимо введений масив на форму;

3. 4. Початкове значення добутку дорівнюємо до одиниці, а лічильник До для підрахунку кількості негативних елементів масиву до нуля;

4. 5. У циклі від 1 до 10 здійснюємо пошук від’ємних елементів;

5. 6. Здійснюється процес накопичення добутку від’ємних елементів масиву і підрахунок їхньої кількості;

6. 7. Висновок помістити на форму шуканого добутку і кількості від’ємних елементів.

Рисунок 9.1 – Блок – схема алгоритму перетворення одновимірного масиву

3. Програмний код:

Private Sub Command1_Click()

'Введення одновимірного масиву

Dim a(1 To 10) As Double

For і = 1 To 10

a(і) = InputBox("Введіть " & і & "-й

елемент масиву ", "Введення

одновимірного масиву:", 1)

Print a(i);

Next

p = 1: k = 0

For i = 1 To 10

If a(i) < 0 Then p = p * a(i): k = k + 1

Next

Print

Print

Print "Кількість елементів, менших нуля ="; k

ttt = MsgBox("Добуток =" & p, , "Відповідь")

End Sub

4. Введення програми у комп’ютер.

5. Налагодження та отримання результату (див рис 9.2).

Рисунок 9.2 - Результат рішення задачі на перетворення одновимірного масиву

Приклад 9.2 Знайти суму елементів матриці А(6,6) (Перетворення двовимірного масиву)

Рішення

1. На формі Form6 власного проекту помістити командну кнопку Command2.

2. Блок – схема (рис. 9.3)

Опис блоків

0. Відкриваємо зовнішній цикл із лічильником і, що змінюється від 1 до 6 ;

1. Відкриваємо внутрішній цикл із лічильником j, що змінюється від 1 до 6 ;

2. У діалоговому режимі ручного уведення вводимо елементи масиву А;

3. Відкриваємо зовнішній цикл із лічильником і, що змінюється від 1 до 6 ;

4. Відкриваємо внутрішній цикл із лічильником j, що змінюється від 1 до 6;

5. Виводимо на форму уведений масив А;

6. Привласнюємо початкове значення сумі S;

7. Відкриваємо зовнішній цикл із лічильником і, що змінюється від 1 до 6 ;

8. Відкриваємо внутрішній цикл із лічильником j, що змінюється від 1 до 6;

9. Здійснюємо процес пошуку суми;

10. Вивід шуканої суми на форму.

Рисунок 9.3 – Блок – схема алгоритму перетворення двовимірного масиву

3. Програмний код:

Private Sub Command2_Click()

Dim a(1 To 6, 1 To 6) As Double

'Увод матриці А

For i = 1 To 6

For j = 1 To 6

a(i, j) = InputBox("Введить A(" & i & "," & j & ")=", "Увод масива А", 2)

Next j, i

' Вивід матриці А на екран

For i = 1 To 6

For j = 1 To 6

Print ; Tab(5 * j); a(i, j);

Next j, i

s = 0

For i = 1 To 6

For j = 1 To 6

s = s + a(i, j)

Next j

Next i

Print

Print

Print Tab(35); "Сума елементів матриці А="; s

End Sub

3. Введення програми в комп'ютер

4. Налагодження та отримання результату (див рис 9.4).

Рисунок 9.4- Результат рішення задачі на перетворення двовимірного масиву