Bonjour, le but de l'exercice est le calcul d'un polynôme p(x).
Le programme doit demander : le degré du polynôme, les coefficients et une valeur de x.

J'ai fait ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
PROGRAM polynome;
USES CRT;
VAR I,D : INTEGER;
P: ARRAY[0..100] of real;
Y,X,R : REAL ;
BEGIN
CLRSCR;
WRITELN('Entrez le degré de votre polynôme');
READ(D);
FOR I:= 0 TO D DO
  BEGIN
  WRITELN('Donnez le coefficient de x puissance',I);
  READ(P[I]);
  END;
WRITELN('Entrez une valeur de x');
READ(x);
 
R:=0;
Y:=1;
Y:=Y*x;
FOR I:=0 TO D DO R:=R+P[I]*Y;
WRITELN('Le polynôme pris en',x,'vaut',R);
READKEY;
END.
Le problème c'est que la valeur trouvée du polynôme, pour des coefficients donnés et une valeur de x donnée, n'est pas la bonne valeur et je n'arrive pas à trouver mon erreur.
Quelqu'un peut-il m'aider ? Merci !