توی کتاب های طراحی الگوریتم نوشته شده !
نمی دانم این تا چه حد به دردت بخوره ؟
function c(n,k) :unsigned integer ; 

begin

  if k=0 or k=n then return 1 ;

  else

   return c(n-1,k-1)+c(n-1,k) ;

end;


منظور از c همان ترکیب است .

c(n,k) = n!/k!(n-k)!