Algo factoriel [Résolu/Fermé]

Signaler
-
 xmaster -
Bonjour,
j voulais la résolution d cette algo :calculer n factoriel
A voir également:

3 réponses

de rien
2
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

j p vous donner une autre exo
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.
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.
ok j t'en s8 trés reconnaissant ,merci