Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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


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

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

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

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

P.S. Сори что за 2 поста, но при их совмещении получалось > 5000 символов
Poma][a вне форума Ответить с цитированием
Старый 12.05.2013, 11: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, 12:13   #23
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

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

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

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

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

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

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

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

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

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

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840