Discussion :

[breizh297]

Bonjour,
voilà j'ai un problème avec ce code : De plus, cela n'a rien à voir avec les tableaux mais genre quand je met ce code

Code :

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

1
2
3
4
5
6
7
8
do while (N.lt.0.and.N.gt.P.and.IOS.ne.-1)
       write(*,14)
14     format(/,1X,'Appuyer entre 0 et 9 pour saisir la commande : ',$)
       read(*,*,iostat=IOS) N
       if (N.lt.0.and.N.gt.P.and.IOS.ne.-1) then
       write(*,*)'Chiffre incorrecte.'
       end if
       end do

Mon programme s'exécute normalement jusqu'à cette boucle où rien ne s'affiche... (P=9 ici je l'ai paramétré avant)
Je veux faire en sorte que tant que le chiffre de l'utilisateur est inférieur à 0 ou supérieur à 9, le programme continue de lui redemander de saisir un nouveau chiffre. Je pense l'avoir bien traduit mais je ne ocmprend pas pourquoi il ne m'affiche rien. Merci d'avance

[bobbyboy]

Bonjour,

Les variables IOS et N sont elles initialisées ?

[breizh297]

ouais ios dans integer et N aussi

[Grame]

ouais ios dans integer et N aussi

oui mais non

Une valeur est affectée à IOS à l'intérieur de la boucle dans l'instruction READ.
Donc, on ne connait pas la valeur de IOS AVANT d'entrer dans la boucle.
On ne peut donc pas faire un test dessus.

Je veux faire en sorte que tant que le chiffre de l'utilisateur est inférieur à 0 ou supérieur à 9,

J'écrirais çà plus simplement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 do
     write(*,14, advance='no')
14  format(/,1X,'Appuyer entre 0 et 9 pour saisir la commande : ')
      read(*,*) n
      if (n .ge. 1 .and. n .le. 9) then
        exit
      else
        write(*,*)'Chiffre incorrecte.'
      end if
end do

Le $ que tu écris est, je suppose, pour ne pas avoir de passage à la ligne.
C'est une extension à la norme Fortran 77/90/95 proposée par certains
éditeurs. L'écriture

Code :

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

1
2
 
advance='no'

fait partie de la norme Fortran >= 90

[breizh297]

C'est une boule quoi que tu utilises ? do seulement ? parce que quand je lance le programme maintenant, peut importe les chiffres que j'entre il me met valeur incorrecte à chaque fois ... IL faudrait plutôt tant que la valeur entrée n'est pas bonne donc si elle est inférieure à 0 ou supérieure à 9 le programme redemande une saisie et sinon on avance dans le programme d'où la boucle do while. Mais cela doit être dans les conditions qu'il y a un blème enfin je ne sais pas. Le IOS.ne.-1 c'est juste pour dire si on rentre une lettre, c'est faux et si on appuie sur f10 cela permet de quitter le programme.

[Grame]

C'est une boule quoi que tu utilises ?

Classiquement, on trouve 2 sortes de boucles :
- le test au début, boucle while ...
- le test à la fin, boucle ... until

Là c'est une boucle infinie. Le test est à l'intérieur de la boucle et quand il est validé, on sort de la boucle par exit.

Ce type de boucle fait hurler à l'hérésie certains collègues, mais je la trouve plus simple à comprendre et à maintenir que des boucles avec des tests en entrée ou en sortie très/trop complexes.

Sous linux avec gfortran, cette boucle fait exactement ce que tu veux.

Tu es sous quel OS avec quel compilateur ?

[doguette]

Bonjour,
Je pense que ton problème vient de ta traduction du problème. Tu écris

Je veux faire en sorte que tant que le chiffre de l'utilisateur est inférieur à 0 ou supérieur à 9

mais tu écris "tant que le chiffre de l'utilisateur est inférieur à 0 ET supérieur à 9", ce qui est impossible. Ne devrais-tu pas avoir un "OR" au lieu du "AND" dans ta condition d'entrée dans la boucle?

[Grame]

mais tu écris "tant que le chiffre de l'utilisateur est inférieur à 0 ET supérieur à 9", ce qui est impossible. Ne devrais-tu pas avoir un "OR" au lieu du "AND" dans ta condition d'entrée dans la boucle?

Tu as raison, cà m'avait échappé. mais il faut là aussi initialiser N sinon on n'est pas sûr d'entrer dans la boucle.