решить нужно к завтрашнему дню)

[KaZaaM]

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

кто может, плз, напишите, что не жалко, буду оооочень благодарен,вот задача:

написать программу для подсчета значения
F(m,n)=n!m!/n+m! , где 'n' и 'm' целые неотрицательные числа...

ЗЫ: пишу в консоле

[KaZaaM]

тролько плз, напишите мне ответ, либо, что мне никто помогать не будет и я буду вообще не спать, т.к. у меня завтра еще 2 зачета, либо напишите, что поможете...

[Sazary]

KaZaaM Правила написаны для всех. И хорошо бы их прочитать перед тем, как создавать тему.
Что-то не верится, что вы сидели над этой задачей "очень долго", т.к. она действительно элементарная.

uses crt;

var
m,n : longint;
F : real;

function fact(ar : longint) : longint;
 var k : longint;
 begin
 k:=1;
 for k:=1 to ar-1 do
  ar:= ar*k;
 fact := ar;
 end;

begin
clrscr;
write('Enter m: ');
readln(m);
write('Enter n: ');
readln(n);

F:=fact(n)*fact(m)/fact(n+m);
writeln('F= ',F:7:4);

readln;
end.

[KaZaaM]

правила читал, а сидел я после 3 часов культурологии, и 5 часов информатики, думаю мало кто сообразил бы хоть что то....

спасибо огроооомное!!! не думал, что кто то мне с этим поможет...

[KaZaaM]

блин, реально спасибо огромное...а то мне и так всю ночь сидеть((

[Sazary]

KaZaaM Пожалуйста. В следующий раз все-таки придерживайтесь правил.

[Тупой]

а если n = 150, а m = 140? Вы думаете, что результат будет очень большой?? Нет, простого real вполне хватит. А Вы вылезите за границы диапазона, а это нехорошо. Я бы обошелся без функции fact:
Ведь
n!m!/(n+m)!=n!/((m+1)...(m+n)) (см аттач)

Лучше написать чтонить такое:

PHP код:

ar = 1
for k:=1 to n do
  ar:= ar*k/(k+m);
 end; 


где ar = результат, m и n определены и инициализированы гдето выше.

[Sazary]

Тупой Я не спорю, что мой вариант не самый оптимальный. Но он все-таки более наглядный.
А так, да, лучше как вы написали. Но это уже относится к вопросам оптимизации )

[KaZaaM]

i:=1;
z:=1;
while I<n do
begin
z:=z*(i+1) ;
inc(i)
end;

а так можно??

[Sazary]

KaZaaM Для факториала? Можно )