algo factoriel Résolu

Question

Bonjour,
j voulais la résolution d cette algo :calculer n factoriel

xmaster · Accepted Answer

de rien

xmaster · Answer

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.

xmaster · Answer

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.

Algo factoriel

3 réponses

Votre réponse

Discussions similaires

Newsletters