Discussion :

[breizh297]

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

[doguette]

Bonjour,
Sans entrer dans les détails, il y a une première chose qui m'a sauté aux yeux. Il manque un endif dans ton code. Je ne comprends pas comment tu peux arriver à compiler ton code...

Je ne comprends pas trop le but de ta dernière condition sur R. Tu demandes à l'utilisateur de saisir un nouveau nombre qui n'est enregistré nulle part. Enfin, s'il s'agit de la possibilité de corriger une erreur de saisie ou autre, il me semble que cela doit aussi relever d'un do while (resaisie rant que la saisie n'est pas validée par R=1).

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
24
25
26
27
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
              do while(R.ne.1) 
                  write(*,*)'Entrez un autre chiffre'
                  read(*,*) NB
                  write(*,35)
                  read(*,*) R
              enddo
        end if
 
    end do 
end do