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

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

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

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

Ответ
 
Опции темы
Старый 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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Исправить ошибку арифметического переполнения в алгоритме. 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


23:29.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.