Сортировка массива методом Хоара

@3DNow · Регистрация: 08.06.2012

Студворк — интернет-сервис помощи студентам

Не работает сортировка массива методом Хоара. Выводится исходный массив (проверял на пустой форме)
вот сама процедура

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub sort_h(ByVal i_n As Integer, ByVal i_k As Integer)
Dim i As Long, j As Long
i = i_n: j = i_k: k = ((i + j) \ 2): f = w(k)
Do
  While w(i) < f: i = i + 1: Wend: While f < w(j): j = j - 1: Wend
  If i <= j Then
    p = w(i): w(i) = w(j): w(j) = p:
    i = i + 1: j = j - 1
  End If
Loop Until i > j
If i_n < j Then sort_h i_n, j
If i < i_k Then sort_h i, i_k
End Sub

и ее вызов (после Option2.value)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub Command3_Click()
If X(1) <> "" Then
    Picture1.Cls
    Picture3.Cls
       If Option1.Value Then
        For i = 1 To 10
            For j = 10 To i + 1 Step -1
                If w(i) < w(j) Then
                    k = w(i)
                    w(i) = w(j)
                    w(j) = k
                End If
            Next j
        Next i
End If
If Option2.Value Then
sort_h i_n, i_k
End If
For i = 1 To 10
        Picture1.Print w(i)
    Next i
      For o = 1 To 10
        Picture3.Line (0, 0 + 15 * o)-(w(o), 10 + 15 * o), RGB(w(o) + 255, w(o), w(o)), B
    Next
    For i = 1 To 10
        ren = ren + CStr(w(i)) + " "
    Next i
Else
    pushbutton = MsgBox("Âûáåðèòå ìàññèâ!", 16, "Îøèáêà!!!...")
End If
End Sub

В чем может быть дело, ошибок компиляции нет.

@skol13 · 09.06.2012, 23:11

сам алгоритм сортировки вроде верный
содержит ли w массив?
Если не сложно - программу в студию прикрепите - можно будет посмотреть

@3DNow · 09.06.2012, 23:27 **[ТС]**

Код брал отсюда Посчитать, сколько раз в строке встречается каждая цифра

@skol13 · 10.06.2012, 00:50

Если вы учитесь на гуманитария и бейсик вам после зачета нахрен не нужен будет то замените вызов процедуры сортировки:

Visual Basic
1
sort_h i_n, i_k

на такой

Visual Basic
1
sort_h w, 1, 10

Кстати в прикрепленной программе вы массив передаете в функцию а в примере кода приведенном здесь - нет
Но это не важно - важно другое - вы не передает границы массива, значения i_n и i_k у вас пустые
но если вы учитесь на программиста - то руки бы вам оторвать за такой кодинг, вне зависимотси от того сколько вы уже проучились.
Прежде всего зачем вы инициализируете массив с заведомо заданным кол-вом элементов?
А если в файле их будет больше вы потеряете часть инфы, а если меньше - как сейчас - то у вас появляется куча пустых элементов массива.
во-вторых - нахрена вы городите непонятно какой шифрации кусок кода для заполнения массива из файла когда можно обойтись простой командой Split?
в третьих - индексация массива во всех языках программирования как и любая индексация (циклы while, for) (кроме строк - в строках первая буква идет под индексом 1 вторая - 2 и т.д. в функциях работы со строками) начинается с нуля! Возьмите это за правило - это будет хорошим стилем программирования
первым делом что я бы сделал в вашей программе:
описание переменной w заменил на:

Visual Basic
1
Dim w as variant

или просто

Visual Basic
1
Dim w

Формирование массива из файла заменил бы на

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
        Do While Not (EOF(1))
            Input #1, m
'            For i = 1 To Len(m)
'                z = Mid(m, i, 1)
'                If z = " " Then
'                    j = j + 1
'                    X(j) = Mid(m, p, i - p)
'                    p = i + 1
'                End If
'            Next i
'            j = j + 1
'            X(j) = Mid(m, p, Len(m))
'            For i = 1 To j
'                Picture6.Print X(i)
'            Next i
        Loop
    Close #1
    
'    For i = 1 To j
'        w(i) = CInt(X(i))
'    Next i
    
    w = Split(m)

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

Visual Basic
1
for i = 0 to Ubound(w)

тогда вы сможете работать с массивом любых размеров
кстати функция Split создает массив как раз начинающийся с 0-го индекса
тогда вызов процедуры сортировки будет выглядеть вот так:

Visual Basic
1
sort_h w, 0, Ubound(w)

вот как то так, аж писать устал

Да кстати! Почему то он сортирует у вас пузырьком и хоаром в разные стороны - один по убыванию второй по возрастанию - но видимо так надо.
И ошибку орфографическую на форме about исправьте

SoftIce · 10.06.2012, 09:33

Сообщение от skol13

индексация массива во всех языках программирования как и любая индексация (циклы while, for) (кроме строк - в строках первая буква идет под индексом 1 вторая - 2 и т.д. в функциях работы со строками) начинается с нуля! Возьмите это за правило - это будет хорошим стилем программирования

Не по теме:

А вот с этим можно поспорить. Если в С++ все массивы 0 - базируемые, то это его проблемы:D
А если в Бейсике можно сделать так, чтобы индексы начинались с единицы, значит нужно это использовать, тем более это во многих случаях очень удобно. Это скорее небольшой плюс Бейсика:)

@skol13 · 10.06.2012, 13:57

Не по теме:

Ну конечно же можно поспорить!
Будет желание - тему создавайте :)
Но я за все же за то, как говорится в анекдоте - как отличить программиста от юзера?
Программист считать с 0 начинает :)

Кстати не зря же функция Split делит строку и создает массив индексируемый с 0 :)

@3DNow · 10.06.2012, 14:03 **[ТС]**

skol13
Спасибо большое,исправил, теперь работает. Можете помочь с выводом времени сортировки?
И еще при сворачивании программы исчезает график и результаты сортировки из picture... и т. д.
-Последнее сообщение здесь https://www.cyberforum.ru/orde... 00819.html

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@skol13 369 / 78 / 6 Регистрация: 23.05.2012 Сообщений: 232
	09.06.2012, 23:11
	сам алгоритм сортировки вроде верный содержит ли w массив? Если не сложно - программу в студию прикрепите - можно будет посмотреть 0

@skol13
	10.06.2012, 13:57
	Не по теме: Ну конечно же можно поспорить! Будет желание - тему создавайте :) Но я за все же за то, как говорится в анекдоте - как отличить программиста от юзера? Программист считать с 0 начинает :) Кстати не зря же функция Split делит строку и создает массив индексируемый с 0 :) 0

@3DNow 4 / 1 / 0 Регистрация: 08.06.2012 Сообщений: 11
	10.06.2012, 14:03 [ТС]
	skol13 Спасибо большое,исправил, теперь работает. Можете помочь с выводом времени сортировки? И еще при сворачивании программы исчезает график и результаты сортировки из picture... и т. д. -Последнее сообщение здесь https://www.cyberforum.ru/orde... 00819.html 0