Discussion :

[Ombre4]

Bonjour

Je débute dans le domaine du Pascal, et après avoir achevé un tutoriel, voilà que l'envie m'a pris d’élaborer un simple petit programme de choix.
Il s'agit d'indiquer un chiffre entre 1 et 4, moyennant quoi une réponse prédéfinie apparaît. Jusque là, pas de problème. J'ai utilisé une structure de CASE OF.

Mais, la dernière partie me pose un problème, la partie en ELSE. En effet, j'aimerais non seulement afficher un message d'erreur, mais surtout pouvoir provoquer un retour au début du programme pour pouvoir rééditer la variable.
Or, si le message ne pose pas de problème, mes diverses tentatives de boucles échouent toutes. J'ignore où est mon erreur, mais je soupçonne mon ELSE de refuser de conditionner l'utilisation du programme dans lequel il est lui même inclus. Malgré mes recherches sur toutes les ressources que j'ai pu trouver (google est mon ami), je n'arrive pas à trouver de fonction qui permettrait de contourner ce problème en provoquant un retour au début du programme (en dehors du GOTO, qui semble plus que vivement critiqué).

En désespoir de cause (hum, 2H du matin, c'est le cas de le dire), j'aimerais avoir vos conseils. Ci dessous, la base de programme sur laquelle se sont basés tous mes essais de boucle, avec en rouge la partie concerné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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
program Hangar(output);
 
 
var choix_avion : integer;
 
begin
 
writeln('=== Hangar ===');
 
writeln;
writeln;
 
writeln('1. Spad XIII');
 
writeln;
 
writeln('2. Nieuport 28');
 
writeln;
 
writeln('3. Albatros D.V');
 
writeln;
writeln('4. Fokker D.VII');
 
writeln;
writeln;
 
readln;
 
 
readln (choix_avion);
 
case choix_avion of
     1 : writeln('Votre appareil sera un Spad XIII.')  ;
     2 : writeln('Votre appareil sera un Nieuport 28.') ;
     3 : writeln('Votre appareil sera un Albatros D.V.');
     4 : writeln('Votre appareil sera un Fokker D.VII.');
     else writeln('Votre formulaire est incompr‚hensible, merci d''en remplir un nouveau.');
 
End;
readln;
end.

Merci d'avance

[Paul TOTH]

Bonjour,

1) le code doit être entre balises CODE et non QUOTE

2) le GOTO fonctionne bien qu'il soit peu apprécié du fait de l'effet spaghetti qu'il donne aux programmes.

3) les boucles à conditions sont "WHILE Cond DO Code;" (Tant que) et "REPEAT Code UNTIL Cond;" (Jusqu'à ce que)

la différence entre les deux étant que la condition n'est testée qu'après la première execution du Code dans un REPEAT

ce qui donne, par exemple:

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
 
var
  Done: Boolean;
begin
  ...
  repeat
    ReadLn(choix_avion);
    Done := True;
    case choix_avion of
      1 : writeln('Votre appareil sera un Spad XIII.') ;
      2 : writeln('Votre appareil sera un Nieuport 28.') ;
      3 : writeln('Votre appareil sera un Albatros D.V.');
      4 : writeln('Votre appareil sera un Fokker D.VII.');
      else
       writeln('Votre formulaire est incompr‚hensible, merci d''en remplir un nouveau.');
       Done := False;
    end;
  until Done;

[Ombre4]

Merci beaucoup !
Et désolé pour l'erreur de code.

Il fallait donc placer la boucle conditionnelle à l'extérieur du code, et non tenter de l'implanter sur la question même qui l'exigeait... Joli travail en matière de prise de recul que la programmation .

Merci encore d'avoir pris le temps de m'expliquer

[Paul TOTH]

je pense, sans l'avoir testé que ceci fonctionne également

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
 
label
  encore;
begin
  ...
  encore:
  ReadLn(choix_avion);
  case choix_avion of
    1 : writeln('Votre appareil sera un Spad XIII.') ;
    2 : writeln('Votre appareil sera un Nieuport 28.') ;
    3 : writeln('Votre appareil sera un Albatros D.V.');
    4 : writeln('Votre appareil sera un Fokker D.VII.');
    else
     writeln('Votre formulaire est incompr‚hensible, merci d''en remplir un nouveau.');
     goto encore;
  end;
end;

dans ce cas ce n'est pas très compliqué, mais imagine un label différent sur chaque cas du case et là ça devient spaghetti, il devient difficile de suivre la logique du programme.

[droggo]

Joa,

Pour parodier une célèbre expression :

Quand je vois un GoTo, je sors mon révolver.