Discussion :

[feynman]

Bonjour,
je demande s il y a des boucle de type DO-ENDDO mais infinis, car j ai a calcule' une somme 1/n^2 et cette somme doit s arreter lorsque son terme soit plus petit que epsilon*1/n^2, je ne veux pas utiliser la boucle do-while
merci pour votre aide

[feynman]

J'ai essayé de faire mon programme et je n'ai pas eu d'erreurs, mais je ne suis pas totalement convaincu des résultats, pouvez-vous m'aider et de me dire si c'est correct ou pas ?

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
program calcul
implicit none
integer n
real somme
real, parameter :: epsilon = 10000000
n=0
 somme=0
 do
   n=n+1
   somme=somme+1/n**2
   if(1/n**2 .LT. epsilon*somme) then
     exit
   end if
  end do
 
  print*,"Nombre d iteration :",n
  print*,"Somme=",somme
end program Calcul

PS: le programme est de calculer la somme sur n de 1/n^2 jusqu'à ce que 1/n^2< epsilon*somme
Merci pour votre aide

[genteur slayer]

en fait c bon ça!

juste j'aurais omis de mettre le "then" et le "end if"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
do
...
<boucle>
...
if (<condition>) EXIT
end do

est une structure tout à fait correcte....

le gros soucis est de ne pas avoir de boucle infinie.... genre rajouter après le "if (<condition>) EXIT":
if n>100000 exit

tu a le droit de mettre plusieur conditions d'arrêts, c'est bien d'en mettre une de sécurité pour éviter de faire tourné le programme en bourrique!!!