Algo factoriel
Résolu/Fermé
A voir également:
- Algorithme qui calcule le factoriel d'un nombre
- En raison d'un nombre important d'échec de connexion snapchat - Forum Snapchat
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Google Docs
- Dans ce fichier, réalisez le graphique xy (nuage de points ou dispersion), avec les x en abscisse. dans le graphique, les points dessinent un nombre. lequel ? - Forum Bureautique
- Logiciel algorithme gratuit - Télécharger - Édition & Programmation
- Ecrire un algorithme qui permet de calculer la somme de deux nombres - Forum Programmation
3 réponses
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.
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.
18 janv. 2010 à 21:49