Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.05.2013, 09:26   #21
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
В Вашем случае 52!/(13! * 39!) = 635013559600 комбинаций (влезает только в int64, если рассматривать целые типы).
Возможно влезет еще и в QWord (не проверял)

Получается мы должны будем сгенерировать все эти комбинации и искать только подходящие нам. С таким кол-вом комбинаций это нереально!!
Рекурсия тут не помощник (если не отбрасывать заведомо "плохие" варианты на стадии их эмбрионального развития)

Динамика тоже не к месту.. Вообщем хорошая задачка..

P.S. Сори что за 2 поста, но при их совмещении получалось > 5000 символов
Poma][a вне форума Ответить с цитированием
Старый 12.05.2013, 12:49   #22
DarkDen
Пользователь
 
Регистрация: 11.05.2013
Сообщений: 38
По умолчанию

Спасибо
У меня всё равно сразу после запуска отладчика ошибки выдает:

(15,8) errorrdinal expreession expected
(21,14) error: ordinal expreession expected
(92) fatal: there were 2 errors compiling module, stopping
(0) fatal: compilation aborted

Может в настройках паскаля что не то, или паскаль нужен другой, или из-за того что 64 винду использую, я уже не знаю.

"Динамика тоже не к месту.."

Програмка с N=52 и M=13 на моей конфигурации будет считать около 4 суток, нормально. Но почему ошибки???
Спасибо
DarkDen вне форума Ответить с цитированием
Старый 12.05.2013, 13:13   #23
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Посмотрите что j - это у меня LongInt
Poma][a вне форума Ответить с цитированием
Старый 12.05.2013, 13:26   #24
DarkDen
Пользователь
 
Регистрация: 11.05.2013
Сообщений: 38
По умолчанию

Изменял...
DarkDen вне форума Ответить с цитированием
Старый 12.05.2013, 13:32   #25
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

И что? У меня всё компилируется - тыц
Poma][a вне форума Ответить с цитированием
Старый 12.05.2013, 14:47   #26
DarkDen
Пользователь
 
Регистрация: 11.05.2013
Сообщений: 38
По умолчанию

Интиресно...
Попробую другой паскаль, может АВС но он ведет расчеты в 3 раза медленнее. Какой у вас паскаль?
Спасибо

А может просто руки крывые )))

Последний раз редактировалось Stilet; 13.05.2013 в 19:39.
DarkDen вне форума Ответить с цитированием
Старый 12.05.2013, 15:00   #27
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
Какой у вас паскаль?
Free.(буквы-буквы)
Poma][a вне форума Ответить с цитированием
Старый 12.05.2013, 15:11   #28
DarkDen
Пользователь
 
Регистрация: 11.05.2013
Сообщений: 38
По умолчанию

Ммммммм, даааааааа
Все ясно, у меня тоже Free, буду дальше "змагаться", скорее всего где то синтоксическая ошибка. А как скопировать вашу версию с форума сразу в паскаль???????????
Огромное спасибо
DarkDen вне форума Ответить с цитированием
Старый 12.05.2013, 15:26   #29
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Выделяете мой код -> Правая -> Копировать
Идем в Free Pascal -> File -> New
теперь Edit -> Paste from Windows
Poma][a вне форума Ответить с цитированием
Старый 12.05.2013, 15:54   #30
DarkDen
Пользователь
 
Регистрация: 11.05.2013
Сообщений: 38
По умолчанию

Фуууууууууу, Вы не представляете как вы мне помогли, главное что бы через 30 часов расчётов опять не выбило ошибку. Самому интересно в чём она была.

С вашей помощью зарадится луч света в тени )))
Спасибо
DarkDen вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Исправить ошибку арифметического переполнения в алгоритме. DarkDen Паскаль, Turbo Pascal, PascalABC.NET 2 11.05.2013 13:16
как исправить ошибку? phasha Помощь студентам 0 11.01.2012 21:32
как исправить ошибку? aiktz Паскаль, Turbo Pascal, PascalABC.NET 3 24.09.2009 18:56
прога на Паскале помогите исправить ошибку:( Jeksik Помощь студентам 4 14.10.2008 18:21