Алгоритм сортировки одномерного массива по возрастанию

Сортировка числовых одномерных массивов

End Sub

Next i

Next i

Dim x(1 To 10), max As Single, i As Integer

Примеры обработки одномерных массивов

Пример 16.1.

Задан одномерный массив Х=х_i i=1,2,...,10. Составить программу определения максимального элемента.(см. глава 10, рис. 10.10).

Private Sub CommandButton1_Click()

For i = 1 To 10

x(i) = Val(InputBox(" Введите " & i & " Элемент массива "))

max = x(1)

For i = 2 To 10

If max < x(i) Then max = x(i)

MsgBox "max=" & max

Для сортировки обычно применяют модифицированный метод "пузырька". В нем попарно сравниваются элементы массива и по условию сортировки меняются или не меняются местами. Массив считается упорядоченным, если в процессе попарного сравнения не было ни одной перестановки элементов.

Пример 16 .2.

Составить алгоритм и программу сортировки по возрастанию одномерного массива вещественных чисел методом пузырька.

Задан массив Х=х_i, i=1,2,...,6.

Введем переменную р - признак перестановок элементов в массиве.

Программа сортировки одномерного массива по возрастанию

Dim x(1 To 6), a As Single

Dim i, p As Integer

For i = 1 To 6

x(i) = Val(InputBox(" Введите " & i & " элемент массива "))

Next i

1: p = 0

For i = 1 To 5

If x(i) > x(i + 1) Then a = x(i): x(i) = x(i + 1): x(i + 1) = a: p = 1

Next i

If p = 1 Then GoTo 1 ‘ Если были перестановки (р=1), то переход к метке 1

Debug.Print "Упорядоченный по возрастанию массив "

For i = 1 To 6

Debug. Print x(i)

Next i

16.3. Двумерный массив

Cостоит из строк и столбцов (см. глава 10, двумерные массивы). Математическая запись массива:

А= (а_i,j), i=1,2,...,n; j= 1,2,3,…,m

где A -имя массива;

a_ij - имя элемента массива в общем виде (индексная переменная);

i -индекс, указывающий на порядковый номер строки в массиве;

J - индекс, указывающий на порядковый номер столбца в массиве;

В VBА имя элемента массива в общем виде запишется так - a(i,j).

Синтаксис описания статических двумерных массивов:

dim Имя (размерность массива) [ AS тип массива ]

Пример описания: dim а(i to 2, j to 2) as single

где: а – имя массива; массив двумерный; длина - 4 элемента; тип- вещественный. По такому описанию будут выделены 4 ячейки с именами a(1,1); a(1,2); a(2,1); a(2,2);

Общая блок – схема обработки двумерного массива по строкам.

Дата добавления: 2014-01-13