вычислить число сочетаний. код

[бедный_студент]

3) Составить программу вычисления числа сочетаний используя для числовых данных только тип integer. Вычислить с помощью программы с11\18

Сочетаниями называют комбинации, составленные из n различных элементов по k, которые отличаются хотя бы одним элементом.
Количество комбинаций - это число сочетаний 5 из 3, т.е. C 3\5 =10.
Ck\n= n!\k!(n-k)!
C 3\5 = !5/[!(5-3)·!3].
(слееш в условии - показатель какой элемент сверху\снизу)

___________________________________ ______________
uses crt;
var m,n:integer;

function c(m,n:integer):longint;
begin
if m>n then c:=0;
if (m=0) or (m=n) then c:=1 else
if n-m<m then c:=c(n-m,m) else
c:=c(m-1,n-1)+c(m,n-1);
end;

begin
clrscr;
write('M N-> ');
readln(m,n);
writeln('C=',c(m,n));
readln;
end.

вот код. он работает но как то странно.
при наборе 11\18 результат обработки очень маленький или ошибкка
код правильный ? ошибки в вычислении быть не может ?

[Abstraction]

Отладчик?..
C(11,18)=31824
Проверьте на меньших значениях.

[Serge_Bliznykov]

вот отсюда взял..

uses crt;
var m,n:integer;

function C(n,k:integer):longint;
begin
  if (k=1) or (k=n) 
    then C:=n-k+1
    else C:=C(n-1,k)+C(n-1,k-1);
end;


begin
  clrscr;
  write('M N-> ');
  readln(m,n);
  WriteLn('m = ',m, ' n= ',n);
  if m<=n then
    writeln('C=',c(n,m))
  else
    writeln(' no chance! ');
  readln;
end.

[бедный_студент]

тут еще вариантов 7 есть кода, но они работают мене стабильно

[бедный_студент]

пардон
это из старого кода
все нормально
спасибо
юстас - витасу

[katyawapka]

подскажите как к этой задаче переделать условие на цикл? вообще возможно ли такое?

[Serge_Bliznykov]

тут цикл (неявный) и так есть.
Рекурентная формула в данном случае считается через рекурсию (функция C вызывает сама себя)

[Poma][a]

function Factorial (const n : Integer) : LongInt;
var
   i : Integer;
   r : LongInt;

begin
     r := 1;
     for i := 1 to n do
         r := r * i;

     Factorial := r;

end;

var
   n, k : Integer;

begin
     Read (n, k);

     WriteLn (Factorial (n) div (Factorial (k) * Factorial (n-k)))
end.

Когда-то решал так.. можно существенно упростить.. Просщитать (k+1)*(k+2)*..*n и уже потом делить на Factorial(n-k)..

[Serge_Bliznykov]

Рома][а, можно и так.
НО! katyawapka пришёл(?пришла) из этой темы:
Для заданных чисел m и n вычислить число сочетаний
если я его правильно понял, то ему(?ей) нужно как раз через реккурентную формулу расчитать число сочетаний