Версия для печати темы

Автор: Doo 11.1.2010, 23:35

С помощью пузырькового метода сортировки нужно проверить, распологаются ли по возрастанию элементы массива Z(n) [-3, 6]

Очень надо!!! Если кто понимает в этом, помогите пожалуйсто!

Автор: Pavlov Andrey 12.1.2010, 16:25

Этот метод в любой книжке описан))
Лень не всегда движет прогрессом))))))))))

Автор: Doo 12.1.2010, 19:39

Почитал конешно... Суть понятна) но до полноценного решения не добраться(
Вот набросок:

Sub Commander1_Click()
Dim k As Integer
Dim i As Integer
k = 0
For i = 1 to n
If Z(i) > Z(i +1) Then
k = 1
End If
Next i
If k = 1 Then
MsgBox ("Элементы массива не распологатся по возростанию")
End If
If K = 0 Then
MsgBox ("Элементы массива расположены по возростанию")
End If
End Sub


Надо применить конкретно к массиву Z(n) = [-3, 6]