Voila voici mon code enfin une partie juste pour vous montrer ce que je n'arrive pas à retranscrire.
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 piŠces 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
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