Помогите понять смысл задания

[Maslov]

Mikle1990 в сообщении #293838 писал(а):

У меня так не выходит.

Ваша правда
В цикле поправил, а в первом операторе -- нет.
Естественно, должно быть так:

        Tmp = mis(n-1)
        For j = n-1 To 1 Step -1
            If Tmp < mis(j - 1) Then
                mis(j) = mis(j - 1)
                mis(j - 1) = Tmp
            Else
                Exit For
            End If
        Next

[Mikle1990]

Спасибо

Кто-нибудь может мне подогнать ссылку, как выглядит блок схема с условным оператором и "Exit For"?)

Просто я блок схему сделал, а как бы и не получается линиями сделать так, чтоб видно было, что "Exit For".

Или надо просто написать(при невыполнении условия)в прямоугольнике "Exit For", а всё остальное оставить...?

[Maslov]

Я думаю, лучше вообще цикл Do While использовать:

Tmp = mis(n-1)
j = n-1
Do While (j >= 1) And (mis(j-1) > Tmp)
    mis(j) = mis(j-1)
    mis(j-1) = Tmp
    j = j - 1
Loop

Тогда и с блок-схемой никаких проблем не будет

[Mikle1990]

не работает когда первый элемент массива больше последнего)
"Индекс находился вне границ массива."

Щас буду пытаться исправлять)

[Maslov]

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

-- Вт мар 02, 2010 16:49:45 --

Mikle1990 в сообщении #293914 писал(а):

не работает когда первый элемент массива больше последнего)
"Индекс находился вне границ массива."

А, ну да, это же VB: он всегда вторую часть And'а вычисляет, даже если первое условие не выполняется.

Из-за этого в VB.NET специальные операторы добавлены: AndAlso и OrElse.

[Mikle1990]

Всё, разобрался. Спасибо!