Презентация Работа с массивами. Теоретические сведения онлайн

Содержание слайда: Лекция Работа с массивами

Содержание слайда: Теоретические сведения Массив – это упорядоченный набор данных одного типа, снабженных индексами. Индексы предназначены для нахождения определенного элемента массива, т.е. положение каждого элемента в массиве определяется его индексом. В этом и заключается упорядоченность. Тип компонент называется базовым типом массива.

Содержание слайда: В VBA массив рассматривается как переменная структурированного типа. Массиву присваивается имя, посред­ством которого можно ссылаться на него, как на единое целое, так и на любую из его компонент.Переменная с индексом — идентификатор компоненты мас­сива. Формат записи: В VBA массив рассматривается как переменная структурированного типа. Массиву присваивается имя, посред­ством которого можно ссылаться на него, как на единое целое, так и на любую из его компонент.Переменная с индексом — идентификатор компоненты мас­сива. Формат записи: <имя массива> (<индекс>), где индекс может быть выражением порядкового типа. Видим, что индексы принято указывать в круглых скобках после имени массива. По умолчанию нумерация элементов массива начинается с 0. Говорят, что 0 – базовый индекс. Например, если А – массив из пяти чисел: 2, 3, 7, 9, 6, то А (0) = 2 – первый элемент массива, А (4) = 6 – последний.

Содержание слайда: Описание массива определяет имя, размер массива, базовый тип и производится в разделе переменных. В VBA имеются следующие способы описания массивов: Описание массива определяет имя, размер массива, базовый тип и производится в разделе переменных. В VBA имеются следующие способы описания массивов: 1.             <имя массива> (<номер последнего элемента>) [As <тип>] 2.             <имя массива> (<начальный индекс> To <конечный индекс>) [As <тип>] Отметим, что второй способ позволяет изменить базовый индекс.

Содержание слайда: Другим способом изменения базового индекса является использование оператора Option Base, который имеет следующий синтаксис: Другим способом изменения базового индекса является использование оператора Option Base, который имеет следующий синтаксис: Option Base <базовый индекс> <базовый индекс> – единица или ноль. Этот оператор применяется перед процедурой, аналогично оператору Option Explicit. Например, для изменения базового индекса с 0 на 1 используется оператор Option Base 1.

Содержание слайда: Массив A, который был рассмотрен, требует одного индекса для указания любого элемента. Массив A, который был рассмотрен, требует одного индекса для указания любого элемента. Такой массив называется одномерным (или линейным) В одномерных массивах хра­нятся значения линейных таблиц. Примеры описания одномерных массивов: 1.             Dim A (12) As Byte 2.             Dim A (1 To 12) As Byte 3.             Dim Bin (5) As Integer 4.             Dim Str_mass (4) As String 5.             Dim K (7) 6.             Dim L (0 To 3)

Содержание слайда: Заполнение массива в программе производится поэлементно. Заполнение массива в программе производится поэлементно. Чаще всего для этого используется цикл с параметром, где в качестве параметра применяется индексная переменная. Возможно заполнение массива путем простого присвоения значения элементам: Dim B (1 To 3) As Integer B (1) = 2 B (2) = 18 B (3) = 6

Содержание слайда: Удобным способом определения одномерных массивов является функция Array, преобразующая список элементов, разделенных запятыми, в вектор из этих значений, и присваивающая их переменной типаVariant. Удобным способом определения одномерных массивов является функция Array, преобразующая список элементов, разделенных запятыми, в вектор из этих значений, и присваивающая их переменной типаVariant. Dim A As Variant A = Array (10, 20, 35, 70)

Содержание слайда: Иногда в процессе выполнения программы требуется изменять размер массива. В этом случае первоначально массив объявляют как динамический. Для этого при объявлении массива не указывают его размерность. Например, Иногда в процессе выполнения программы требуется изменять размер массива. В этом случае первоначально массив объявляют как динамический. Для этого при объявлении массива не указывают его размерность. Например, Dim R () As Single В программе следует вычислить необходимый размер массива и связать его с некоторой переменной, например, n; затем изменить размер динамического массива с помощью оператора ReDim: ReDim [Preserve] Имя (<номер последнего элемента>) [As <тип>] ReDim [Preserve] Имя (<начальный индекс> To <конечный индекс>) [As <тип>] Preserve – ключевое слово, используемое для сохранения данных в существующем массиве при изменении значения последней размерности.

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

Содержание слайда: В VBA двумерный массив может быть описан следующим образом: В VBA двумерный массив может быть описан следующим образом: 1.        <имя массива> (<n1>, <n2>) [As <тип>] <n1>, <n2> – номер последнего элемента строки И номер последнего элемента строки соответственно; 2.        <имя массива> (<k1> To <k2>, <m1> To <m2>) [As <тип>] <k1>, <k2> – начальный и конечный индексы элементов строки; <m1>, <m2> – начальный и конечный индексы элементов столбца. Например, Dim mass (5, 5) As Integer Dim mass (1 To 5, 1 To 5) As Integer описывают один и тот же массив, при условии, что был использован оператор Option Base 1.

