|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
09.04.2012, 22:24 | #11 |
Пользователь
Регистрация: 05.04.2012
Сообщений: 23
|
А проще никак нельзя??? Слишком все запутано.
|
09.04.2012, 22:44 | #12 |
Пользователь
Регистрация: 05.04.2012
Сообщений: 23
|
А можно как-нибудь попроще, а то все так запутано!
|
10.04.2012, 04:25 | #13 |
Форумчанин
Регистрация: 05.09.2011
Сообщений: 869
|
Согласен, запутано..
Думаю, можно проще. Держи. Извиняюсь перед вышевыступавшими - не стал влезать в их код, накарябал свой.. Вроде пашет. Особенно не проверял, погоняй.. Код:
Успехов тебе, Леночка236 ))
Предпочитаю на "ты".
|
10.04.2012, 07:50 | #14 | |
Форумчанин
Регистрация: 29.05.2011
Сообщений: 449
|
Цитата:
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype |
|
10.04.2012, 08:53 | #15 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
TinMan, извините меня за прямоту, но это же ГЕНИАЛЬНО!
Это просто взрыв мозга. я три дня мучался, пытался что-то такое придумать (чувствовал, что должно быть решение без накопления всех результатов и проверки, была ли такая комбинация раньше), и вот он! Вот он! Код моей мечты! Краткий! Кратчайший!!!! PERFECT! p.s. Цитата:
p.p.s. и спасибо за доставленное удовольствие! Автор, "пиши есчё"!! |
|
10.04.2012, 09:11 | #16 | |
Форумчанин
Регистрация: 05.09.2011
Сообщений: 869
|
Сиб, мужики! ))
Цитата:
if Pos(s[i],s)=i then Если ее убрать - будут повторы. Она отсекает перестановки повторных вхождений символов. А сначала я сделал с множествами. Код был чуть длиннее, но работал бы он быстрее, думаю. Функция pos, конечно, не есть хорошо с точки зрения производительности..
Предпочитаю на "ты".
|
|
10.04.2012, 10:31 | #17 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
то, что дело в этой строке, я уже понял, и даже как работает - вроде бы понял! Но самостоятельно сообразить не смог бы! |
|
10.04.2012, 20:08 | #18 |
Пользователь
Регистрация: 05.04.2012
Сообщений: 23
|
Так а как же быть с буквами????
AB - AB,BA |
10.04.2012, 20:13 | #19 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,341
|
Helen236, запустите и посмотрите
Отлично и буквы обрабатываются.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
10.04.2012, 20:46 | #20 |
Пользователь
Регистрация: 05.04.2012
Сообщений: 23
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перестановки | SVing | Паскаль, Turbo Pascal, PascalABC.NET | 26 | 27.02.2012 22:01 |
C# Перестановки | pro100saniok | Помощь студентам | 5 | 21.12.2010 00:12 |
перестановки символов | mrkheggy | Помощь студентам | 7 | 12.12.2010 23:39 |
перестановки | fedd | Помощь студентам | 2 | 27.11.2009 22:59 |
Перестановки | H'orn | Общие вопросы .NET | 4 | 11.11.2009 03:08 |