Sub SortArrayDescending()
Dim Z(10) As Integer
Dim i As Integer
Z(0) = 23
Z(1) = 67
Z(2) = 12
Z(3) = 89
Z(4) = 45
Z(5) = 78
Z(6) = 34
Z(7) = 56
Z(8) = 90
Z(9) = 1
Call SortArray(Z, 10, True)
For i = 0 To 9
MsgBox (Z(i))
Next i
End Sub
Sub SortArray(arr As Variant, arrLen As Integer, Optional Descending As Boolean = False)
Dim i As Integer
Dim j As Integer
Dim temp As Variant
For i = 0 To arrLen - 1
For j = i + 1 To arrLen - 1
If (Descending And arr(j) > arr(i)) Or (Not Descending And arr(j) < arr(i)) Then
temp = arr(i)
arr(i) = arr(j)
arr(j) = temp
End If
Next j
Next i
End Sub
Другие языки программирования и технологии
Нарисуйте пожалуйста блок схему к коду, что бы были видны блоки, картинкой прикрепите или любой удобный формат.Подробно
Блок-схема дляэтой программы может выглядеть следующим образом:
На блок-схеме изображены следующие блоки:
Начало программы
Объявление массива Z и его инициализация
Вызов процедуры SortArray с параметрами Z, 10 и True
Процедура SortArray, включающая в себя следующие блоки:
Начало процедуры
Цикл для прохода по элементам массива
Вложенный цикл для сравнения текущего элемента с остальными элементами массива
Условие для проверки, нужно ли сортировать массив в порядке убывания или возрастания
Обмен значений элементов массива, если это необходимо
Конец вложенного цикла
Конец цикла для прохода по элементам массива
Конец продуры
Цикл для вывода отсортированного массива в окне сообщений
Конец программы
На блок-схеме изображены следующие блоки:
Начало программы
Объявление массива Z и его инициализация
Вызов процедуры SortArray с параметрами Z, 10 и True
Процедура SortArray, включающая в себя следующие блоки:
Начало процедуры
Цикл для прохода по элементам массива
Вложенный цикл для сравнения текущего элемента с остальными элементами массива
Условие для проверки, нужно ли сортировать массив в порядке убывания или возрастания
Обмен значений элементов массива, если это необходимо
Конец вложенного цикла
Конец цикла для прохода по элементам массива
Конец продуры
Цикл для вывода отсортированного массива в окне сообщений
Конец программы
К сожалению, я не могу непосредственно нарисовать блок-схему здесь, но я могу описать ее текстом.
Блок-схема для данного кода может быть следующей:
Начало программы -> Объявление переменной Z в виде массива -> Инициализация элементов массива Z -> Вызов подпрограммы SortArray с параметрами Z, 10, и True -> Подпрограмма SortArray -> Объявление переменных i, j и temp -> Цикл for для i от 0 до arrLen-1 -> Внутренний цикл for для j от i+1 до arrLen-1 -> Условное выражение, которое проверяет, нужно ли менять местами элементы массива arr -> Если условие выполняется, то меняем местами элементы с помощью временной переменной temp -> Конец цикла for для j -> Конец цикла for для i -> Конец подпрограммы SortArray -> Цикл for для i от 0 до 9, который выводит на экран элементы массива Z с помощью MsgBox -> Конец программы.
Таким образом, блок-схема включает в себя объявление переменных, инициализацию массива, вызов подпрограммы для сортировки элементов массива, а также цикл для вывода отсортированного массива на экран.
Блок-схема для данного кода может быть следующей:
Начало программы -> Объявление переменной Z в виде массива -> Инициализация элементов массива Z -> Вызов подпрограммы SortArray с параметрами Z, 10, и True -> Подпрограмма SortArray -> Объявление переменных i, j и temp -> Цикл for для i от 0 до arrLen-1 -> Внутренний цикл for для j от i+1 до arrLen-1 -> Условное выражение, которое проверяет, нужно ли менять местами элементы массива arr -> Если условие выполняется, то меняем местами элементы с помощью временной переменной temp -> Конец цикла for для j -> Конец цикла for для i -> Конец подпрограммы SortArray -> Цикл for для i от 0 до 9, который выводит на экран элементы массива Z с помощью MsgBox -> Конец программы.
Таким образом, блок-схема включает в себя объявление переменных, инициализацию массива, вызов подпрограммы для сортировки элементов массива, а также цикл для вывода отсортированного массива на экран.
Gray Izh
К сожалению текстом не особо понимаю, как это нарисовать, очень хотелось бы рисунок именно увидеть.
Похожие вопросы
- Проверьте пожалуйста блок-схему к задаче на Pascal
- Если не сложную картинку jpg сохранить в векторном формате, можно ли ее будет масштабировать без потери качества?
- Помогите, пожалуйста, исправить ошибку в коде С++!!
- пожалуйста.помогите расшифровать двоичный код
- Скажите, пожалуйста, как сделать в анимированном баннере, ссылки на, каждую из картинок? То есть в баннере несколько кар
- пожалуйста помогите как в фотошопе как сделать так чтобы на картинке с травой было написано как по настоящему на траве
- подскажите пожалуйста есть ли программы для вырезания звука из фильмов и его нарезки но так чтобы формат остался мр3.
- Пожалуйста, поясните ошибки в коде. Думал долго - так и не дошло)
- Помогите, пожалуйста, найти ошибки в коде. Нужно выбрать из массива минимальное значение и вывести индексы его позиции.
- Всем привет! Помогите, пожалуйста, создать блок - схему к следующему коду и заданию. Заранее большое спасибо!
Чтобы создать блок-схему в draw.io , вы можете перейти на сайт draw.io , выбрать "Flowchart" в качестве типа диаграммы и использовать различные элементы блок-схем, чтобы создать свой дизайн. Вы также можете использовать текстовые блоки и стрелки, чтобы объяснить, как программа работает.
Другой онлайн-сервис - это Lucidchart. Он также позволяет создавать блок-схемы, используя готовые элементы и инструменты редактирования. Вам необходимо выбрать "Flowchart" в качестве типа диаграммы и начать рисовать элементы блок-схемы.
Оба этих сервиса предоставляют возможность сохранять готовые диаграммы в различных форматах, включая PNG, JPG, PDF и другие.
От блока "Обмен значений элементов массива, если это необходимо" к блоку "Конец вложенного цикла"
От блока "Конец вложенного цикла" к блоку "Конец цикла для прохода по элементам массива"
От блока "Конец цикла для прохода по элементам массива" к блоку "Конец продуры"
От блока "Конец продуры" к блоку "Цикл для вывода отсортированного массива в окне сообщений"
От блока "Цикл для вывода отсортированного массива в окне сообщений" к блоку "Конец программы".