Suite avec limite !
Forum INFOMATH :: Enseignement de l'informatique :: Informatique - Collège & Lycée :: Exercices Pascal :: Algorithmes récurrents
Page 1 sur 1•
Suite avec limite !
par informix le Mer 5 Mar - 21:52
Voilà un exercice (Bac je crois):
Soit la suite Pi définie pour i impaire, par:
Ecrire un programme qui permet de calculer et d'afficher les termes de cette suite jusqu'ç ce que la différence entre deux termes consécutifs devienne inférieure ou égale à 0.0001.
Bon courage à tous !
Soit la suite Pi définie pour i impaire, par:
- Code:
P1 = 1
P(i) = P(i-2) x (i-1)/i x (i+1)/i
Ecrire un programme qui permet de calculer et d'afficher les termes de cette suite jusqu'ç ce que la différence entre deux termes consécutifs devienne inférieure ou égale à 0.0001.
Bon courage à tous !
informix, Ecole d'ingénieurs
Les passions font vivre l'Homme; sa sagesse le fait seulement durer.
Les passions font vivre l'Homme; sa sagesse le fait seulement durer.
informix- Membre fondamental
- Messages : 350
Inscrit le : 19 Mar 2007
Feuille de personnage
Capacité linguistique:
(1000/1000)
Re: Suite avec limite !
par informix le Mer 5 Mar - 21:52
- Code:
uses wincrt;
function Suite(DF: real):real;
var
P,diff: real;
i: integer;
begin
i := 0;
P := 1;
diff := 999;
writeln('P[',i,'] = ',P:4:4);
repeat
diff := P;
i := i+2;
P := P * (i-1)/i * (i+1)/i;
diff := diff - P;
writeln('P[',i:2,'] = ',P:4:4);
until (abs(diff) <= DF);
Suite := P;
end;
VAR
S: real;
BEGIN
Suite(0.0001);
END.
informix, Ecole d'ingénieurs
Les passions font vivre l'Homme; sa sagesse le fait seulement durer.
Les passions font vivre l'Homme; sa sagesse le fait seulement durer.
informix- Membre fondamental
- Messages : 350
Inscrit le : 19 Mar 2007
Feuille de personnage
Capacité linguistique: (1000/1000)
