Тема: Створення програм обробки двовимірних масивів

Мета роботи: Навчитись створювати програми для обробки елементів двовимірних масивів із виведенням даних в робочий аркуш Excel.

1.1 Хід виконання роботи:

Розв’яжемо задачу:

Дано двомірний масив А розміром mxn елементів(m стрічок, n стовпчиків). Знайти суму квадратів елементів, що розміщені на діагоналях (m=n).

1. Завантажте середовище Visual Basic.

2. Відкрийте нову форму і розмістіть на ній такі ж об’єкти, як на малюнку 8.1, переіменуйте відповідні елементи форми та змініть заголовок форми з «UserForm1» на «Двомірний масив».

Private Sub CommandButton1_Click()

n = InputBox("Vvestu klkist elementiv N")

m = InputBox("Vvestu klkist elementiv m")

ReDim a(n, m)

For i = 1 To n

For j = 1 To m

a(i, j) = InputBox("Vvestu A(" & i & "," & j & ")")

Next j

Next i

For i = 1 To n

For j = 1 To m

Cells(2 + i, 2 + j).Value = a(i, j)

Next j

Next i

For i = 1 To n

For j = 1 To m

If i = j Then s = s + a(i, j) ^ 2

Next j

Next i

Cells(4 + n, 4 + m).Value = s

End Sub

Private Sub CommandButton2_Click()

For i = 1 To 20

For j = 1 To 20 мал.8.1

Cells(i, j) = " "

Next j

Next i

End Sub

Private Sub CommandButton3_Click()

End

End Sub

Приклад роботи програми поданий на мал.. 8.2

мал.8.2

1.2 Задачі для самостійного опрацювання

1.Виконайте самостійно завдання по варіантах:

Дано двомірний масив X розміром mхn елементів(т стрічок, n стовпців).

1. Обчислити добуток додатних елементів кожного рядка.

2. Обчислити суму всіх від'ємних елементів масиву.

3. Обчислити середнє арифметичне додатних елементів кожного стовпчика.

4. Обчислити середнє значення елементів з проміжку (-4,4).

5. Обчислити суму елементів, які перевищують по модулю значення е.

6. Обчислити суму елементів в парних стовпцях.

7. Обчислити добуток елементів у непарних рядках.

8. Обчислити суму елементів головної діагоналі матриці (для m=n)

9. Обчислити добуток елементів матриці, значення яких <π

10. Обчислити серед від'ємних елементів ті, значення яких >-10 і вивести їх порядковий номер.

11. Обчислити добуток елементів кожної непарної стрічки.

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

13. Для кожного стовпчика знайти суму ненульових елементів

14. Для кожного рядка знайти добуток ненульових елементів

15. Знайти значення максимального елемента і вивести його порядковий номер.

16. Для першого стовпця і першого рядка обчислити добуток додатних елементів.

17. Знайти значення мінімального по модулю елемента кожного рядка.

18. Знайти значення максимального по модулю елемента кожного стовпця.

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

20. Знайти середнє арифметичне всіх ненульових елементів парних рядків.

21.Вказати значення мінімального елемента кожного стовпчика і номер рядка, в якому він розміщений.

22. Вказати кількість стовпців, які включають нульові елементи.

22. Для кожного парного стовпчика обчислити добуток його елементів.

23. Для кожного непарного рядка вказати кількість елементів, більших за 1 та знайти їх добуток.

24.Перетворити масив шляхом заміни нульових елементів значенням π.

25.Для кожного рядка знайти кількість додатних елементів.