Algo operationMathematiques

fonction factorielle x:entier -> entier
Début
	Si x=1 alors retourner 1
	sinon retourner x*factorielle(x-1)
Fin

fonction pgcd x,y:entier -> entier
Début
	Si (x mod y) = 0 alors retourner y
	sinon pgcd( y,(x mod y))
	FinSi
Fin

procédure scddeg x,y,z:réel
var
	delta:réel
Début
	delta:=y*y+4*x*z
	Si delta=0 alors Ecrire("Le résultat est : ",(-y/(2*a)))
	Sinon
		Si delta > 0 alors 
			Ecrire("Les résultat sont x1=",((-b-sqrt(delta))/(2*a))," et x2=", ((-b+sqrt(delta))/(2*a)))
			Sinon
			Ecrire("Le résultat n'est pas réel")
		FinSi
	FinSi
Fin


VAR
continuer:booléen
a:entier
nb1,nb2:entier
r1,r2,r3:réel

Début
continuer:= TRUE
TantQue continuer
	Ecrire("
	Veuillez choisir une opération à effectuer :
	1. Factorielle
	2. PGCD
	3. Equation du Second Degré
	Any other. Quitter
	")
	Lire(a)
	
	Si a=1 alors
		Ecrire("Saisir le nombre :")
		Lire(nb1)
		Ecrire("Sa factorielle est : ", factorielle(nb))
	Sinon
		Si a=2 alors
			Ecrire("veuillez saisir les deux nombre du PGCD : ")
			Lire(nb1)
			Ecrire(" et ")
			Lire(nb2)
			Si nb2<nb1 alors
				Ecrire("Le PGCD est : ", pgcd(nb1,nb2))
			Sinon
				Ecrire("Le PGCD est : ", pgcd(nb2,nb1))
			FinSi
		Sinon
			Si a=3 alors
				Ecrire("veuillez saisir les trois coefficients du polynome : ")
				Lire(r1)
				Ecrire(" , ")
				Lire(r2)
				Ecrire(" et ")
				Lire(r3)
				scddeg(r1,r2,r3)
			Sinon
				continuer:=FALSE
			FinSi
		FinSi
	FinSi
FinTantQue
Fin