Лекция: Тема: Створення програм обробки двовимірних масивів.
Мета роботи: Навчитись створювати програми для обробки елементів двовимірних масивів із виведенням даних в робочий аркуш 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.Для кожного рядка знайти кількість додатних елементів.