Ответы на вопрос:
private sub form1_load(sender as object, e as eventargs) handles mybase.load dim array() as byte = {102, 103, 105, 105, 104, 108, 101, 109, 111, 113} gnomesort(array, true) end sub ' // алгоритм гномьей сортировки sub gnomesort(byref array() as byte, byval toupper as boolean) dim tui as integer, index as integer, last as integer if (toupper = true) then tui = 1 else tui = -1 index = 1 last = 2 do if ((array(index) * tui) < (array(index - 1) * tui)) then swap(array(index), array(index - 1)) index -= 1 if (index = 0) then index = last last += 1 end if else index = last last += 1 end if loop while (index < (ubound(array) + 1)) ' // c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 end sub ' // функция обмена двух переменных private function swap(byref ic_a as integer, byref ic_b as integer) as boolean dim dump as integer = ic_a ic_a = ic_b ic_b = dump return true end function
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
AlexIQ16121.01.2023 12:21
-
КлубникО05.01.2021 02:35
-
kivialisalittlee13.03.2020 19:55
-
SYSTEMCORE05.11.2020 16:28
-
2112x2n3t15.07.2021 21:10
-
snezhana070928.02.2023 01:29
-
дывавып03.04.2021 02:40
-
zlatoslava2p08lf023.03.2023 08:50
-
кристина4тина20.02.2021 01:56
-
franciskthedirty15.06.2022 06:10
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.