[pascal] valeur approchée de pi

ghassen -  
 rym -
Bonjour,
je dois ecrire un programme pascal qui permet de caluler puis d'afficher une valeur approchée de pi a 10^(-4)près à partir de l'expression: pi/4 = 1 - 1/3 + 1/5 - 1/7 + 1/9 ..... ; (le calcul s'arrete quand la difference entre 2 valeur consécutives de cette expression devient strictement inferieur à 10^(-4)..
merci pour votre aide
a+
Configuration: Windows XP
Firefox 2.0.0.6

3 réponses

  1. belhi.A
     
    bonjour
    ok

    begin
    x:=1;
    i:=3;
    repeat
    xpre:=x;
    x:=xpre-1/i;
    i:=i+1;
    until(4*(x-xpre)<eps);
    end;
    1
    1. big.steff&lt;3 frero
       
      l'icrementation de i sera i:= i+2 pas ;
      et until abs (x-xpres )<eps;
      0
  2. Choky92 Messages postés 6 Date d'inscription   Statut Membre 1
     
    Bonjour,

    Je crois qu'il s'agit d'une suite: pi=4* somme (-1)
    0
    1. belhi.A
       
      non non,,c'est vrai qu'il s'agit d'une suit mais la problem c de signe (-) aprés chaque 2 instruction de cette suite
      0
    2. hani
       
      quand est ce qu'on fait s:=0 et s:=1 dans le programme pascal
      0
  3. Choky92 Messages postés 6 Date d'inscription   Statut Membre 1
     
    PI=4*somme(0 à infini)((-1)puiss(n)/ (2*n+1))

    Je n'ai pas pu écrire l'equation entièrement...

    En utilisant des boucles pour incrementer n et réaliser la somme et des test "si" à l'interieur de ta boucle d'incrementation je penses que tu

    peux trouver une solution...Bon courage...
    -1
    1. rym
       
      program pi;
      uses wincrt;
      var
      k:integer;
      n:integer;
      somme:real;
      begin
      read(n);
      somme:=0;
      for k:=0 to n do
      somme:= somme + (1div(2*k+1))* exp(k*ln(-1));
      pi:= 4*somme;
      end.
      0