|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.05.2013, 23:44 | #1 |
Новичок
Джуниор
Регистрация: 26.05.2013
Сообщений: 3
|
Сортировка массива (Exel, метод прямого включения)
нужно отсортировать массив в ecxel'e методом прямого включения
постоянно выдаёт ошибку на цикл, иногда работает, но редко В чём дело не могу разобраться( Помогите пожалуйста! Код:
|
27.05.2013, 00:34 | #2 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 616
|
попробуйте добавить еще одно условие
Код:
|
27.05.2013, 00:42 | #3 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
у Вас J может принять значение 0
обьявите ReDim a(N) вместо ReDim a(1 To N)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
27.05.2013, 00:52 | #4 |
Новичок
Джуниор
Регистрация: 26.05.2013
Сообщений: 3
|
спасибо большое, работает.
А можете еще помочь вот с чет: тоже сортировка массива, только шейкерная. Вот код: Код:
|
27.05.2013, 03:07 | #5 | |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Цитата:
У вас никогда не сработает условие,да и алгоритм не понятен. Вот пример,перевел с С++,коменты родные оставил Примеров в инете море. Код:
Анализ,обработка данных Недорого
|
|
14.01.2014, 18:48 | #6 |
Новичок
Джуниор
Регистрация: 14.01.2014
Сообщений: 1
|
помогитеее
известен список студентов группы и количество пропущенных часов каждым из студентов. Напечатать в порядке возрастания тех,кто пропустил более 10 часов, используя метод сортировки прямыми включениями.
написали программу,но не можем додумать до конца(( помогите Sub сортировка() Dim A () as integer Dim D () as integer Dim i as integer Dim j as integer Dim n as integer n=Val(InputBox("введите значение n")) ReDim A(n) ReDim B(n) Randomize For i = 1 To n A(i) = Rnd*90 Cells (i,2).Value = A(i) Next i For i = 2 To n A(0)=A(i) j=j-1 do while A (0)<A(j) A(j+1) = A(j) j = j-1 loop A(J+1)=A(0) next i for i = 1 to n cells(i,3).value = a(i)next i end sub |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
C# сортировка методом прямого включения | Numphaulia | Помощь студентам | 1 | 29.11.2012 21:49 |
Сортировка методом прямого включения(паскаль) | Cas01 | Помощь студентам | 1 | 17.03.2011 08:37 |
[pascal]Сортировка массива методом прямого выбора, работает неадекватно. | fatoldsun | Помощь студентам | 7 | 22.04.2009 19:42 |
Сортировка массива методом прямого выбора(Дельфи) | Onza | Помощь студентам | 20 | 25.01.2009 12:05 |