Discussion :

[iks37]

Bonjour,

Je suis en train de concevoir un programme permettant d'effectuer plusieurs activités accessibles par l'intermédiaires d'un numéro.
Alors le programme présente un menu.

Chaque activité est représentée par une procédure. Comment retourner au menu principal lorsque l'utilisateur ne souhaite plus continuer ?

En effet, lorsque l'utilisateur tape 'N' ou 'n', en réponse à la question du bas, le programme se ferme au lieu de ramener l'utilisateur au programme/menu principal.

Voici un exemple de mes procédures :

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
PROCEDURE exemple();
          var reponse : char;
              autres_variables : leurs_types;
          begin
               repeat
                 clrscr;
                 instruction1;
                 instruction2;
                 .
                 .
                 .
                 instruction_n;
                 write(' Voulez-vous ... (O/N) ? : ');
                 readln(reponse);
               until(reponse = 'n')or(reponse = 'N');
          end;

[Paul TOTH]

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
28
29
30
31
32
33
34
35
36
37
38
 
program exemple;
 
procedure option1;
begin
  repeat  
    writeln('choisir 1, 2 ou n pour quitter');
    read(reponse);
    case reponse of
      '1': ...;
      '2': ...;
    end;
  until reponse = 'n';
end;
 
procedure option2;
begin
  repeat  
    writeln('choisir 1, 2, 3 ou n pour quitter');
    read(reponse);
    case reponse of
      '1': ...;
      '2': ...;
      '3': ...;
    end;
  until reponse = 'n';
end;
 
begin
  repeat  
    writeln('choisir 1, 2 ou n pour quitter');
    read(reponse);
    case reponse of
      '1': option1;
      '2': option2;
    end;
  until reponse = 'n';
end.

[iks37]

Bonjour,

Il me semble que c'est ce que j'ai fait.
Je joins le programme source.
Il n'y a qu'à l'exécuter pour que nous nous comprenions. Il n'y a que les options 1 et 10 du menu principal qui fonctionne pour l'instant car je n'ai pas encore écrit les procédures des options 2 à 9.
Cela ne devrait pas gêner.

[M.Dlb]

La demande du choix utilisateur pour la fonction mathématique doit être dans une boucle, comme l'a bien mentionné Paul Toth.

Comme il n'y a pas de boucle qui demande quelle fonction appeler, ton programme fait le premier choix puis sort normalement.

[iks37]

Avec Developpez.com, je serai de moins en moins ignorant.

Merci à Paul TOTH, M.Dlb et à tous !