Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
14.01.2009, 19:19
|
|
Участник форума
Регистрация: 26.11.2005
Сообщений: 193
Провел на форуме:
1260231
Репутация:
40
|
|
Нужна такая прога:)
Срочно нужно создать програмку. Кто может, буду очень благодарен.
Задача следующая...
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) построенные в два столбца (как в нашем случае) и выводить результат по выше приведенному алгоритму...
Буду просто счастлив ...
Спасибо за внимание. |
|
|
14.01.2009, 20:20
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
Провел на форуме:
1085601
Репутация:
110
|
|
накалякал)
вроде то что надо
тыц
(с исходниками на дельфи)
запускаешь, вводишь n - общее количество чисел (в обоих столбцах)
при n=10, n=20 достаточно быстро
если 30, то ждать секунд 20, чем больше - тем дольше, в геометрической прогрессии
потом всё в файле out.txt |
|
|
|
15.01.2009, 01:04
|
|
Участник форума
Регистрация: 26.11.2005
Сообщений: 193
Провел на форуме:
1260231
Репутация:
40
|
|
Спасибо...
Не мог бы ты немножко усовершенствовать его?))
Тоже самое для 3 столбцов можно?)
|
|
|
|
15.01.2009, 15:04
|
|
Banned
Регистрация: 16.05.2008
Сообщений: 13
Провел на форуме:
55402
Репутация:
40
|
|
держи 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;
Но эт чисто символически или под Паскаль ..
|
|
|
|
15.01.2009, 18:20
|
|
Участник форума
Регистрация: 06.06.2008
Сообщений: 171
Провел на форуме:
1085601
Репутация:
110
|
|
клац
для произвольного количества столбцов, вдруг завтра уже для четырех понадобится))
вводим сначала общее количество элементов n, потом количество столбцов m
если n не делится на m, остаток отбросится
[от лишних модулей SysUtils и Classes избавился]
upd
точняк, исправил ссылку
Последний раз редактировалось crystalbit; 15.01.2009 в 19:28..
|
|
|
|
15.01.2009, 19:26
|
|
Участник форума
Регистрация: 26.11.2005
Сообщений: 193
Провел на форуме:
1260231
Репутация:
40
|
|
MongBat, спасибо... пригодилось.
Crystalbit, ты на слово ''клац'' не ту ссылку вставил |
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
