J'ai deplacé ce message dans un nouveau post; oui en fait ça ne m'aide pas trop, dommage, en fait ce que je cherche à faire c'est cette somme :
(-1)^k*(x^(2k+1)/(2k+1)!)
le tout sans utiliser de fonction et dans une même boucle.
Voici ma réalisation pour ce programme :
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
25
26
27
28
29
30 program exo5; function taylor5(x:real;k:integer):real; var res,puiss:real; fact, i:integer; begin i:=1; res:=1; puiss:=1; fact:=1; while i<k do begin puiss:=puiss*x*-x; fact:= fact*(2*i+1)*(2*i); res:= res+((puiss)/(fact)); i:=i+1; end; taylor5:=res; end; var x,res:real; k:integer; begin writeln(' donnez x et k pour |x|<1'); readln(x,k); writeln(taylor5(x,k)); end.
Partager