Menu et Sous-programmes

**iks37** · 20/02/2011, 17h33

Salut à tous,

Je me suis fixé l'objectif de concevoir une application qui mettra en oeuvre un menu principal et des sous-programmes (procédures et fonctions).

Je souhaite que le menu/programme principal appelle un sous-programme qui va se présenter comme un écran, dans lequel l'utilisateur "va travailler".
Quand il a fini, il revient au menu principal.

Quelles sont donc la (les) routines/instructions/astuces permettant de générer un écran de sous-programme ?

**iks37** · 20/02/2011, 18h23

J'ai moi-même trouvé la réponse.

Juste quelques souvenirs des cours d'algorithmique et quelques coups d'oeil dans dans le livre Cours de Turbo Pascal 7.0 de Hugo Etievant et le tour est joué.

**krachik** · 20/02/2011, 21h22

Bonjour

Voilà le lien de la version corrigée de ce cours

**iks37** · 20/02/2011, 21h50

Comment rendre le contrôle au menu principal lorsqu'un sous-programme a terminé son "travail" ?

Voici ci-dessous l'exemple d'une procédure qui, dès qu'appelée par le menu/programme principal, demande un nombre (à l'utilisateur), calcule son carré et affiche simultanément le nombre et son carré.

Ce que je souhaite que cette procédure fasse ensuite :
revenir au menu principal lorsque l'utilisateur répond 'N' à la question posée.

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
PROCEDURE Carre;
         begin
           clrscr;
           repeat
                writeln('                  ----------------------------------');
                writeln('                    CALCULER LE CARRE D''UN NOMBRE  ');
                writeln('                  ----------------------------------');
                writeln;
                write('Entrez un nombre : ');
                readln(nombre);
                writeln;
                writeln('Resultat du calcul  : ');
                writeln('         - Nombre   : ', nombre:2:5);
                writeln('         - Carre    : ', sqr(nombre):2:5);
                writeln;
                write('Voulez-vous recommencer(O/N)? : ');
                readln(rep);
                writeln;
                clrscr;
           until (rep = 'n')or(rep = 'N');
 
         end;

**M.Dlb** · 21/02/2011, 21h41

Il faut utiliser une boucle while et enserrer le menu dans la boucle. Je te laisse découvrir la boucle dans le tutoriel

**iks37** · 21/02/2011, 23h23

Merci wormful_sickfoot.
Je vais être plus concret en présentant le programme que je suis en train de concevoir.
Je n'ai pas encore ajouté toutes les procédures ou fonctions. Je sais les écrire. Ici, je m'intéresse particulièrement à la manière de revenir au programme/menu principal après avoir activé une procédure ou une fonction.

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
PROGRAM Multifonction_Z(input, output);
USES crt;
VAR nom : string;
    rep : char;
    choix : integer;
    nombre : real;
 
PROCEDURE Carre;
         begin
           clrscr;
           repeat
                writeln('                  ----------------------------------');
                writeln('                    CALCULER LE CARRE D''UN NOMBRE  ');
                writeln('                  ----------------------------------');
                writeln;
                write('Entrez un nombre : ');
                readln(nombre);
                writeln;
                writeln('Resultat du calcul  : ');
                writeln('         - Nombre   : ', nombre:2:5);
                writeln('         - Carre    : ', sqr(nombre):2:5);
                writeln;
                write('Voulez-vous recommencer(O/N)? : ');
                readln(rep);
                writeln;
                clrscr;
           until (rep = 'n')or(rep = 'N');
      {     if ((rep = 'n')or(rep = 'N'))then Multifonction_Z;  }
         end;
 
BEGIN
clrscr;
writeln('                              ----------------------');
writeln('                              I  SUPER INTELLIGENT I ');
writeln('                              ----------------------');
writeln;
writeln('                         Je sais faire beaucoup de choses : ');
writeln;
writeln('1. Calculer le carre d''un nombre ');
writeln('2. Resoudre une equation du premier degre ');
writeln('3. Resoudre une equation du second degre ');
writeln('4. Determiner la longueur d''un mot ');
writeln('5. Calculer le miroir d''un mot');
writeln('6. Quitter');
writeln;
write('Entrez votre nom : ');
readln(nom);
writeln('Bonjour, ', nom);
writeln;
write('Entrez votre choix : ');
readln(choix);
case choix of
     1: Carre;
  {   2: Degre1(coef1, coef2);
     3: Degre2(coef1, coef2, coef3);
     4: LongMot(mot);
     5: Renv(mot); }
     6: exit;
  {   else writeln('Vous n''avez pas rentrer un bon nombre !');    }
end;
readln;
END.

**mick605** · 22/02/2011, 11h12

Salut

Il n'existe pas de facon "magique" de reprendre tout depuis le début. Déja, quand une procedure se termine, la procedure principale continue la ou elle en était. C'est donc dans la procedure principale que tu dois faire en sorte de revenir au début, et non pas dans la procedure "Carré". Et pour revenir au début, tu dois utiliser une boucle ... On en reviens donc a ce qu'a écrit wormful_sickfoot ...

N'oublies pas non plus d'utiliser la balise CODE pour mettre en forme ton code et pour le rendre plus lisible ...

Bonne chance