[algo]
algorithme EvalPolyDegreN
debut
//decalration – saisie du degré du polynome
declarer N : entier_naturel;
afficher ("entrer le degre du polynome : ");
saisir (N);

// declaration du tableau repésentant les coeffs du polynome
declarer TabReel : tableau_de (N + 1) reel;

//remplissage du tableau de coeff
declarer Val : reel;
pour (i variant_de 0 a N)
faire
afficher ("entrer le coeeificient de a", i, " : ");
saisir (Val);
TabReel [i] <- Val;
//ou sinon saisir (TabReel [i]);
ffaire

declarer X : reel;
afficher ("entrer une valeur pour la variable X : ");
saisir (X);

//calcul de la valeur du polynome en X
declarer Puiss : reel;
Puiss <- 1;
declarer Res : reel;
Res <- TabReel[0];
pour (i variant_de 1 a N)
faire
Puiss <- Puiss * X;
Res <- Res + TabReel [i] * Puiss;
ffaire

afficher ("la valeur du polynome est : ", Res);
ligne_suivante;
fin
[/algo]