Лабораторная работа №8. Двумерные массивы (матрицы)

Лабораторная работа №8. Двумерные массивы (матрицы)

Предварительные сведения

Описание двумерного массива похоже на описание одномерного массива. Оно имеет следующий вид:

Const N = 10

Dim M(1 To N, 1 To N) As Integer  'статический массив

Или:

N = TextBox1.text

ReDim M(1 To N, 1 To N) As Integer 'динамический массив

Так же, как и в случае с одномерным массивом, для переопределения массива без потери данных используется ключевое слово Preserve.

Пример 1

Дана матрица A(M, N). Найти сумму элементов k-й строки.

Выполнение:

1 Экранная форма для этой задачи имеет вид (рис. 48).

Рис. 48. Окно формы для примера 1 лабораторной работы № 8

2 Блок-схема алгоритма:

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

Private Sub CommandButton1_Click()

Dim M As Integer, N As Integer, k As Integer

Dim L As String, S As Integer

Dim A() As Integer

M = TextBox1.Text

N = TextBox2.Text

k = TextBox3.Text

ReDim A(1 To M, 1 To N) As Integer

For i = 1 To M

L = ""

For j = 1 To N

A(i, j) = Rnd * 10 - 5

L = L + " " + Str(A(i, j))

Next

ListBox1.AddItem (L)

Next

S = 0

For j = 1 To N

S = S + A(k, j)

Next

Label6.Caption = Str(S)

End Sub

Замечание

В приведенном выше алгоритме не производится проверки, действительно ли номер строки (k) лежит в диапазоне от 1 до М. Если задать k больше, чем М, программа завершит свое выполнение сообщением об ошибке.

Напишите самостоятельно код, позволяющий при нарушении этого условия выдавать сообщение о неверном вводе и корректно завершать программу.

4 Результат работы программы показан на рис. 49.

Рис. 49. Результат работы программы для примера 1

лабораторной работы № 8

Пример 2

Дана матрица A(M, N). Заменить элементы k-й строки нулями. Вывести полученную матрицу.

Выполнение:

1 В данном случае форма должна иметь два элемента ListBox, в которые мы будем выводить исходный массив и массив-результат (рис. 50).

2 Блок-схема алгоритма:

Рис. 50. Окно формы для примера 2 лабораторной работы № 8

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

Dim M As Integer, N As Integer, k As Integer

Dim L As String

Dim A() As Integer

Private Sub CommandButton1_Click()

M = TextBox1.Text

N = TextBox2.Text

k = TextBox3.Text

ReDim A(1 To M, 1 To N) As Integer

For i = 1 To M

L = ""

For j = 1 To N

A(i, j) = Rnd * 10 - 5

L = L + " " + Str(A(i, j))

Next

ListBox1.AddItem (L)

Next

For j = 1 To N

A(k, j) = 0

Next

End Sub

Private Sub CommandButton2_Click()

For i = 1 To M

L = ""

For j = 1 To N

L = L + " " + Str(A(i, j))

Next

ListBox2.AddItem (L)

Next

End Sub

4 Результат работы программы приведен на рис. 51.

Рис. 51. Результат работы программы для примера 2

лабораторной работы № 8

Пример 3

Определить количество отрицательных элементов каждого столбца матрицы В(M, N), и запомнить их в массиве T.

Выполнение:

1 Форма имеет вид (рис. 52).

Рис. 52. Окно формы для примера 3 лабораторной работы № 8

2 Алгоритм вычисления массива Т:

Dim M As Integer, N As Integer, K As Integer

Dim L As String

Dim B() As Integer

Dim T() As Integer

Private Sub CommandButton1_Click()

M = TextBox1.Text

N = TextBox2.Text

ReDim B(1 To M, 1 To N) As Integer

ReDim T(1 To N) As Integer

For i = 1 To M

L = ""

For j = 1 To N

B(i, j) = Rnd * 10 - 5

L = L + " " + Str(B(i, j))

Next

ListBox1.AddItem (L)

Next

End Sub

Private Sub CommandButton2_Click()

For j = 1 To N

K = 0

For i = 1 To M

If B(i, j) < 0 Then

K = K + 1

End If

Next

T(j) = K

Next

L = ""

For j = 1 To N

L = L + " " + Str(T(j))

Next

ListBox2.AddItem (L)

End Sub

3 Блок-схема алгоритма приведена в приложении 2, стр. 131.

4 Результат работы программы показан на рис. 53.

Рис. 53. Результат работы программы для примера 3

лабораторной работы № 8

Варианты

1           Вычислить суммы элементов каждого столбца матpицы А(М, N), и запомнить их в массиве В.

2           Найти произведения отрицательных элементов каждого столбца матрицы X(M, N), и запомнить их в массиве Т.

3           Определить количества положительных элементов каждого столбца матрицы А(М, N), и запомнить их в массиве R.

4           Дана матрица B(M, N). Найти произведение элементов k-й строки.

5           Дана матрица W(M, N). Найти сумму элементов k-го столбца.

6           Дана матрица Y(M, N). Заменить элементы k-й строки единицами. Вывести полученную матрицу.

7           Найти количества нечетных элементов каждого столбца матрицы А(М, N) и запомнить их в массиве В.

8           Найти суммы четных элементов каждого столбца матрицы В(М, N), и запомнить их в массиве А.

9           Дана матрица А(M, N). Заменить элементы h-го столбца нулями. Вывести полученную матрицу.

10      Дана матрица Х(M, N). Увеличить элементы k-й строки на 1. Вывести полученную матрицу.

11      Определить количества отрицательных элементов каждой строки матрицы В(М, N), и запомнить их в массиве Y.

12      Найти произведения положительных элементов каждой строки матрицы X(M, N), и запомнить их в массиве R .

13      Дана матрица В(M, N). Увеличить элементы k-й строки в 2 раза. Вывести полученную матрицу.

14      Дана матрица А(M, N). Найти произведение элементов k-го столбца.

15      Найти количества нулевых элементов каждого столбца матрицы Х(М, N), и запомнить их в массиве Y.

16      Найти количества четных элементов каждой строки матрицы А(М, N), и запомнить их в массиве W.

17      Найти произведения нечетных элементов каждого столбца матрицы В(М, N), и запомнить их в массиве Т.

18      Найти суммы нечетных элементов каждого столбца матрицы А(М, N), и запомнить их в массиве Х.

19      Определить количества нулевых элементов каждой строки матрицы Y(М, N), и запомнить их в массиве Z.

20      Дана матрица Z(M, N). Увеличить элементы k-го столбца в 3 раза. Вывести полученную матрицу.

21      Дана матрица Х(M, N). Увеличить элементы s-й строки на 10. Вывести полученную матрицу.

22      Дана матрица А(M, N). Увеличить элементы w-го столбца на число 5. Вывести полученную матрицу.

23      Определить квадраты сумм элементов каждого столбца матрицы D(М, N), и запомнить их в массиве Y.

24      Определить квадраты произведений элементов каждой строки матрицы А(М, N), и запомнить их в массиве Т.

25      Дана матрица Х(M, N). Найти количество отрицательных элементов в k-й строке матрицы.

26      Дана матрица B(M, N). Найти куб произведения элементов h-й строки.

27      Дана матрица Y(M, N). Найти количество четных элементов в k-м столбце матрицы.

28      Дана матрица W(M, N). Найти сумму нечетных элементов s-й строке матрицы.

29      Дана матрица Z(M, N). Найти произведение четных элементов в h-м столбце матрицы.

30 Определить количества кратных трем элементов каждого столбца матрицы А(М, N), и запомнить их в массиве Н.