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 :
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.
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.
Quelqu'un peut-il m'aider ? Merci !
Partager