|
|
|
|
Par exemple : program Project1;
{$APPTYPE CONSOLE}
function factorielle(n:integer):integer;
begin
if n>1 then result:=n*factorielle(n-1)
else result:=1;
end;
var n:integer;
begin
write('n : '); readln(n);
writeln('n! : ',factorielle(n));
writeln; write('Fin du programme. Appuyer sur Entree'); readln;
end.
La confiance n'exclut pas le contrôle |
Répondre à gbm
|