Bonjour
En fait j'ai croisé cette page web par hasard
http://www.peripheria.net/calcul/borw.php
j'ai essayé de rediger un programme qui calcule pi avec cet algorithme
mais ca n'a pas l'air de marcher
peut etre que j'ai pas saisi le fonctionnement de cette suite
j'ai cru qu'elle converge vers pi et il suffit de prendre une valeur k assez grand pour avoir plus de décimales
what's wrong with it?
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 program pi; uses wincrt ; var n,k,i,result,p:integer; t,a,y:real; begin writeln('entrer un nbr pos'); readln(n); a:=6-4*sqrt(2); y:=sqrt(2)-1; k:=0 ; repeat result:=1 ; for i:=0 to k-1 do result:=result*4 ; p:=result ; y:=(1-sqrt(sqrt(1-sqr(sqr(y)))))/(1+sqrt(sqrt(1-sqr(sqr(y))))) ; a:=a*sqr(sqr(1+y))-p*8*(1+y+sqr(y)) ; k:=k+1; until n=k ; t:=1/a ; writeln(t); end.
expliquez moi je vous prie
......
Partager