Есть цифры, например 1,2,3,4

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

Примерно так:
1    2    3    4
1    2    4    3
1    3    2    4
1    3    4    2
2    1    3    4
2    3    1    4
2    4    1    3

Что-то не могу заполнить все варианты, может кто с таким сталкивался

Спасибо

Пол дня думаю и рыскаю по интернету и не могу найти

Преобразуй в двоичную систему

4 вложенных цикла

Не, циклами нельзя...
Цифер бедет не 4..Это как пример

Ну тогда вступает страшная рекурсия

http://yandex.ru/yandsearch?text=алгоритм+перебора+перестановок&lr=213

(5) Спасибо
Попробую реализовать

(2) Лобовое решение - не самый хороший вариант при больших объемах данных.

Комбинаторика, не ?

Рекурсивно:
Перем Н, Исх;

Процедура Перебор(Тек)
    Если СтрДлина(Тек) = Н Тогда
        Сообщить(Тек);
        возврат;
    КонецЕсли;
    Для инд = 1 По Н Цикл
        Симв = Сред(Исх, инд, 1);
        Если Найти(Тек, Симв) = 0 Тогда
            Перебор(Тек+Симв)
        КонецЕсли;
    КонецЦикла;

КонецПроцедуры

Процедура КнопкаВыполнитьНажатие(Кнопка)
    Н = 7;
    Исх = "0123456789";
    Перебор("");
КонецПроцедуры


без рекурсии не осилил

(9) > Найти(Тек, Симв)

Не самый лучший вариант, лучше массив использовать.

Загоняем в таблицу НашаТаб эти 4 цифры и потом просто:

выбрать а1.цифра, а2.цифра, а3.цифра, а4.цифра
из
НашаТаб как а1, НашаТаб как а2, НашаТаб как а3, НашаТаб как а4

(11) мда...

а то, что значения будут повторяться, что нарушает условие задачи, ну это ничего...

Процедура КнопкаВыполнитьНажатие(Кнопка)
    // Вставить содержимое обработчика.
    КолЦифр=4;
    
    Комбинация=новый Массив(КолЦифр+1);
    ИспользованыЦифры=новый Массив(КолЦифр+1);
    
    Для ном=0 по КолЦифр Цикл
        Комбинация[ном]=0;
        ИспользованыЦифры[ном]=ложь;
    КонецЦикла;
    
    ПодобраноЦифр=1;
    
    Выполнять=Истина;
    Пока Выполнять Цикл
        НайденнаяЦифра=0;
        Счетчик=Комбинация[ПодобраноЦифр]+1;
        Пока Счетчик<=КолЦифр Цикл
            Если  ИспользованыЦифры[Счетчик]= ложь ТОгда
                НайденнаяЦифра=Счетчик;
                ИспользованыЦифры[Счетчик]= Истина;
                Прервать;
            КонецЕсли;    
            Счетчик=Счетчик+1;
        КонецЦикла;
        ИспользованыЦифры[Комбинация[ПодобраноЦифр]]= Ложь;
        
        Если НайденнаяЦифра<>0 ТОгда
            Комбинация[ПодобраноЦифр]=НайденнаяЦифра;
            Если ПодобраноЦифр=КолЦифр Тогда
                стрКомбинация="";
                
                Для ном=1 по КолЦифр Цикл
                    стрКомбинация=стрКомбинация+Строка(Комбинация[ном]);
                КонецЦикла;
                Сообщить(стрКомбинация);
                
                
                ИспользованыЦифры[Комбинация[ПодобраноЦифр]]= Ложь;
                
                Комбинация[ПодобраноЦифр]=0;
                ПодобраноЦифр=ПодобраноЦифр-1;
            Иначе
                ПодобраноЦифр=ПодобраноЦифр+1;
            КонецЕсли;
        Иначе
            Комбинация[ПодобраноЦифр]=0;
            ПодобраноЦифр=ПодобраноЦифр-1;
        КонецЕсли;
        
        Если  ПодобраноЦифр=0 Тогда
            Прервать;
        КонецЕсли;
    КонецЦикла
