Студопедия

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника



Обменная сортировка




Читайте также:
  1. Глава сортировка карты.
  2. Мед сортировка – это распределение раненых и пораженных на группы по нуждаемости в однородных ЛЭМ и профилактики
  3. Медицинская сортировка
  4. Медицинская сортировка. Виды ее, задачи и значение в организации хирургической помощи на этапах эвакуации.
  5. Местная и общеобменная система вентиляции
  6. Методика «Свободная сортировка объектов» Psylab.info
  7. Ответ: общеобменная приточно-вытяжная
  8. Сортировка
  9. Сортировка данных.

Простая обменная сортировка (в просторечии называемая "методом пузырька") для массива a[1], a[2], ..., a[n] работает следующим образом. Начиная с конца массива, сравниваются два соседних элемента (a[n] и a[n-1]). Если выполняется условие a[n-1] > a[n], то значения элементов меняются местами. Процесс продолжается для a[n-1] и a[n-2] и т.д., пока не будет произведено сравнение a[2] и a[1]. Понятно, что после этого на месте a[1] окажется элемент массива с наименьшим значением. На втором шаге процесс повторяется, но последними сравниваются a[3] и a[2]. И так далее. На последнем шаге будут сравниваться только текущие значения a[n] и a[n-1]. Понятна аналогия с пузырьком, поскольку наименьшие элементы (самые "легкие") постепенно "всплывают" к верхней границе массива.

 

è Блок-схема

 

 

Составим блок-схему процедуры сортировки списка группы

 

 

è Примерный интерфейс программы может выглядеть так:

 

è Код программы:

Dim Spisok() As String

Dim Kolichestvo As Integer

Private Sub cmdStart_Click()

Dim i As Integer

Call VvodSpiskaGruppy

Call SortirovkaSpiskaGruppy

For i = 1 To Kolichestvo

lstSortSpisok.AddItem Spisok(i)

Next

End Sub

 

Sub VvodSpiskaGruppy()

Dim i As Integer

Kolichestvo = InputBox("Введите количество студентов в Äгруппе",”Ввод числа”)

lblKolichestvo.Caption = Str(Kolichestvo)+” человек(а)”

ReDim Spisok(Kolichestvo)

For i = 1 To Kolichestvo

Spisok(i)=InputBox("Введите фамилию и инициалы Ä"+Str(i)+" студента группы","Ввод ФИО")

lstNeSortSpisok.AddItem Spisok(i)

Next

End Sub

 

Sub SortirovkaSpiskaGruppy()

Dim i As Integer

Dim j As Integer

Dim Temp As String

For i = 1 To Kolichestvo–1

For j = i+1 To Kolichestvo

If Spisok(i) > Spisok(j) Then

Temp = Spisok(i) : Spisok(i) = Spisok(j) : ÄSpisok(j) = Temp

End If

Next

Next

End Sub

 

è Введите 10 фамилий студентов вашей группы и посмотрите как работает программа.

è Сохраните файл под именем «Сортировка списка методом «пузырька»»


Дата добавления: 2014-11-13; просмотров: 13; Нарушение авторских прав







lektsii.com - Лекции.Ком - 2014-2021 год. (0.012 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав
Главная страница Случайная страница Контакты