Algo factoriel

Résolu
mick -  
 xmaster -
Bonjour,
j voulais la résolution d cette algo :calculer n factoriel

3 réponses

xmaster
 
de rien
2
mick
 
j p vous donner une autre exo
0
xmaster
 
mon probleme est ici:
ecrire une traduction en pascal qui calcule la somme s= 1!+2!+3!+......................+ n! (factoriel)
j'ai fait une mais ca donne des resultats fausses. merci d'avance :)

program facto;
uses wincrt;
var i,j,x,y:integer;n:integer;

begin
repeat
write('donner un nombre');readln(n);
until (n>=0);
x:=1 ; y:=0;
if n=0 then
write (n,'!=1')
else begin
for i:=1 to n do
begin
for j:=1 to i do
begin
x:=x*j;
y:=y+b;x:=1;
end;
end;

write (y); end;
end.
1
xmaster
 
voila la reponse:

Program factoriel;
uses wincrt;
var x,i,n:integer;
begin
repeat
write('donner un nombre');readln(n);
until (n>=0);
x:=1 ;
if n=0 then
write (n,'!=1')
else
begin for i:=1 to n do
x:=x*i;
write (n,'!=',x);
end;
end.
0
mick
 
ok j t'en s8 trés reconnaissant ,merci
0