[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+
A voir également:

3 réponses

Réponse 1 / 3
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
big.steff&lt;3 frero
 
l'icrementation de i sera i:= i+2 pas ;
et until abs (x-xpres )<eps;
0
Réponse 2 / 3
Choky92 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   1
 
Bonjour,

Je crois qu'il s'agit d'une suite: pi=4* somme (-1)
0
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
hani
 
quand est ce qu'on fait s:=0 et s:=1 dans le programme pascal
0
Réponse 3 / 3
Choky92 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   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
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

Discussions similaires

Problème de restrictions
SuperAmbi -
Pat -

5 réponses
Cette valeur ne correspond pas aux restrictions
Sulphide -
Coolmaster -

3 réponses
Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses
quel est la différence absolu et relative
chacha -
Cass -

9 réponses
additionner nombres dans cellules avec texte
kawimaki -
kawimaki -

6 réponses