Problème avec do while

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:

---

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

Bonjour,

Les variables IOS et N sont elles initialisées ?

ouais ios dans integer et N aussi

Citation:

---

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.

Citation:

---

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:

---

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:

---

1 2	advance='no'

---

fait partie de la norme Fortran >= 90

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.

Citation:

---

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 ?

je suis avec force 3.0 et sous xp. Je crois que mon prof d'info nous as interdit d'utiliser des touches comme exit justement lol D'où le IOS en fait ...

Citation:

---

mon prof d'info nous as interdit d'utiliser des touches comme exit justement

---

[Moment philosophique du vendredi soir]
Quand j'étais étudiant, il y bien longtemps, je me demandais si certains profs avaient déjà écrit un code réel, qui sert à/produit quelque chose, et pas juste une abstraction de code. Je constate avec tristesse que la question se pose toujours.
[/Moment]

Tu dois pouvoir t'en sortir en initialisant IOS à une valeur différente de -1 (typiquement 0) pour pouvoir entrer dans la boucle.

Code:

---

1 2 3 4

IOS = 0 do while (N.lt.0.and.N.gt.P.and.IOS.ne.-1) . . .

---

Ca ne fonctionne toujours pas et je ne comprend pas ... Comment faire pour que l'utilisateur puisse choisir une valeur entre tel ou tel valeur arf

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

Citation:

---

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?

Citation:

---

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.