[algo]
algorithme Boucle
debut
declarer Ligne : string;
boucle
afficher("Saisissez une chaine de caractères : ");
ligne_suivante;
saisir (Ligne);
si (taille (Ligne) vaut 0) sortie;
afficher (Ligne);
ligne_suivante;
fboucle
fin
[/algo]

Le but de cet exercice est d’évaluer un polynôme de réels de degré N (de la forme a0 + a1X + a2X2 + ... aNXN). Pour cela :

• saisir N ;
• déclarer un tableau de N réels ;
• remplir ce tableau avec des valeurs saisies au clavier ;
• saisir X ;
• évaluer le polynôme ;
• afficher le résultat de l’évaluation.

[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]