Содержание слайда: Элементы двумерного массива идентифицируются переменными с двумя ин­дексами. Элементы двумерного массива идентифицируются переменными с двумя ин­дексами. Например: М (3, 5). Обычно первый индекс связывают с номером строки, второй — с номером столбца матрицы.

Содержание слайда: Демонстрационные примеры: 1. Приведем фрагмент программы, осуществляющей ввод десяти элементов целочисленного массива А, формирование строки элементов массива и вывод его на экран. Dim A(1 To 10) As Integer, i As Integer, Str As String Str = “ ” For i = 1 To 10 A(i) = Val(InputBox("Введите   " & i & "-ый элемент массива", "Заполнение массива")) Str = Str & A(i) & " " Next MsgBox Str

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

Содержание слайда: Option Explicit Option Explicit Option Base 1 Sub Mass() Dim M1() As Integer, M2() As Integer, n As Integer, i As Integer, max As Integer, min As Integer, _ Str1 As String, Str2 As String, Str3 As String, sum As Integer, pro As Single, buf As Integer n = InputBox("Введите количество элементов массива", "Определение размера массива") ReDim M1(n), M2(n) 'Заполнение массива случайными числами в диапазоне от 1 до 10 'и формирование строки значений элементов массива Randomize For i = 1 To n M1(i) = Int(10 * Rnd + 1) M2(i) = Int(10 * Rnd + 1) Str1 = Str1 & M1(i) & " " Str3 = Str3 & M2(i) & " " Next

Содержание слайда: 'Поиск максимального элемента массива M1 max = M1(1) For i = 2 To n If M1(i) > max Then max = M1(i) Next

Содержание слайда: 'Поиск минимального элемента массива M1 min = M1(1) For i = 2 To n If M1(i) < min Then min = M1(i) Next

Содержание слайда: 'Поиск суммы элементов массива M1, стоящих на четных местах sum = 0 For i = 2 To n Step 2 sum = sum + M1(i) Next

Содержание слайда: 'Поиск произведения ненулевых элементов массива M1 pro = 1 For i = 1 To n If M1(i) <> 0 Then pro = pro * M1(i) Next

Содержание слайда: 'Поменяем местами 1-ый и 2-ой элементы массива M1 If n >= 2 Then buf = M1(1) M1(1) = M1(2) M1(2) = buf End If For i = 1 To n Str2 = Str2 & M1(i) & " " Next

Содержание слайда: MsgBox "Массив: " & Str1 & Chr(13) & "Максимальный элемент: " & max & Chr(13) & _ MsgBox "Массив: " & Str1 & Chr(13) & "Максимальный элемент: " & max & Chr(13) & _ "Минимальный элемент: " & min & Chr(13) & "Сумма элементов массива, стоящих на четных местах: " _ & sum & Chr(13) & "Произведение ненулевых элементов массива: " & pro & Chr(13) _ & "Массив после обмена 1-го и 2-го элементов: " & Str2

Содержание слайда: 'Допишем в массив M2 максимальный и минимальный элементы массива Ml ReDim Preserve M2(n + 2) M2(n + 1) = max M2(n + 2) = min Str2 = "" For i = 1 To n + 2 Str2 = Str2 & M2(i) & " " Next

Содержание слайда: MsgBox "Первый массив: " & Str1 & Chr(13) & "Второй массив: " & Str3 & Chr(13) & _ MsgBox "Первый массив: " & Str1 & Chr(13) & "Второй массив: " & Str3 & Chr(13) & _ "Второй массив c приписанным максимумом и минимумом из первого: " & Chr(13) & Str2 End Sub

Содержание слайда: 3. Дан целочисленный линейный массив. Отсортировать его в порядке убывания значений. 3. Дан целочисленный линейный массив. Отсортировать его в порядке убывания значений. Воспользуемся алгоритмом, известным под названием “метод пузырька”. Идея состоит в последовательном перемещении путем попарных перестановок наибольшего элемента вначале на место n-го элемента, затем n-1-го элемента и т.д.

Содержание слайда: Option Explicit Option Explicit Option Base 1 Sub Сортировка() Dim A() As Integer, n As Integer, i As Integer, j As Integer, P  As Integer, Str1 As String, Str2 As String n = InputBox("Введите число элементов массива:", "Определение размера") ReDim A(n) As Integer Str1 = "" Str2 = ""

Содержание слайда: 'Заполнение массива с клавиатуры и формирование строки For i = 1 To n A(i) = Val(InputBox("Введите   " & i & "-ый элемент массива", "Заполнение массива")) Str1 = Str1 & A(i) & " " Next

Содержание слайда: 'Вложенные циклы, организующие сортировку массива For i = 1 To n - 1 For j = 1 To n - 1 If A(j) <= A(j + 1) Then P = A(j) A(j) = A(j + 1) A(j + 1) = P End If Next Next

