[pascal] valeur approchée de pi

Fermé

ghassen - 17 janv. 2008 à 21:11
rym - 26 févr. 2012 à 21:41

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:

[pascal] valeur approchée de pi
Turbo pascal download - Télécharger - Édition & Programmation
My pascal - Télécharger - Édition & Programmation
Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
Feuilles diddl valeur ✓ - Forum Graphisme
Si valeur comprise entre x et y alors ✓ - Forum Excel

3 réponses

Réponse 1 / 3

belhi.A
6 avril 2010 à 15:47

bonjour
ok

begin
x:=1;
i:=3;
repeat
xpre:=x;
x:=xpre-1/i;
i:=i+1;
until(4*(x-xpre)<eps);
end;

big.steff<3 frero
8 avril 2010 à 00:20

l'icrementation de i sera i:= i+2 pas ;
et until abs (x-xpres )<eps;

Réponse 2 / 3

Choky92 Messages postés 6 Date d'inscription mercredi 9 janvier 2008 Statut Membre Dernière intervention 18 janvier 2008 1
18 janv. 2008 à 17:59

Bonjour,

Je crois qu'il s'agit d'une suite: pi=4* somme (-1)

belhi.A
6 avril 2010 à 15:50

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

hani
20 févr. 2011 à 12:39

quand est ce qu'on fait s:=0 et s:=1 dans le programme pascal

Réponse 3 / 3

Choky92 Messages postés 6 Date d'inscription mercredi 9 janvier 2008 Statut Membre Dernière intervention 18 janvier 2008 1
18 janv. 2008 à 18:11

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...

rym
26 févr. 2012 à 21:41

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.

Discussions similaires

Problème de restrictions

Formule Excel : "SI" une cellule contient un mot, alors ?

Rénitialiser Raspberry pi

Excel VBA : Récupérer la valeur d'une cellule

Combien vaut la pièce de 2 euros avec un bonhomme ?

Discussions similaires

Newsletters