Вставка одного элемента в массив

При вставке одного элемента в массив необходимо сначала освободить место для вставляемого элемента, т.е. “раздвинуть” элементы, а затем вставить новый элемент в массив и увеличить длину массива на 1.

Пример

Дан массив – 3 2 0 6 – 8 12 5 0. После первого числа 0 вставить сумму всех элементов массива.

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

Sub PR21()

Dim x(20) As Integer

Dim n As Integer, i As Integer

Dim i0 As Integer ‘ порядковый номер числа

Dim a As Integer

n = Val(InputBox("Введите n"))

s = 0

For i = 1 To n

x(i) = Cells(1, i) ‘ ввод массива и

s = s + x(i) ‘ вычисление суммы элементов

Next i

‘ поиск порядкового номера первого числа 0

For i = 1 To n

If x(i) = 0 Then

i0 = i

Exit For ‘ выход из цикла

End If

Next i

‘ раздвигаем элементы

For i = n + 1 To i0 + 1 Step –1

x(i) = x(i – 1)

Next i

n = n + 1

x(i0 + 1) = s ‘ вставка элемента

Cells(3, 1) = "полученный массив"

For i = 1 To n

Cells(4, i) = x(i)

Next i

End Sub

При раздвижке элементов массив приобретет следующий вид:

– 3 2 0 0 6 – 8 12 5 0.

После вставки получим массив – 3 2 0 14 6 – 8 12 5 0.

Вставка одного элемента в массив - student2.ru

Вставка группы элементов в массив

Пример

В одномерный массив перед каждым числом 0 вставить сумму всех элементов массива.

Фрагмент программы, в котором происходит вставка элементов, выглядит следующим образом:

i = 1

While i <= n

If x(i) = 0 Then

For j = n + 1 To i + 1 Step –1

x(j) = x(j – 1)

Next j

x(i) = s

n = n + 1

i = i + 2

Else

i = i + 1

End If

Wend

Двумерные массивы

Двумерные массивы представляют набор однотипных элементов, расположенных в несколько строк и столбцов, например, двумерный массив из целых чисел выглядит следующим образом:

4 –3 2 4 5

6 3 2 4 0

7 1 2 6 0

12 24 25 8 4

0 4 5 8 3

Каждый элемент двумерного массива обозначается при помощи имени и индексов, заключенных в круглые скобки, например, A(i, j), X(4, 3), P(2×i, j+1), первый индекс – номер строки, второй – номер столбца.

Двумерный массив, называемый также матрицей, описывается при помощи оператора Dim.

Dim A(10, 10) As Тип ‘ нумерация с нуля

Dim A(1 To 10, 1 To 10) As Тип ‘ нумерация с единицы

Матрица, у которой количество строк равно количеству столбцов, называется квадратной матрицей.

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

1. Считывание массива с рабочего листа Excel.

For i = 1 To N

For j = 1 To M

A(i, j) = Cells(i, j)

Next j

Next i

‘ N – количество строк массива, M – количество столбцов массива.

2. Формирование массива на рабочем листе Excel при помощи счетчика случайных чисел, а затем считывание массива с рабочего листа.

Randomize

For i = 1 To N

For j = 1 To M

Cells(i, j) = Int(Rnd * 100 – 50)

A(i, j) = Cells(i, j)

Next j

Next i

Вывод двумерного массива

Вывод двумерного массива на рабочий лист Excel выглядит следующим образом:

For i = 1 To N

For j = 1 To M

Cells(i, j) = A(i, j)

Next j

Next i

Формирование матрицы

При формировании квадратной матрицы будем пользоваться следующими инструкциями. Общий вид квадратной матрицы, например размерности 4´4, выглядит следующим образом:

А₁₁	А₁₂	А₁₃	А₁₄
А₂₁	А₂₂	А₂₃	А₂₄
А₃₁	А₃₂	А₃₃	А₃₄
А₄₁	А₄₂	А₄₃	А₄₄

В квадратной матрице выделяются главная и побочная диагонали. Условия нахождения элемента на главной или побочной диагонали показаны на рис. 7.

Относительно каждой диагонали элемент матрицы может находиться выше или ниже диагонали. Условия нахождения элемента в каждой из частей матрицы показаны на рис. 8.

I, J – номера строки и столбца, в которых находится элемент матрицы.