VBA excel Задача на пузырьковый метод сортировки, Решить бы... |
Здравствуйте, гость ( Вход | Регистрация )
VBA excel Задача на пузырьковый метод сортировки, Решить бы... |
Doo |
11.1.2010, 23:35
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 2 Регистрация: 11.1.2010 Город: Санкт-Петербург Учебное заведение: СПбГТИ(ТУ) Вы: студент |
С помощью пузырькового метода сортировки нужно проверить, распологаются ли по возрастанию элементы массива Z(n) [-3, 6]
Очень надо!!! Если кто понимает в этом, помогите пожалуйсто! |
Pavlov Andrey |
12.1.2010, 16:25
Сообщение
#2
|
Школьник Группа: Продвинутые Сообщений: 20 Регистрация: 7.5.2009 Город: Москва |
Этот метод в любой книжке описан))
Лень не всегда движет прогрессом)))))))))) (IMG:style_emoticons/default/smile.gif) (IMG:style_emoticons/default/smile.gif) (IMG:style_emoticons/default/smile.gif) (IMG:style_emoticons/default/smile.gif) |
Doo |
12.1.2010, 19:39
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 2 Регистрация: 11.1.2010 Город: Санкт-Петербург Учебное заведение: СПбГТИ(ТУ) Вы: студент |
Этот метод в любой книжке описан)) Лень не всегда движет прогрессом)))))))))) (IMG:style_emoticons/default/smile.gif) (IMG:style_emoticons/default/smile.gif) (IMG:style_emoticons/default/smile.gif) (IMG:style_emoticons/default/smile.gif) Почитал конешно... Суть понятна) но до полноценного решения не добраться( Вот набросок: 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] (IMG:style_emoticons/default/unsure.gif) |
Текстовая версия | Сейчас: 26.4.2024, 10:11 |
Зеркало сайта Решебник.Ру - reshebnik.org.ru