Помагите решить задачу

[Sliver]

Помагите пожалуйста...

Задан целостный массив А10.Упорядочить по возрастанию те элементы массива которые стоят на нечетных местах.

тебе подойдет вот этот алгоритм
http://ru.wikipedia.org/wiki/Сортировка_выбором
только надо основной цикл алгоритма пускать не по всем елементам, а только по нечетным и поиск минимального только среди нечетных делать

[Atomikc]

Эхехе... вобщем надо чтоб нажал кнопку "кнопка" и оно вывело все нечётноые числа по возростанию на примере:
1 3 5 7 9 ..... итд до 99 ...
.................................................. .................................................. ....
Зы... понятное дело, что моно смухлевать было бы (я так всегда делаю, преподы ламеры), но это ксожалению исключение ... надо через масив...
Эхехе... Пора уже учить этот визуал безик самому.. да некогда....

Option Explicit

Private Sub Command1_Click()
' Упорядочить одномерный массив по возрастанию

Dim i As integer
Dim ip As integer
Dim max As integer
Dim imax As integer
Const N = 5
Dim Mas(0 To 10) As integer

' Очистить форму
Cls

' Заполняем массив случайными числами
For i = 0 To 10
Mas(i) = Int(Rnd * 50)
Print Mas(i);
Next i
Print

For ip = 0 To 10
max = Mas(ip)
imax = ip

For i = ip + 1 To N

If Mas(i) < max Then max = Mas(i): imax = i
Next i
Mas(imax) = Mas(ip)
Mas(ip) = max
Next ip

' Вывести упорядоченный массив на экран
For i = 0 To N
Print Mas(i);
Next i
End Sub

Это то, что имеется... но оно выводит числа не попорядку и чётные и нечётные... вобщем багов больше чем "полезного"....

Atomikc
прочитай задачу, нужно отсортировать числа которые стоят на нечётных местах, отсортировать между собой, а остальные не трогать
а ты сортируешь весь масив

[Sliver]

а как отсортировать числа которые стоят на нечётных местах? а то что то не получается(((

Sliver
читай второй пост в этой теме, я написал уже

[IGR]

я так всегда делаю, преподы ламеры

... это проблема !! радоватся или расстраиватся ??
если они ламеры, то чего они могут научить ?? т.е. если хочеш знать, придется учится самому !! ну а зачем тогда идти учится в Универ, платить деньги за учебу ??
Но в то же время это наруки "студентам" которые хотят "отбыть номер" !!
тут непонятно: или преподавателя попросту "неколышит" что там студент здает или он действительно "ламер" !!
Я конешн тож не святоша, и часто здаю "тяп-ляп", но это только из-за нехватки времени...
упреподавателей нет стимула вникать в роботу студента, им важен отчет - ОЦЕНКА !! что бы потом отчитатся перед теми кто выше !!

незнаю как у Вас, но у нас образование катится в большую Ж* !!

у нас программирование не очень, а вот алгоритмы ведёт умный дядька который программировал еще в 80-х
некоторые кафедры кпи еще не катятся в полную ж

[ABTOMAT]

... это проблема !! радоватся или расстраиватся ??
если они ламеры, то чего они могут научить ?? т.е. если хочеш знать, придется учится самому !! ну а зачем тогда идти учится в Универ, платить деньги за учебу ??
Но в то же время это наруки "студентам" которые хотят "отбыть номер" !!
тут непонятно: или преподавателя попросту "неколышит" что там студент здает или он действительно "ламер" !!
Я конешн тож не святоша, и часто здаю "тяп-ляп", но это только из-за нехватки времени...
упреподавателей нет стимула вникать в роботу студента, им важен отчет - ОЦЕНКА !! что бы потом отчитатся перед теми кто выше !!

незнаю как у Вас, но у нас образование катится в большую Ж* !!

Угум-с, это труЪ проблема я уже давно потерял надежду на то, что где-то меня будут учить программированию или алгоритмике Хотя... в яслях/школе/ВУЗе обычно преподают совершенно не то, что нужно на практике, если бы ещё этим сильно е..ли мозги, то учиться самому чему-то реально полезному не оставалось бы совершенно времени

ну а зачем тогда идти учится в Универ, платить деньги за учебу ??

Конкретно по этому вопросу: мне лично от ВУЗа нужен диплом с печатью. И больше ничего. В нашей образовательной системе я давно разочаровался.

[Atomikc]

Да. Я незнаю чему они учат.... Несмотря на общюю грамотность студентов, преподы сами не могут дж сканер настроить.... а преподают информатику, программироввние итп.. Благо это тоолько в информационной отрасли, с оснавными предметами полутьше...
Ну и как сказал АВТОМАТ, мне нужен только диплом..

[newman]

ABTOMAT, аналогично. В школе информатику вообще не преподают. Сначало все забили на учителя, ну а потом учительна класс. При чём это не только в нашем классе. Сейчас хоть учитель по алгебре\геометрии пршёл новый, но старой закалки. Требует сильно, но зато хоть какой то результат. В уневер тоже пойду только ради диплома

[xsnakes]

Как на языке VBA добавить в ImageCombo цветовые константы с картинкой соответствующего цвета константе цвета. Ужас, сам непонял чё сказал
Короче хочется ImageCombo такойже как у VB в свойствах де BackColor например.
Помагите решить такую задачю!

[Данил]

Слушайте, так говорите, а если б лично человек не знал программирование, ну не занимался этим, а препод был типа АВТОМАТа, который учил, но компоссировал мозги - что бы было?)
те, кому надо - учатся, как им надо, читая при этом доп.литературу и проводя самообучение некоторое, а некоторые - тупо на отмазку сдают что могут и все.

посмотрим на школьную информатику - блин, обычная "девочка "приффет фсем в этом чате чмокипоки" - ей это программирование надо? врятли. А кому все-таки действителньо надо, т.е. в пример того же АВТОМАТа возьмем - научился сам. и знает теперь побольше всех остальных.

ведь человек идет по специальности программиста не на абум же, а зная, на что он идет, и уже в большинства случаях, уже многому самообучен. а те, кто не знают, и каким-то странным образом попали на эту специальность - вылетят через время, и пойдут вон в слесари.

[SBJoker]

Сообщение от Данил

а те, кто не знают, и каким-то странным образом попали на эту специальность - вылетят через время, и пойдут вон в слесари.

ну или в банкиры или в менеджеры.. или ещё куда где рабоать ненадо.

[impersonalis]

2Данил материться излишне.

по специальности программиста не на абум же, а зная, на что он идет, и уже в большинства случаях, уже многому самообучен.

логика есть и в обратном:
" я в программеры пойду - пусть меня научат".