Пример 16

Разработать информационную технологию, позволяющую упорядочить вектор А произвольной размерности m по возрастанию значений его элементов.

Входные данные: m – целое число;

A=[a_i], – массив целых чисел.

Выходные данные: A=[a_i], – упорядоченный массив целых чисел.

Математическая модель:

для n = m...1

y = –1000; для i = 1.. n;

если a_i > y, то y = a_i, k = i, a_k = a_n, a_n = y

Схема алгоритма:

Код приложения:

Private Sub Form_Click()

Dim m As Integer, n As Integer, A() As Integer

Dim i As Integer, k As Integer, y As Integer

m = InputBox("Введите размерность вектора")

ReDim A(1 To m)

Print "Исходный массив"

For i = 1 To m

а(i) = InputBox("a(" & i & ")=")

Print а(i);

Next

For n = m To 1 Step -1

y = -10000

For i = 1 To n

If а(i) > y Then y = а(i): k = i

Next i

а(k) = а(n): а(n) = y

Next n

Print Chr(10); "Упорядоченный массив"

For i = 1 To m

Print а(i);

Next

End Sub