Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 12:03

Сортировка таблицы значений

Автор DZenav, 26 окт 2012, 15:41

0 Пользователей и 1 гость просматривают эту тему.

DZenav

Всем привет!
Есть готовая таблица. -> Процедура Заполнение(Кнопка)
   
   ТаблицаЗначений = Новый ТаблицаЗначений;
ТаблицаЗначений.Колонки.Добавить("Номер",Новый ОписаниеТипов("Число"));
ГСЧ = Новый ГенераторСлучайныхЧисел();
Для Сч=1 По 49 Цикл
Строки=ТаблицаЗначений.Добавить();
Строки.Номер = ГСЧ.СлучайноеЧисло(1,99);
КонецЦикла;

ЭлементыФормы.ТаблПоле.Значение=ТаблицаЗначений;
ЭлементыФормы.ТаблПоле.СоздатьКолонки();
КонецПроцедуры


Хочу чтоб с другой кнопки можно было отсортировать таблицу пузырьком. Вот код ->

Функция СортировкаПузырьком(Элемент) Экспорт
   
    Для Просм = 0 По Элемент.Количество()-1 Цикл
               Для Значение = 0 По Элемент.Количество()-1 Цикл
               Если Значение = Элемент.Количество()-1 Тогда
               Прервать;
               КонецЕсли;
               Если Элемент[Значение] > Элемент[Значение+1] Тогда
               СтаршийЭлемент = Элемент[Значение];
               МладшийЭлемент = Элемент[Значение+1];
               Элемент[Значение] = МладшийЭлемент;
               Элемент[Значение+1] = СтаршийЭлемент;
            КонецЕсли;
        КонецЦикла;
    КонецЦикла;
    Возврат Элемент;
КонецФункции


Процедура СортировкаПерестановкой(Кнопка)
   
    Элемент = Новый ТаблицаЗначений;
    Элемент.Колонки.Добавить("Номер",Новый ОписаниеТипов("Число"));
    ГСЧ = Новый ГенераторСлучайныхЧисел();
    Для Сч=1 По 49 Цикл
        Строки=Элемент.Добавить();
        Строки.Номер = ГСЧ.СлучайноеЧисло(1,99);
    КонецЦикла;
   
    СортировкаПузырьком(Элемент);
    ЭлементыФормы.ТаблПоле.Значение = Элемент;   
    ЭлементыФормы.ТаблПоле.СоздатьКолонки();
   
КонецПроцедуры


Помогите исправить  Процедура СортировкаПерестановкой(Кнопка) и Функция СортировкаПузырьком(Элемент)

mixqn

Можно поинтересоваться: вы с какой целью свой алгоритм сортировки пишите? С целью повышения образованности (с) - научиться реализовывать алгоритм сортировки пузырьком? Стандартный метод Сортировать() чем не годится?

DZenav

Хочу научиться именно пузырьком. сама функция простая, но не получаеться все расставить на свои места.

Похожие темы (5)

Рейтинг@Mail.ru

Поиск