Pascal

[IaNebaba]

Помогите написать код для решения задач с этой формулой: L=(2^(n-m))/(m!*(n-m)!)

[digitalis]

Как принято здесь говорить - наваяй что-нибудь, а мы поправим.
Опиши переменные, ввод-вывод, а уж потом формулу в середку воткнуть - хоть попытайся.
Даю подсказку: степень - через Exp(Ln(2)*(n-m)) факториал - через самописную функцию, можно рекурсивную.
Что это я словами мудреными мозг тра'хаю, короче - пару пива - и во фриланс .
Ох, губит меня моя доброта. Держи решение Результат, к примеру для
n=5 m=3 будет 0,33333...
За подробностями - к gaev43@inbox.ru
И хорошо, что Не Баба - гусары с ба'бов денег пива не берут.
Эх, мало я зашумил инеем картинку - прочтет, разберет - и плакали мои пару пива

[IaNebaba]

Я отредактировал формулу L=(n!*2^(n-m))/(m!*(n-m)!).
С ее помощью вычисляются многомерные грани n-мерных кубов.

[Cuprum5]

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

С ее помощью вычисляются многомерные грани n-мерных кубов.

- а что значит "вычисляются многомерные грани многомерных кубов"? Можно вычислить площадь, объем или длину грани.
Digitalis, а почему качество картинки такое плохое?

[p51x]

А вы его пост до конца прочитайте и может быть поймете.

[Cuprum5]

Program HelloWorld;
Var B, Q, n, m: Integer;
    L: Double;
Function Factorial(x:Integer):Integer;
Var F: Integer;
Begin
  Factorial := 1;
  For F:=2 to x do
        Factorial := Factorial*F;      
End;

Begin
  WriteLn('Hello, world!');
  WriteLn('Number n = ');    
  ReadLn(n);
  WriteLn('Number m = ');    
  ReadLn(m);
  B := n;
  Q := Factorial(B);
  WriteLn('Factorial(', B ,') = ', Q);      
  
  L := (Factorial(n)*Exp(Ln(2)*(n-m)))/(Factorial(m)*Factorial(n-m));
  WriteLn('L = ', L);
End.

https://rextester.com/RXIE77227

[Аватар]

сдохнет для n>12

[digitalis]

Ну так поскольку результат все равно float, факториал можно реализовать как Extended. Вот и Алексей_2012 того же мнения. Хотя если строго по определению, то факт. - целочисленная функция. Но для данной задачи подойдет как_бы_факториал:Extended
Эх, убили бузинес на корню, так на пару пива расчитывал
Поскольку после уточнения ТС-ом своих хотелок прорисовалось число сочетаний из n по m, то возможности "чистого" факториала расширились. И если считать

   L := 1 ; 
   for i := n downto (n-m+1)  do L := L * i ;
   a := L/Fact(m) ;

то диапазон "невылетаемости" гораздо расширится. Например, С из 1000 по 3 - пара пустяков, да хоть на арифмометре "Феликс".
Такой вот простор для полета мысли над простой задачкой.

[Алексей_2012]

а я решил заморочиться, вроде не должно сдохнуть при возврате real

program formula;


function fac_k(f: word): real;
var
  proizzved: real;
begin
  
  if (f > 0) then begin
    proizzved := 1;
    
    for f := f downto 1 do
      proizzved := proizzved * f;
    
    result := proizzved;
  end else result := 1;
  
end;


function stpn(chislo, stp: integer): real;
var
  znak: boolean;
  res: real;
begin
  znak := false;
  res := 1;
  if (stp = 0) then result := 1;
  
  if (stp < 0) then begin znak := true; stp := -stp; end;
  
  while(stp <> 0) do 
  begin
    res := res * chislo;
    stp := stp - 1;
  end;
  if (znak) then result := 1 / res else result := res;   
end;


function itog(n, m: integer): real;
begin
  result := (stpn(2, n - m)) / (fac_k(m) * fac_k(n - m));
end;


var
  n, m: integer;

begin
  
  writeln('Welcome! Input N and M...');
  write('N = ');
  readln(n);
  write('M = ');
  readln(m); 
  
  
  if((n = 0) and (m = 0)) then writeln('ITOG L=1') else 
  if ((n - m) >= 0) then   
    writeln('itog: L = ', itog(n, m)) else writeln('Raznost N and M > or = 0');
  
end.

спасибо=весы

[Аватар]

А если так считать число сочетаний, то не переполнится и для достаточно больших n, а еще int64 есть

function c(n,m: Integer): Integer;
var i: Integer;
begin
  Result:=1;
  for i:=1 to m do Result:=Result*(n-i+1) div i;
end;