Вторник, 17.09.2019, 19:15
Главная | Регистрация | Вход Приветствую Вас Гость | RSS


Меню сайта


Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Тестування онлайн
тестування онлайн 


Социальные закладк

Приложениеsort_perectanov.rar

vibop.rar

Занятие 35. Сортировка линейных массивов.

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

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

 

Задание 1   Сортировка массива. Метод - перестановка.

Рассмотрим один из методов сортировки одномерного массива - метод перестановки.

Интерфейс проекта

 

 

PS!!!  Int(x)  - наибольшее целое число, не превышающее х  (int(1.5  ⇒ 1;   -1.5⇒ - 2 )).

 

Задание 2. Метод сортировки одномерного массива - метод выбора.

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

Блок - схема проекта

Интерфейс проекта

Программный код проекта.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a(6) As Integer
        Dim i, j, min, nmin, k As Integer
        a(1) = 23 : a(2) = 15 : a(3) = 7 : a(4) = 2 : a(5) = 6 : a(6) = 4                'формирование массива
       

For i = 1 To 6
            ListBox1.Items.Add(a(i))               ' вывод массива в текстовое поле

Next

        For i = 1 To 5

            min = a(i) : nmin = i
           
For j = i + 1 To 6
                If a(j) < min Then min = a(j) : nmin = j                         'поиск минимального среди еще неупорядоченной части массива
            Next j
            a(nmin) = a(i) : a(i) = min      ' и его значение обменивается со значением элемента, первого среди еще неупорядоченной части массива.

            For k = 1 To 6       ' отображение процесса перестановки элементов массива при сортировке Выбор.
                ListBox2.Items.Add(a(k))
            Next k
            ListBox2.Items.Add("")


        Next i


        ListBox1.Items.Add("")
        ListBox1.Items.Add("")
        
    End Sub

Форма входа
Поиск
Календарь
«  Сентябрь 2019  »
ПнВтСрЧтПтСбВс
      1
2345678
9101112131415
16171819202122
23242526272829
30
Архив записей
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

  • Рейтинг@Mail.ru
    Copyright MyCorp © 2019
    Конструктор сайтов - uCoz