КонецПроцедуры

(0) 4! простейшая из функций Эйлера-Римана

немного упростил

Процедура КнопкаВыполнитьНажатие(Кнопка)
    КолЦифр=4;
    
    Комбинация=новый Массив(КолЦифр+1);
    ИспользованыЦифры=новый Массив(КолЦифр+1);
    
    Для ном=0 по КолЦифр Цикл
        Комбинация[ном]=0;
        ИспользованыЦифры[ном]=ложь;
    КонецЦикла;
    
    ПодобраноЦифр=1;
    
    Пока Истина Цикл
        ИспользованыЦифры[Комбинация[ПодобраноЦифр]]= Ложь;
        Счетчик=Комбинация[ПодобраноЦифр]+1;
        Пока Счетчик<=КолЦифр Цикл
            Если  ИспользованыЦифры[Счетчик]= ложь ТОгда
                Комбинация[ПодобраноЦифр]=Счетчик;
                ИспользованыЦифры[Счетчик]= Истина;
                
                Если ПодобраноЦифр=КолЦифр Тогда
                    стрКомбинация="";
                    Для ном=1 по КолЦифр Цикл
                        стрКомбинация=стрКомбинация+Строка(Комбинация[ном]);
                    КонецЦикла;
                    Сообщить(стрКомбинация);
                    
                    ИспользованыЦифры[Комбинация[ПодобраноЦифр]]= Ложь;
                    Комбинация[ПодобраноЦифр]=0;
                    ПодобраноЦифр=ПодобраноЦифр-1;
                Иначе
                    ПодобраноЦифр=ПодобраноЦифр+1;
                КонецЕсли;
                
                Прервать;
            КонецЕсли;    
            Счетчик=Счетчик+1;
        КонецЦикла;
        
        Если Счетчик>КолЦифр Тогда
            Комбинация[ПодобраноЦифр]=0;
            ПодобраноЦифр=ПодобраноЦифр-1;
        КонецЕсли;
        
        Если  ПодобраноЦифр=0 Тогда
            Прервать;
        КонецЕсли;
    КонецЦикла
КонецПроцедуры

Все бы хорошо, но при количестве цифр больше 10, алгоритм начинает работать больше часа(

(0) Поищи алгоритм генерации перестановок.

procedure Swap(a,b)
    Перем c;
    c=a;
    a=b;
    b=c;
Конецпроцедуры


procedure Generate(k)
    var i,j;
    if k=N then
        Врем = "";
        for i=1 to N do
            Врем = Врем + X[i];
        КонецЦикла;
        //Сообщить(Врем);
    else
        for j=k+1 to N do
            Swap(X[k+1],X[j]);
            Generate(k+1);
            Swap(X[k+1],X[j])
        КонецЦикла;
    КонецЕслИ;
КонецПроцедуры


Процедура КоманднаяПанель4Тест2Основний(Кнопка)
    N = 10;
    Сообщить(ТекущаяДАта());
    X = Новый Массив(N+1);
    for i=1 to N do X[i]=i;
    КонецЦикла;
    Generate(0);
    Сообщить(ТекущаяДАта());
    Сообщить("Ок");
КонецПроцедуры


Вот и алгоритм

Но есть новое НО
Большущее

Данный фрагмент на Паскале выполняется 2 секунды для 10 цифр, в 1с он выполняется уже 10 минут(

Что делать не знаю(

(19) > Данный фрагмент на Паскале выполняется 2 секунды для 10 цифр, в 1с он выполняется уже 10 минут(

96% времени используется для операции "Сообщить".

(19)..Я убрал сообщить..
Как раз сам сравнивал

(0) Сколько будет цифр?
Один цикл в системе счисления с базой в количество цифр.