Нужна такая прога:)

[Bayazid]

Срочно нужно создать програмку. Кто может, буду очень благодарен.

Задача следующая...


1 7
2 8
3 9
4 10
5 11
6 12

Из каждого ряда можно взять одну цифру и составить всевозможные варианты... Например, 1.2.3.4.5.6 - это один вариант, 1.2.3.4.5.12 - это другой вариант , 1.2.3.4.11.6 ну и т.д. грамотность написания программы не нужна, главное написать всевозможные варианты, т.е. результат... Очень надо... Отблагодарю огромным количеством репутаций.

И еще:) Было бы отлично, если можно будет в программу ввести количество чисел (в нашем случае их 12) построенные в два столбца (как в нашем случае) и выводить результат по выше приведенному алгоритму...
Буду просто счастлив ...

Спасибо за внимание.

[crystalbit]

накалякал)
вроде то что надо
тыц (http://parsers.info/pub/numbers.rar)
(с исходниками на дельфи)

запускаешь, вводишь n - общее количество чисел (в обоих столбцах)
при n=10, n=20 достаточно быстро
если 30, то ждать секунд 20, чем больше - тем дольше, в геометрической прогрессии

потом всё в файле out.txt

[Bayazid]

Спасибо...
Не мог бы ты немножко усовершенствовать его?))

Тоже самое для 3 столбцов можно?)

[MongBa†]

держи (http://webfile.ru/2556258) 3 столбца..
Кстати, хорошая реализация, все четко, ничего лишнего..
Можно было бы без использования компонента

with TStringList.Create do begin
Text:=s;
SaveToFile('out.txt');
Free;
end;

на

assignfile(fil,'out.txt');
rewrite(fil);
write(fil,s);
closefile(fil);
// добавить в var - fil:text;

Но эт чисто символически или под Паскаль ..

[crystalbit]

клац (http://parsers.info/pub/numbers2.rar)
для произвольного количества столбцов, вдруг завтра уже для четырех понадобится))
вводим сначала общее количество элементов n, потом количество столбцов m
если n не делится на m, остаток отбросится
[от лишних модулей SysUtils и Classes избавился]

upd
точняк, исправил ссылку

[Bayazid]

MongBat, спасибо... пригодилось.

Crystalbit, ты на слово ''клац'' не ту ссылку вставил :)