Salut les gars ;
Bon voila j'ai un petit probléme dans mon code source !!de l'aide sera la bienvenue surtout que ma tete me fait trés mal et je vous remercie d'avance pour vos réponses !!
voila l'enoncé
On se propose de determiner une valeur approchée de pi par la methode de Wallis definie par la formule suivante pi/2=(2/1)*(2/3)*(4/3)*(4/5)*(6/5)*(6/7)*(8/7)*(8/9)etc Ecrire un programme pascal qui permet de determiner et d'afficher une valeur approchée de pi .Le calcul s'arrete lorsque la difference entre 2 valeurs consecutifs de cette formule devient strictement < 10 puissance -6
Voila ce que j'ai pu faire en utilisant l'algorithme de récurrence
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
31
32
33
34
35
36
37
38
39
 
program exercice ;
uses wincrt ;
var
   x,s :real ;
 
function calcul : real ;
var
a,b,c : integer ;
s1 : real ;
begin
 
a:=2 ;
b:=1 ;
s:=0 ;
c:=0 ;
 repeat
  c:=c+1 ;
  s1:=s ;   
  s:=s+(a/b) ;
  if c mod 2 <> 0 then
   begin
 
    b:=b+2 ; 
   end
  else if c mod 2 = 0 then
   begin    
    a:=a+2 ;
   end; 
 until abs(s-s1) < 0.000001 ;
 
calcul:=s*2 ;
 
end;
 
begin
x:=calcul ;
writeln(x);
end.