Algo calcPoly
Var
	p : chaine;
	i,a:entier;
	x,b :réel
	
Début
	Ecrire("ecrire le polynome sous forme a1*x^b1+a2*x^b2+...")
	Lire(p)
	Ecrire("Quelle valeur de x ?")
	Lire(x)
	i:=1
	resFinal:=0
	
	TantQue i < longueur(p)+1
	
		resInt:=0
		TantQue P[i]=! "*"
			resInt=resInt*10+P[i]
		FinTantQue
		
		a:=resInt
		i:=i+3
		resInt:=0
		
		TantQue P[i]=! "+" OU i>longueur(p)
			resInt=resInt*10+P[i]
		FinTantQue
		
		b=resInt
		i:=i+1
		
		resFinal:=resFinal+(a*x^b)
		
	FinTantQue
	Ecrire("le resultat final est :",resFinal)
Fin

---------------------------------------------------------------------------------
Mieux en dessous
---------------------------------------------------------------------------------

Algo calcPoly2
Var
deg,i,j,a:Entier
x,resInt,resFinal:Réel
	
Début
	Ecrire("Veuillez entrer le degré du polynome :")
	Lire(deg)
	
	Ecrire("Veuillez entrer la valeur de x :")
	Lire(x)
	
	resFinal:=0
	
	Pour i de 0 a deg
	
		Ecrire("Veuillez entrer le coefficient du degré ",deg-i)
		Lire(a)
		
		resInt:=1
		
		Pour j de 1 a deg-i
			resInt:=resInt*x
		FinPour
		
		resFinal:=resFinal+resInt*a
		
	FinPour
	
	Ecrire("Le résultat est : ",resFinal)
Fin