[Fonction] La divisibilité par 3

Une fonction qui permit de dire si un nombre (avec length = 4) est divisible par 3 sans utiliser le mod


Fonction Div3(x: entier): bool;
Var
	A, B, C, D, S: entier;

Debut

	Si(x w= 9) Alors
		Si(x = 9 Or x = 6 Or x = 3 Or x = 1 Or x = 0) Alors
			Div3 := Vrai;
		Sinon
			Div3 := Faux;
		FinSi
	Sinon
		A := x div 1000;
		B := (x - A * 1000) div 100;
		C := (x - (A * 1000 + B * 100)) div 10;
		D := (x - (A * 1000 + B * 100 + C * 10));
		S := A + B + C + D;
		Div3 := Div3(S);
	FinSi

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 :