Содержание слайда: 'Формирование строки, содержащей элементы отсортированного массива For i = 1 To n Str2 = Str2 & A(i) & " " Next MsgBox "Исходный массив: " & Str1 & Chr(13) & "Отсортированный массив: " & Str2, , "Результат" End Sub

Содержание слайда: 4. Пример заполнения двумерного динамического массива случайными целыми числами и вывод на экран. 4. Пример заполнения двумерного динамического массива случайными целыми числами и вывод на экран.

Содержание слайда: Option Explicit Option Explicit Option Base 1 Sub Массив_двумерный () Dim mass() As Integer, i As Integer, j As Integer, n As Integer, m As Integer, str As String n = InputBox("Введите количество строк массива", "Размер массива") m = InputBox("Введите количество столбцов массива", "Размер массива") 'Переопределение размерности массива ReDim mass(1 To n, 1 To m) As Integer Randomize

Содержание слайда: 'Заполнение массива случайными значениями 'и накопление элементов массива для последующего вывода значений For i = 1 To n For j = 1 To m mass(i, j) = Int(100 * Rnd + 1) str = str & mass(i, j) & "   " Next j str = str & Chr(13) Next i MsgBox "Массив: " & Chr(13) & str, , "Результат" End Sub

Содержание слайда: Сформировать матрицу Пифагора (таблицу  умножения в матричной форме) и вывести ее на экран. Сформировать матрицу Пифагора (таблицу  умножения в матричной форме) и вывести ее на экран. Значения элементов матрицы Пифагора вычисляются следующим образом:  P (i, j) = i*j. Вычисления и вывод матрицы производятся в двух вложенных циклах. Вывод на экран организуем в виде пря­моугольной таблицы.

Содержание слайда: Option Explicit Option Explicit Option Base 1 Sub Пифагор() Dim P(1 To 9, 1 To 9) As Integer, i As Integer, j As Integer, Str As String Str = "" For i = 1 To 9 For j = 1 To 9 P(i, j) = i * j Str = Str & P(i, j) & "   " Next Str = Str & Chr(13) Next MsgBox "Матрица Пифагора: " & Chr(13) & Str, , "Результат" End Sub

Содержание слайда: Пример. Найти сумму элементов матрицы А(3,2)

Содержание слайда: Пример. Найти произведение положительных и отрицательных элементов матрицы М(6,12)

Содержание слайда: Контрольный пример Сколько чисел будет просуммировано в результате работы приведенного фрагмента программы? S = 0 For I = 1 To 5 For J = 1 To 4 S = S + D(I,J) Next Next

Содержание слайда: Контрольный пример Чему равно S в результате работы приведенного фрагмента программы? S = 0 For I = 1 To 5 For J = 1 To 4 S = S + D(I,J) Next Next

Содержание слайда: Контрольный пример Чему равно S в результате работы приведенного фрагмента программы? For I = 1 To 5 S = 0 For J = 1 To 4 S = S + D(I,J) Next Next

Содержание слайда: Контрольный пример Какой результат вычисляет приведенный фрагмент программы? P = 1 For I = 1 To 7 For J = 1 To 5 P = P*A(I,J) Next Next

Содержание слайда: Контрольный пример Какой результат вычисляет приведенный фрагмент программы? S = 0 For I = 1 To 3 For J = 1 To 5 S = S + C(3,J) Next Next

Содержание слайда: Контрольный пример Какой результат вычисляет приведенный фрагмент программы? S3 = 0 For I = 1 To 3 For J = 1 To 5 S= S3 + C(3,J) Next Next

Содержание слайда: Контрольный пример Какой результат вычисляет приведенный фрагмент программы? P = 1 For I = 1 To 7 For J = 1 To 5 P = P*A(I,J) Next Next

Содержание слайда: Пример. Массив D расположен в ячейках A2:F5 ЭТ с именем Массив. Найти произведения его элементов по столбцам и записать их в массив с именем Р. Результат поместить на лист Произведение, в ячейки D1:D6. Решение 1. Исходный массив:

Содержание слайда:

Содержание слайда: Контрольный пример Сколько чисел будет получено в результате работы приведенного фрагмента программы?

Содержание слайда: Пример. Массив К расположен в ячейках C4:D8 листа Первый. Записать удвоенное значение элементов этого массива в ячейки В2:С6 листа Второй.

Содержание слайда:

Содержание слайда: Контрольный пример Укажите адрес ячейки, начиная с которой осуществляется считывание массива М из ЭТ? For I = 1 To 5 For J = 1 To 8 M(I,J) = Старый.Cells(I+3,J+1) Новый.Cells(I,J+4) = 3*M(I,J) Next Next

Содержание слайда: Контрольный пример Укажите адрес ячейки, начиная с которой осуществляется запись массива Р в ЭТ? For I = 1 To 7 For J = 1 To 6 Р(I,J) = Третий.Cells(I+4,J) Четвертый.Cells(I+6,J+3) = 5+Р(I,J) Next Next Варианты ответов: А. Лист Третий, ячейка А5. В. Лист Третий, ячейка Е1. С. Лист Четвертый, ячейка D7. D. Лист Четвертый, ячейка G4.