Pour Guyver2 voila en pascal ça doit avoir cette tête là :

Function Factorielle(N : Integer) : Integer;
Begin
If n < =1 then
Result := 1
Else
Result := N * Factorielle(N-1);
End;

Var
N : Integer;
Begin
WriteLn("Entrez n"+#13#10);
Read(N);
WriteLn("Factorielle de n est : " +IntToStr(Factorielle(N))+#13#10);
End.

Chris_le_ouf> comme je l´ai dis, je l´ai fait a la va-vite, c´est donc normal qu´il y ait des erreurs.
mais le principe etait d´avoir une fonction recursive terminale, ce que les compilateurs savent en general optimiser. cela permet de reutiliser le contexte d´utilisation courant de la fonction au lieu d´en empiler un nouveau.