Срочно нужно создать програмку. Кто может, буду очень благодарен. Задача следующая... 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) построенные в два столбца (как в нашем случае) и выводить результат по выше приведенному алгоритму... Буду просто счастлив ... Спасибо за внимание.
накалякал) вроде то что надо тыц (с исходниками на дельфи) запускаешь, вводишь n - общее количество чисел (в обоих столбцах) при n=10, n=20 достаточно быстро если 30, то ждать секунд 20, чем больше - тем дольше, в геометрической прогрессии потом всё в файле out.txt
держи 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; Но эт чисто символически или под Паскаль ..
клац для произвольного количества столбцов, вдруг завтра уже для четырех понадобится)) вводим сначала общее количество элементов n, потом количество столбцов m если n не делится на m, остаток отбросится [от лишних модулей SysUtils и Classes избавился] upd точняк, исправил ссылку