составить программу вычисляющую значение выражения N!(M! +(N-M)!) с помощью цикла for (язык C)

[reijii_nia]

дали задание
составить программу вычисляющую значение выражения N!(M! +(N-M)!) с помощью цикла for

[Sergey_gorobets]

вычисляешь отдельно (N-M)! ,N! и M!..потом все вместе...
а факториал с помощью оператора цикла for можно реализовать таким образом:

            int result = 1;
            for (int i = 1; i <=(N-M);i++ )
            {
                result *= i;
            }

[Streletz]

вычисляешь отдельно (N-M)! ,N! и M!..потом все вместе...

Зачем?

result:=Factorial(N)*(Factorial(M)+Factorial(N-M));

Код для функции Factorial здесь.

[reijii_nia]

спасибо...однако набрал...ответ постоянно 2...я хз...изучаю недавно...мож чего не хватает или что не так ввел

program fuct;
 var
  n,m,f,Result:integer;
 function Factorial(k: Integer): Longint;
   var i: Integer;
   begin
    Result:=1;
    for i:=2 to k do
     Result:=Result*i;
   end;
begin
 f:=Factorial(n)*(Factorial(m)+Factorial(n-m));
 writeln(f);
end.

[Аватар]

Result:integer; не надо. Да и не помню - паскаль понимает Result в функции?

[Streletz]

Сообщение от reijii_nia

ответ постоянно 2

Судя по всему, Ваша процедура выдаёт результат сразу же в 1м проходе цикла. Result нужно ставить в самом конце.
Можно попробовать сделать как-нибудь так:

function Factorial(k: Integer): Longint;
   var
     i: Integer;
     r:Longint;       
   begin
    r:=1;
    for i:=2 to k do
     r:=r*i;
    Result:=r;
   end;

P.S. Код писал прямо на форуме, соответственно, без проверки.

[reijii_nia]

все равно 2 выдает((((

[Streletz]

Сообщение от reijii_nia

все равно 2 выдает((((

Значит что-то Вы не так делаете. Например, вводите не те данные при тестировании. Потому, что я проверил код из своих постов. Работает нормально.

[BDA]

Судя по всему, reijii_nia вообще не запрашивает N и M. Они инициализируются нулями (скорее всего), а функция факториал возвращает 1, если цикл ни разу не выполнен. 1 * (1 + 1) = 2