Retourner au Programme/Menu Principal

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:

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;

Code:

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.

1 pièce(s) jointe(s)

Exemple d'illustration

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.

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.

C'est ok !

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

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