Как исправить ошибку арифметического переполнения в паскале?

[evg_m]

это было неверное решение

[DarkDen]

Извините, я опять что то запорол. Поменят код на последний, быстрый вариант. Выдает ошибку: "не может определить индификатор *result*"
Спасибо.

[Poma][a]

Result - это из дельфи.
Есть 2 варианта решения проблемы с ним :
1) в настройках Free указать совместимость в дельфи
2) В процедурке\функции, где используется Result, вместо Result'a писать название этой проц\функ.

У меня есть идея как провернуть всё очень быстро.. (с помощью динамики), но я не уверен что это сработает.. да и кода у меня нет.. так что, возможно, ближе к вечере я отпишусь..

[Poma][a]

Так-с.. Просто идея..
Если представить красные шары нулями, а белые - 1.
Тогда запихнув шары в ячейки, мы получим двоичное число, так?
А если подсщитать кол-во двоичных чисел, в которых не встречается 4 подряд идущих 0? Вычесть из общего кол-ва двоичных чисел, и получим кол-во чисел, в которых есть 4 подряд идущих 0.

Всего двоичных чисел с N разрядами будет 2^N.
Но 2^52 <> 52! (наверное.. (сщитать - лень))

Поэтому нужно что-то придумать..

Допустим, мы сможем доказать что идея имеет право на существование, тогда надо будет решать задачку.. Можно порешать динамикой.. На acmp есть задачка тыц.. Я её не решал.. Но насколько я помню там для 2-ной с.с. имеет место числа Фибоначчи..
Возможно, они будут полезны и здесь.. Вообщем надо думать..
Жду критики

[Аватар]

Вчера вечерком придумал формулу (или только кажется, что придумал) для 52,13,39 и получил вероятность 69159932764/635013559600=0,108911. Если совпадет с программным расчетом, то покажу.

[DarkDen]

На каком процессоре считает и сколько времени уже считает?
Спасибо

[DarkDen]

Я пошёл немного другим путем. Были схошие задачи и схошие алгоритмы для них.
Что бы проверить правильность алгоритма, я использовал метод "рекурентных отношений" из теории вероятности. Тоесть, я решал задачу с малыми N и M, задачу которую мог решить вручную(методом создания таблицы всех комбинаций). Затем алгоритм считал задачу с теми же данными. Иногда корректировал алгоритм когда результаты были разными.
Спасибо

[Poma][a]

На каком процессоре считает и сколько времени уже считает?

Мы дак думали что Вы запустите программу на своем компьютере..

[Аватар]

На каком процессоре считает и сколько времени уже считает?

Если это вопрос ко мне, то считал на процессоре карандаш+тетрадка. Часа три убил вечером

[BDA]

Аватар, а Ваша формула параметризована?
Это я к тому что, можете ли Вы подставить в нее другие N, M (например, N = 29 и M = 13) и сказать число комбинаций?