[Pile] Calculer le Factoriel

Une fontion qui permit de calculer le factoriel de n (n!), en utilisant les piles


Fonction Factoriel(n: entier): entier;
Var
	P: Pile entier
	SOM, i, x: entier

Debut
	InitPile(P, SOM);
	Empiler(P, SOM, 1);

	Pour i:= 2 à n Faire
		x := SOM_P(P, SOM) * (SOM + 1);
		Empiler(P, SOM, x);
	FinPour

	Factoriel := SOM_P(P, SOM);

Fin;

Laisser des commentaires:

Entrez vos coordonnées ci-dessous ou cliquez sur une icône pour vous connecter:

Logo WordPress.com

Vous commentez à l'aide de votre compte WordPress.com. Déconnexion / Changer )

Image Twitter

Vous commentez à l'aide de votre compte Twitter. Déconnexion / Changer )

Photo Facebook

Vous commentez à l'aide de votre compte Facebook. Déconnexion / Changer )

Photo Google+

Vous commentez à l'aide de votre compte Google+. Déconnexion / Changer )

Connexion à %s

%d blogueurs aiment cette page :