Bonjour,
y a-t-il quelqu'un qui peut m'aider ?
Je cherche la valeur approchée de la constante PI par la méthode de Wallis
[PI = 2*(2/1 * 2/3 * 4/3 * 4/5 * 6/5 * 6/7 * ....)]
Voilà ma proposition, théoriquement ça marche mais sur la machine elle m'affiche 0.00000000
merci d'avance.
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 uses wincrt; const eps=10E-6; var p1,p2:real; i,n,d:integer; begin p2:=2; i:=2; n:=2; d:=3; repeat p1:=p2; p2:=p2*(n/d); if (i mod 2=0) then n:=n+2 else d:=d+2; i:=i+1; until abs(2*p2-2*p1)<eps; write('La valeur approchée est : ',2*p2:0:10); end.
Partager