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

 

 

 

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

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);