Пример 8 Сортировка массива чисел методом ‘’пузырька

Rem Программа_8 – сортировка массива чисел методом ‘’пузырька”

Sub Main()

Dim T(5) As Single, X As Single

Dim i As Integer, OSTANOV As Integer

For i = 1 To 5

T(i) = InputBox ("Введите " & Str(i) & "-е число")

Next i

M: OSTANOV = 1 ‘ переменная, принимающая значение 0, если есть перестановка чисел

For i = 1 To 4

If T(i) > T(i + 1) Then

X = T(i + 1): T(i + 1) = T(i): T(i) = X ‘ два числа меняются местами

OSTANOV = 0

End If

Next I

If OSTANOV = 0 Then GoTo M

MsgBox “Результат: ” & Str(T(1)) & “ “ & Str(T(2)) & “ “ & Str(T(3)) & “ “ & Str(T(4)) & “ “ & _

Str(T(5))

End Sub

9