|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
15.01.2019, 12:45 | #1 |
Новичок
Джуниор
Регистрация: 25.12.2018
Сообщений: 2
|
Pascal
Помогите написать код для решения задач с этой формулой: L=(2^(n-m))/(m!*(n-m)!)
Последний раз редактировалось IaNebaba; 15.01.2019 в 12:51. |
15.01.2019, 21:57 | #2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,536
|
Как принято здесь говорить - наваяй что-нибудь, а мы поправим.
Опиши переменные, ввод-вывод, а уж потом формулу в середку воткнуть - хоть попытайся. Даю подсказку: степень - через Exp(Ln(2)*(n-m)) факториал - через самописную функцию, можно рекурсивную. Что это я словами мудреными мозг тра'хаю, короче - пару пива - и во фриланс . Ох, губит меня моя доброта. Держи решение Результат, к примеру для n=5 m=3 будет 0,33333... За подробностями - к gaev43@inbox.ru И хорошо, что Не Баба - гусары с ба'бов Эх, мало я зашумил инеем картинку - прочтет, разберет - и плакали мои пару пива Последний раз редактировалось digitalis; 15.01.2019 в 23:08. |
16.01.2019, 13:11 | #3 |
Новичок
Джуниор
Регистрация: 25.12.2018
Сообщений: 2
|
Я отредактировал формулу L=(n!*2^(n-m))/(m!*(n-m)!).
С ее помощью вычисляются многомерные грани n-мерных кубов. |
16.01.2019, 13:43 | #4 |
Форумчанин
Регистрация: 09.05.2017
Сообщений: 729
|
|
16.01.2019, 13:50 | #5 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,695
|
А вы его пост до конца прочитайте и может быть поймете.
|
16.01.2019, 14:21 | #6 |
Форумчанин
Регистрация: 09.05.2017
Сообщений: 729
|
Код:
|
16.01.2019, 14:49 | #7 |
Старожил
Регистрация: 17.11.2010
Сообщений: 19,042
|
сдохнет для n>12
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
16.01.2019, 15:18 | #8 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,536
|
Ну так поскольку результат все равно float, факториал можно реализовать как Extended. Вот и Алексей_2012 того же мнения. Хотя если строго по определению, то факт. - целочисленная функция. Но для данной задачи подойдет как_бы_факториал:Extended
Эх, убили бузинес на корню, так на пару пива расчитывал Поскольку после уточнения ТС-ом своих хотелок прорисовалось число сочетаний из n по m, то возможности "чистого" факториала расширились. И если считать Код:
Такой вот простор для полета мысли над простой задачкой. Последний раз редактировалось digitalis; 16.01.2019 в 16:08. |
16.01.2019, 15:46 | #9 |
t45t
Участник клуба
Регистрация: 20.03.2012
Сообщений: 1,849
|
а я решил заморочиться, вроде не должно сдохнуть при возврате real
Код:
from dark to light)
Последний раз редактировалось Алексей_2012; 16.01.2019 в 15:51. |
16.01.2019, 16:25 | #10 |
Старожил
Регистрация: 17.11.2010
Сообщений: 19,042
|
А если так считать число сочетаний, то не переполнится и для достаточно больших n, а еще int64 есть
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Turbo Pascal/Free Pascal/PascalABC.NET как новый инструмент экстрасенсов | Biohazard333 | Свободное общение | 5 | 25.09.2016 12:25 |
pascal abc, pascal turbo. выборка данных из одного .txt в другой | ТипичныйСтудент | Помощь студентам | 6 | 27.04.2013 15:29 |
Задача turbo pascal на тему: файлы с произвольным доступом в Pascal | ExCiTeC | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 28.01.2013 20:36 |
Программы в Pascal, среда pascal ABC. Лабораторные работы | Одинокая Волчица | Фриланс | 8 | 10.02.2012 20:09 |
а free pascal не читает задачи которые написаны на turbo pascal? | demonara | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 25.05.2009 16:28 |