fonction factorielle

Code:

program Recu1;
{$R+}
uses crt;
var Nbr:longint;
{*************************************************************************}
function fac(n:integer):longint;
begin
    if n>0 then fac:=fac(n-1)*n
    else fac:=1;
end;
{*************************************************************************}
begin
    clrscr;
    write('Rentrez un nombre (calcul factorielle) : ');
    readln(Nbr);
    writeln('Résultat: ',fac(Nbr));
    readln;
end.

ProgVal a écrit:Ca veut dire quoi tout ça?

methodiX a écrit:n! = 1x2x3x....xn
avec la convention que 0! = 1

nabiL a écrit:Dans une démo par récurrence, il faut commencer par le 1er terme 0! que tu n'as pas. C'est pour ça qu'il faut admettre la convention 0!=1.

methodiX a écrit:Pas grave manianis. Tout le monde a des trous de mémoire !!!

manianis a écrit:

ProgVal a écrit:Ca veut dire quoi tout ça?

C'est un programme en Pascal qui calcule la factorielle d'un nombre donné.

ProgVal a écrit:

manianis a écrit:

ProgVal a écrit:Ca veut dire quoi tout ça?

C'est un programme en Pascal qui calcule la factorielle d'un nombre donné.

Quand j'avais posté, le titre n'était pas explicite, et il n'y avait que le code dans le message.