генератор чисел

[-=zAA=-]

Ребят помогите с составлением алгоритма, в общем есть массив чисел от 1 до 36 из этих чисел нужно составить всевозможные комбинации по 5 чисел, при условии что числа не повторяются, т.е. 5, 6, 7, 9, 1 -можно , а 5, 6, 5, 1, 3 - нельзя, ну и вывести все комбинации в файл.

[Artem_Kokos]

Как-то не совсем понятно. То есть нужно, чтобы в самом числе цифры не повторялись? И еще, если так, то почему нужно чтобы было по пять цифр, а в массиве числа от 1 до 36?! Или я чего-то не понял...

[-=zAA=-]

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

[Artem_Kokos]

Аа, как же я сразу не понял, да и тупанул че-то =) Можно сначала составить вообще все возможные комбинации, то есть берем сначала например 1, 1, 1, 1, 1 и к последней прибавляем +1 до 36, записывая результат. затем добавляем 1 к предпоследнему т.с. "разряду" и то же самое: 1, 1, 1, 2, 1 и т.д. А потом выбрать из этого списка те, в которых нет повторяющихся чисел. Это видимо чисто сугубо ламерский способ, зато без использования мозга ))

[Artem_Kokos]

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

[-=zAA=-]

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

[waleri]

Комбинаций будет всего ничего - с повторами всего 36 ^ 5 == 60 миллионов с копейками. Мне интересно другое - важна ли очередность чисел или 5 и 1 это тоже что и 1 и 5 ибо тогда встанет и условие, что цифры должны быть в восходящем порядке а это сильно уменьшит количество комбинаций.

[Artem_Kokos]

Сообщение от waleri

Комбинаций будет всего ничего - с повторами всего 36 ^ 5 == 60 миллионов с копейками. Мне интересно другое - важна ли очередность чисел или 5 и 1 это тоже что и 1 и 5 ибо тогда встанет и условие, что цифры должны быть в восходящем порядке а это сильно уменьшит количество комбинаций.

А ведь верно

[BDA]

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  min = 1; {min>=0}
  max = 36; {max<=255}
  count = 5;

type
  set1 = set of min..max;

var
  num: set1;
  k: byte;

procedure createstring(var num: set1; s: string);
var
  i: byte;
begin
  if k = 0 then writeln(s)
  else
    for i := min to max do
      if not (i in num) then
      begin
        dec(k);
        num := num + [i];
        if k = count - 1 then
          createstring(num, inttostr(i))
        else
          createstring(num, s + ' ' + inttostr(i));
        num := num - [i];
        inc(k);
      end;
end;

begin
  num := [];
  k := count;
  assign(output, '1.txt');
  createstring(num, '');
end.

Вот такая вот программка, написанная на коленке.
Проверить выданный файл не могу
636 мб текста.
Повторов быть не должно.

ПС
waleri, проверить не могу, т.к. ничем не открывается такой огромный файл
(чисто математически, он занимает как раз правильно, т.к. если бы были повторы, тогда бы ~850 мб занимал)

[waleri]

Ну так подсчитайте сколько должно быть вариантов без повторов и потом проверьте количество строк в файле - должно быть тем же самым

Ну а если в вашей операционке есть sort и uniq можно проверить будут ли равное количество строк в изходном и полученом файлах