[XmX]

Доброго времени суток!
Кто подскажет как реализовать на Delphi 6.0 (другого компилятора нет)

следующее:
Перебор всех комбинаций лото 6 из 90,
и запись в файл (.txt или какой лучше).

[lmikle]

Маньяк

Полный перебор:

Код:

var
 i1, i2, i3, i4, i5, i6 : integer;
 s : string;
 SL : TStringList;
begin
 SL := TStringList.Create;
 for i1 := 1 To 90 do
   for i2 := 1 To 90 do
    for i3 := 1 To 90 do
     for i4 := 1 To 90 do
      for i5 := 1 To 90 do
       for i6 := 1 To 90 do
         begin
           SL.Add(Format('%d, %d, %d, %d, %d, %d',[i1,i2,i3,i4,i5,i6]));
         end;
 SL.SaveToFile('filename.txt');
 SL.Free;
end;

Если надо исключить повторяющиеся цифры в одной итерации, то расставляешь условия перед добавлением в список.

[XmX]

Спасибо lmikle.
А как расставить условия перед добавлением в список?

[san-46]

А сколько будут выполняться 540 млрд. итераций в вышеприведенном коде? А сможет ли менеджер памяти вместить эти 540 млрд строк (которые в SL надо запихнуть)?
Печальный бред, однако.