Discussion :

[Onimaru]

Salut à tous :
Soit la fonction récursive définie par :


ou :

Code Delphi :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
function F(D, I, J, K : integer) : integer;
begin
 if J > nCk(D - 1, I - 1) then
  Result := F(D - 1, I, J - nCk(D - 1, I - 1), K) + 1
 else
  if K = 1 then
   Result := 1
  else
   Result := F(D - 1, I - 1, J, K - 1) + 1
end;

Soit S l'ensemble des valeurs de 'f'.
Comment prouver que S = {1,..,d}???
Merci.