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
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.
merci d'avance.