Voila voici mon code enfin une partie juste pour vous montrer ce que je n'arrive pas à retranscrire.
en gros l'utilisateur doit entrer un chiffre entre 1 et 5 et genre s'il tape 2 ça lui demande de saisir le nombre de pièces de 2 euros et ensuite je souhaite demander à l'utilisateur de taper 1 si la commande est finie par exemple donc cela le sortirai de la 1ère boucle do while mais s'il tape autre chose, je voudrais que le programme réexécute la 2eme boucle do while et donc d'entrer de nouveau un chiffre pour refaire une saisie vous comprenez ? mais après le appuyer sur 1 si saisie finie ben il m'affiche plus rien il ne retourne pas à la 2ème boucle donc y'a surement une erreur e syntaxe ou je ne sais quoi ( ne vous en faites pas pour les tabulations sur force 3.0 cela ne joue pas ) donc voilà si quelqu'un peut m'éclairer ce serait top
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
19
20
21
22
23 do while (R.ne.1) do while (S.ne.1.and.S.ne.2.and.S.ne.3.and.S.ne.4.and.S.ne.5) write(*,28) 28 format(/,1X,'Entrez un chiffre compris entre 1 et 5 : ',$) read(*,*) S if (S.ne.1.and.S.ne.2.and.S.ne.3.and.S.ne.4.and.S.ne.5) then write(*,*)'Valeur incorrecte' end if if (S.eq.2) then write(*,29) 29 format(/,1X,'Combien de pices de 2 euros ? ',$) read(*,*) NBN write(*,35) 35 format(/,1X,'Appuyer sur 1 si saisie finie : ',$) read(*,*) R if (R.ne.1) then write(*,*)'Entrez un autre chiffre' end if end do end do
Partager