как генерировать все варианты комбинаций в которой числа не повторяются но положение чисел в комбинации имеет значение

[an-ton-cko]

здравствуйте помогите кто сможет.
в лотерее 6 из 45 всего возможных комбинаций = 8145060.без учёта положения числа в комбинации, а если учитывать положение чисел в комбинации комбинаций становиться на много больше =5 864 443 200
все найденные мной генераторы комбинаций не учитывают положение числа в комбинации.
например:
1 2 3 4 5 44
1 2 3 4 5 45
1 2 3 4 6 7
1 2 3 4 6 8
1 2 3 4 5 9
а такие числа как
1 2 3 4 6 5
1 2 3 4 7 5 они не считают

[evg_m]

for i1:=1 to 45 do begin
  for i2:=1 to 45 do begin
    if i1=i2 then continue; //исключим повтор
    for i3:=1 to 45 do begin
       if (i3=i1) or (i3=i2) then continue;
       for i4:=1 to 45 do begin
          if (i4=i1) or (i4=i2) or (i4=i3) then continue;
          for i5:=1 to 45 do begin
             if (i5=i1) or (i5=i2) or (i5=i3) or (i5=i4) then continue;
             for i6:=1 to 45 do begin
                if (i6=i1) or (i6=i2) or (i6=i3) or (i6=i4) or (i6=i5)  then continue;
                printf(i1,i2,i3,i4,i5,i6);
             end;
          end;
       end;
    end;
  end;
end;

[an-ton-cko]

это в какой программе

[Serge_Bliznykov]

Сообщение от an-ton-cko

это в какой программе

это в Паскаль/Delphi.

только printf() не из этой оперы, замените его на WriteLn()

[an-ton-cko]

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

[Аватар]

Порядка 100 гигабайт скинуть? Приехало спортлото, обуют как пить дать ))

[an-ton-cko]

да мне сам файл с кодом

[Вадим Мошев]

Так вам же его написали. Скопируйте отсюда: http://www.programmersforum.ru/showp...45&postcount=2

[an-ton-cko]

в Delphi 7 у меня что то не выходит.
Может я что то не то делаю, но мне все какие то ошибки выдает или какие то таблицы с непонятными буквами и цифрами.
мне бы весь код с определением переменных и выводом данных хоть в таблицу, хоть в список все равно

[an-ton-cko]

ура . в Paint abc он хоть комбинации стал перебирать вот только по завершению закрывает программу , перебирать начинает не с начала и пишет слитно , а как это исправит???????