Описать функцию F(m,n)=n!*m!/(n+m)!, где n, m - неотрицательные целые числа. (Определить внутреннюю функцию, вычисляющую факториал)

@Monkeynipple · Регистрация: 23.09.2012

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

Задача: Описать функцию F(m,n)=n!*m!/(n+m)!, где n, m - неотрицательные целые числа. (Определить внутреннюю функцию, вычисляющую факториал).
Нужно решить программу без оператора function, помогите пожалуйста.

@MayaNash · 23.09.2012, 21:41

n!*m!/(n+m)! = m!/( (n+1)*...*(n+m) )

Pascal

uses crt;
 
var res: real;
    n,m,i: integer;
 
 
begin clrscr;
write('m = '); readln(m);
write('n = '); readln(n);
 
res := 1;
for i := 1 to m do
 res := res*i/(n+i);
 
writeln('F(',m,',',n,') = ',res:0:2);
readkey; end.

@Monkeynipple · 24.09.2012, 16:40 **[ТС]**

т.е. это готовая программа?
p.s. В программировании я не очень. Или еще лучше расписать что программа делает, тут или в скайпе electric993

@MayaNash · 24.09.2012, 18:15

Pascal

uses crt;
 
var res: real;
    n,m,i: integer;
 
 
begin clrscr;
write('m = '); readln(m);
write('n = '); readln(n);
 
res := 1;
for i := 1 to m do {перебираем числа от 1 до m}
 res := res*i/(n+i); {умножаем на число, и тут же делим на n+число, чтобы не было переполнения}
 
writeln('F(',m,',',n,') = ',res:0:2); {выводим res:0:2 - всего 0 знаков, 0 = не ограничено, 2 - после запятой}
readkey; end.

@Monkeynipple · 24.09.2012, 18:26 **[ТС]**

Спасибо тебе большое

@Monkeynipple 1 / 1 / 0 Регистрация: 23.09.2012 Сообщений: 16
		1
	Описать функцию F(m,n)=n!m!/(n+m)!, где n, m - неотрицательные целые числа. (Определить внутреннюю функцию, вычисляющую факториал) 23.09.2012, 18:39. Показов* 3374. Ответов 4 Метки нет (Все метки) Задача: Описать функцию F(m,n)=n!*m!/(n+m)!, где n, m - неотрицательные целые числа. (Определить внутреннюю функцию, вычисляющую факториал). Нужно решить программу без оператора function, помогите пожалуйста. 0

@Monkeynipple 1 / 1 / 0 Регистрация: 23.09.2012 Сообщений: 16
	24.09.2012, 16:40 [ТС]	3
	т.е. это готовая программа? p.s. В программировании я не очень. Или еще лучше расписать что программа делает, тут или в скайпе electric993 0

@Monkeynipple 1 / 1 / 0 Регистрация: 23.09.2012 Сообщений: 16
	24.09.2012, 18:26 [ТС]	5
	Спасибо тебе большое 0