Вычислить значение выражения

@Анютка98 · Регистрация: 30.09.2015

Author24 — интернет-сервис помощи студентам

Составить программу с помощью процедур Procedure
Составить программу находящую значение следующего выражения $https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{n!}{m!(n-m)!}$

@Puporev · 27.10.2015, 15:26

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure Fact(k:integer;var p:real);
var i:byte;
begin
p:=1;
for i:=1 to k do
p:=p*i;
end;
var  n,m:integer;
     f1,f2,f3,s:real;
begin
repeat
writeln('Введите 2 натуральных числа m<=n');
readln(m,n);
until(m>0)and(n>m);
fact(n,f1);
fact(m,f2);
fact(n-m,f3);
s:=f1/f2/f3;
write('Cs=',s:0:0);
end.

@bormant · 27.10.2015, 17:45

С учетом того, что выражение легко сократить на большее из m! и (n-m)!, практичнее сразу считать результат сокращения:

Pascal
1
2
3
4
5
6
7
8
9
10
procedure Cnm(n, m: Integer; var c: Real);
var i: Integer; d: Real;
begin
  if m<n-m then m:=n-m;
  c:=1; d:=1;
  for i:=1 to n-m do begin
    c:=c*(m+i); d:=d*i;
  end;
  c:=c/d;
end;

@Puporev · 27.10.2015, 17:50

Это понятно, просто ей наверняка нужно с факториалом, а так
Число сочетаний из n элементов по k

@bormant · 27.10.2015, 18:09

Угу, можно отдельно числитель и знаменатель не считать (поскольку произведение), под вечер уже соображалка не работает... Тогда с for циклом:

Pascal
1
2
3
4
5
6
procedure Cnm(n, m: Integer; var c: Real);
var i: Integer;
begin
  if m<n-m then m:=n-m;
  c:=1; for i:=1 to n-m do c:=c*(m+i)/i;
end;

@Анютка98 · 29.10.2015, 20:12 **[ТС]**

а можно пожалуйста решить теперь только с функцией ))) тоже самое выражение , пожалуйста

Добавлено через 18 минут

Сообщение от Анютка98

а можно пожалуйста решить теперь только с функцией ))) тоже самое выражение , пожалуйста

помогите очень надо(

@Puporev · 29.10.2015, 20:17

Так тебе же в личке я написал, или ты решила все добить?

Новые блоги и статьи Все статьи Все блоги /
Исключения в Java: советы, примеры кода и многое другое Javaican 18.05.2025 Исключения — это объекты, созданные когда программа сталкивается с непредвиденной ситуацией: файл не найден, сетевое соединение разорвано, деление на ноль. . . Список можно продолжать до бесконечности. . . .	Как сделать SSO (Single Sign-On) в C# приложении stackOverflow 18.05.2025 SSO — это механизм, позволяющий пользователю пройти аутентификацию один раз и получить доступ к нескольким приложениям без повторного ввода учетных данных. Вы наверняка сталкивались с ним, когда. . .	Kubernetes с Apache Flink для обработки данных в реальном времени Mr. Docker 17.05.2025 Kubernetes — это целая философия управления распределёнными приложениями. В отличие от "примитивных" решений вроде Docker Swarm, K8s (как его ласково называют в тусовке DevOps-инженеров) предлагает. . .	Использование декораторов в Python py-thonny 17.05.2025 Если вы когда-нибудь задумывались о том, как красиво расширить функциональность кода без лишней возни и дублирования, декораторы в Python — та самая волшебная палочка, которую вы искали. По сути, это. . .	Реализация многопоточных сетевых серверов на Python py-thonny 16.05.2025 Когда сталкиваешься с необходимостью писать высоконагруженные сетевые сервисы, выбор технологии имеет критическое значение. Python, со своей элегантностью и высоким уровнем абстракции, может. . .
C# и IoT: разработка Edge приложений с .NET и Azure IoT UnmanagedCoder 16.05.2025 Мир меняется прямо на наших глазах, и интернет вещей (IoT) — один из главных катализаторов этих перемен. Если всего десять лет назад концепция "умных" устройств вызывала скептические улыбки, то. . .	Гибридные квантово-классические вычисления: Примеры оптимизации EggHead 16.05.2025 Гибридные квантово-классические вычисления — это настоящий прорыв в подходах к решению сложнейших вычислительных задач. Представьте себе союз двух разных миров: классические компьютеры, с их. . .	Использование вебсокетов в приложениях Java с Netty Javaican 16.05.2025 HTTP, краеугольный камень интернета, изначально был спроектирован для передачи гипертекста с минимальной интерактивностью. Его главный недостаток в контексте современных приложений — это. . .	Реализация операторов Kubernetes Mr. Docker 16.05.2025 Концепция операторов Kubernetes зародилась в недрах компании CoreOS (позже купленной Red Hat), когда команда инженеров искала способ автоматизировать управление распределёнными базами данных в. . .	Отражение в C# и динамическое управление типами stackOverflow 16.05.2025 Reflection API в . NET — это набор классов и интерфейсов в пространстве имён System. Reflection, который позволяет исследовать и манипулировать типами, методами, свойствами и другими элементами. . .

@Анютка98 -17 / 2 / 0 Регистрация: 30.09.2015 Сообщений: 422

	Вычислить значение выражения 27.10.2015, 15:11. Показов 1236. Ответов 6 Метки нет (Все метки) Составить программу с помощью процедур Procedure Составить программу находящую значение следующего выражения $https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{n!}{m!(n-m)!}$ 0

@Puporev Почетный модератор 64312 / 47609 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	27.10.2015, 17:50
	Это понятно, просто ей наверняка нужно с факториалом, а так Число сочетаний из n элементов по k 0

@Puporev Почетный модератор 64312 / 47609 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	29.10.2015, 20:17
	Так тебе же в личке я написал, или ты решила все добить? 0

Опции темы

Вычислить значение выражения

Решение