Fonction menu

**débutantepascal** · 20/05/2007, 15h20

bonjour chers programmeurs, me voilà maintenant confrontée à un tp concernant les fonction et procédures. jusqu'ici tt va bien... le hic est que la derniere question est de creer une fonction menu permettant de choisir parmi les actions(fonctions/procédures )déclarees auparavant. j'ai tenté une fonction utilisant un case of qui determinerait l'action à faire en fonction d'une entree utilisateur mais ça ne marche pas... si qqn a une idee...

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
program chaine_caracteres;
 
var
s1,s1SousChaine,s2souschaine:string;
 
procedure saisirChaine(var s:string);
begin
 repeat
  writeln('entrez une chaine de caracteres inférieure à 255');
  readln(s);
 until (length(s)<=255)and (length(s)<>0);
end;
 
procedure ecrireChaine (var s:string);
begin
 writeln(s);
end;
 
function SousChaine (var s,sSousChaine:string):boolean;
begin
 repeat
  writeln('entrez une sous chaine de ',s);
  readln(sSousChaine);
 until length(sSousChaine)<>0;
 if pos(sSouschaine, s)<>0 then
  SousChaine:=true
 else Souschaine:=false;
 writeln(souschaine);
end;
 
function nbOccurences (s,sSousChaine:string):integer;
var
 temp:integer;
begin
nbOccurences:=0;
repeat
 writeln('entrez une sous chaine de ',s,'pour en connaitre le nbr d''occurences');
 readln(sSousChaine);
until length(sSousChaine)<>0;
if pos(sSouschaine, s)<>0 then
  begin
  nbOccurences:=nbOccurences+1;
  repeat
   temp:= pos(sSouschaine, s);
   delete (s,1,temp + length (ssouschaine) );
   if pos(sSouschaine, s)<>0 then
    nbOccurences:=nbOccurences+1;
   until pos(sSouschaine, s)=0;
  end;
  writeln (nbOccurences);
  readln;
end;
 
function suppressionSousChaine(var s,sSousChaine:string):string;
var
  nbrSuppression:integer;
    begin
    repeat
     writeln('entrez la sous chaine de ',s,' que vous souhaitez supprimer');
     readln(ssouschaine);
    until length(ssouschaine)<>0;
    nbrsuppression:=0;
    repeat
     delete(s,pos(sSousChaine,s),length(ssousChaine));
     nbrSuppression:=nbrSuppression+1;
    until
       pos(sSousChaine,s)=0;
    writeln('la nouvelle chaine de caracteres est: ',s,' et ',ssousChaine,' a ete supprimé ',nbrsuppression,' fois ');
       readln;
    end;
 
 function remplaceSousChaine(var s,sSousChaine1,sSousChaine2:string):string;
  var
  i,temp,long:integer;
  prefixe,suffixe:string;
    begin
    repeat
     writeln('entrez la sous chaine de ',s,' que vous souhaitez remplacer');
     readln(ssouschaine1);
    until length(ssouschaine1)<>0;
    i:=0;
    repeat
      i:=i+1;
      temp:=pos(sSousChaine1,s);
      long:= length(ssousChaine1);
      prefixe:=copy(s,1,temp-1);
      suffixe:=copy(s,temp+long,length(s)-temp-long+1);
      delete(s,temp,long);
      repeat
        writeln('entrez la ',i,'  souschaine de remplacement');
        readln(ssouschaine2);
      until length(ssouschaine2)<>0;
      s:=prefixe+ssouschaine2+Suffixe;
    until pos(sSousChaine1,s)=0;
    remplacesouschaine:=s;
    writeln('la nouvelle chaine de caracteres est: ',remplacesouschaine);
    readln;
    end;
 
function menu:integer;
 begin
 repeat
  writeln('entrez l''action désirée:1 pour saisie d''une chaine, 2 pour écriture d''une chaine, 3 pour recherche d''une sous chaine,4 pour nombre d''occurences,5 pour suppression d''une sous chaine,et 6 pour remplacement d''une souschaine');
  readln(menu);
  until (menu=1) or (menu=2) or  (menu=3) or (menu=4) or  (menu=5) or (menu=6);
  case menu of
  1: saisirChaine(s1);
  2: ecrireChaine(s1);
  3: writeln (souschaine);
  4: writeln(nbOccurences);
  5: writeln(suppressionSousChaine);
  6: writeln (remplaceSousChaine);
  end;
 end;
 
begin
menu;
 
  readln;
end.

ps: soyez indulgents svp, je sais que je ne suis pas une lumiere en programmation, je n'ai nul besoin qu'on me le rappelle...

**débutantepascal** · 20/05/2007, 15h58

l'inspiration m'est venue... j'ai corrigé mon programme si qqn a envie de s'amuser en le lisant (avouez que vous ne pouvez pas vous empecher de dénigrer les novices comme moi!) je le met. à une prochaine peut etre!

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
program chaine_caracteres;
 
var
s1,s1SousChaine,s2souschaine:string;
 
procedure saisirChaine(var s:string);
begin
 repeat
  writeln('entrez une chaine de caracteres inférieure à 255');
  readln(s);
 until (length(s)<=255)and (length(s)<>0);
end;
 
procedure ecrireChaine (var s:string);
begin
 saisirchaine(s);
 writeln('la chaine de caracteres est: ',s);
end;
 
function SousChaine (var s,sSousChaine:string):boolean;
begin
 repeat
  ecrireChaine (s);
  writeln('entrez une sous chaine de ',s);
  readln(sSousChaine);
 until length(sSousChaine)<>0;
 if pos(sSouschaine, s)<>0 then
  SousChaine:=true
 else Souschaine:=false;
 end;
 
function nbOccurences (s,sSousChaine:string):integer;
var
 temp:integer;
begin
nbOccurences:=0;
saisirChaine(s);
repeat
 writeln('entrez une sous chaine de ',s,'pour en connaitre le nbr d''occurences');
 readln(sSousChaine);
until length(sSousChaine)<>0;
if pos(sSouschaine, s)<>0 then
  begin
  nbOccurences:=nbOccurences+1;
  repeat
   temp:= pos(sSouschaine, s);
   delete (s,1,temp + length (ssouschaine) );
   if pos(sSouschaine, s)<>0 then
    nbOccurences:=nbOccurences+1;
   until pos(sSouschaine, s)=0;
  end;
  writeln (nbOccurences);
  readln;
end;
 
function suppressionSousChaine(var s,sSousChaine:string):string;
var
  nbrSuppression:integer;
    begin
    saisirchaine(s);
    repeat
     writeln('entrez la sous chaine de ',s,' que vous souhaitez supprimer');
     readln(ssouschaine);
    until (length(ssouschaine)<>0) and (pos(ssouschaine,s)<>0);
    nbrsuppression:=0;
    repeat
     delete(s,pos(sSousChaine,s),length(ssousChaine));
     nbrSuppression:=nbrSuppression+1;
    until
       pos(sSousChaine,s)=0;
    suppressionSousChaine:=s;
    writeln(ssousChaine,' a ete supprimé ',nbrsuppression,' fois ');
       readln;
    end;
 
 function remplaceSousChaine(var s,sSousChaine1,sSousChaine2:string):string;
  var
  i,temp,long:integer;
  prefixe,suffixe:string;
    begin
    saisirchaine(s);
    repeat
     writeln('entrez la sous chaine de ',s,' que vous souhaitez remplacer');
     readln(ssouschaine1);
    until (length(ssouschaine1)<>0) and (pos(sSousChaine1,s)<>0);
    i:=0;
    repeat
      i:=i+1;
      temp:=pos(sSousChaine1,s);
      long:= length(ssousChaine1);
      prefixe:=copy(s,1,temp-1);
      suffixe:=copy(s,temp+long,length(s)-temp-long+1);
      delete(s,temp,long);
      repeat
        writeln('entrez la ',i,'  souschaine de remplacement');
        readln(ssouschaine2);
      until length(ssouschaine2)<>0;
      s:=prefixe+ssouschaine2+Suffixe;
    until pos(sSousChaine1,s)=0;
    remplacesouschaine:=s;
    readln;
    end;
 
function menu:integer;
 begin
 repeat
  writeln('entrez l''action désirée:1 pour saisie d''une chaine, 2 pour écriture d''une chaine, 3 pour recherche d''une sous chaine,4 pour nombre d''occurences,5 pour suppression d''une sous chaine,et 6 pour remplacement d''une souschaine,0 pour sortir');
  readln(menu);
  until (menu=0)or(menu=1) or (menu=2) or  (menu=3) or (menu=4) or  (menu=5) or (menu=6);
  case menu of
  0: exit;
  1: saisirChaine(s1);
  2: ecrireChaine(s1);
  3: writeln (souschaine(S1,s1souschaine));
  4: writeln(nbOccurences(s1,s1SousChaine));
  5: writeln(suppressionSousChaine(s1,s1SousChaine),' est la nouvelle chaine de caracteres');
  6: writeln(remplaceSousChaine(s1,s1SousChaine,s2SousChaine),' est la nouvelle chaine de caracteres');
  end;
 end;
 
begin
repeat
menu;
until (menu=0) ;
 
  readln;
end.

**krachik** · 20/05/2007, 16h23

bonjour et bienvenue

Envoyé par débutantepascal

avouez que vous ne pouvez pas vous empecher de dénigrer les novices comme moi!

qui à parler de denigrer une novice?(c'est toi

)
ensuite pour ton code je trouve super pour une novice de bien indenté ton code c'est cool

juste des petits trus à ameliorer comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
repeat
      ..................................
until (menu=1) or (menu=2) or  (menu=3) or (menu=4) or  (menu=5) or (menu=6);
  case menu of

qui pourrait etre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
  repeat
           .........................
  until menu in[1..6];
  case menu of

bravo et bonne continuation

@+

**débutantepascal** · 20/05/2007, 18h26

merci beaucoup pour le raccourci!!! c'est plus élégant!
à une prochaine fois

**Ultima** · 21/05/2007, 12h38

Bonjour,
J’ai un peux relu ton code, et il me semble qu’il y a quelque élément à corriger.

je ne sais pas quel compilateur tu utilises mais, en tout cas, sous FreePascal, ton code est impossible à compiler.

Quand une fonction ne retourne pas un résultat immédiat, il est préférable de créer une variable intermédiaire.
Quand tu écris dans ta fonction menu readln(menu), until menu = ... ou case menu of , tu fais en fait un appel récursif à ta fonction, or ce n’est pas ce pas ce que tu veux faire.

Dans la fonction menu, si l’utilisateur choisit 0, alors tu fais, exit ; c’est inutile piusque de toute façon ta structure de contrôle case est le dernier élément de ta fonction (donc de toute façon tu quittes la fonction).
De plus, quand tu veux quitter prématurément une fonction en utilisant exit, il est préférable de retourner une valeur au préalable.

Dans le corps du programme, tu fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
repeat
  menu ;
until menu = 0 ;

il est préférable d’enregistrer le choix de l’utilisateur.
comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
var choix : INTEGER;
begin
repeat
  choix:= menu;
until (choix=0) ;

Mais si tu ne veux pas réutiliser le choix de l’utilisateur, ou que tu veux faire une économie de mémoire, tu peux faire une boucle vide, comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
repeat
until menu = 0;

+

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if pos(sSouschaine, s)<>0 then
  SousChaine:=TRUE
else Souschaine:=FALSE;

ceci se résume à écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SousChaine:= pos(sSouschaine, s)<>0;

cc:

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
program chaine_caracteres;
 
var
  s1,s1SousChaine,s2souschaine:STRING;
 
procedure saisirChaine(var s:STRING);
begin
  repeat
    writeln('entrez une chaine de caracteres inférieure à 255');
    readln(s);
  until (length(s)<=255) and (length(s)<>0);
end;
 
procedure ecrireChaine (var s:STRING);
begin
  saisirchaine(s);
  writeln('la chaine de caracteres est: ',s);
end;
 
function SousChaine (var s,sSousChaine:STRING):boolean;
begin
  repeat
    ecrireChaine (s);
    writeln('entrez une sous chaine de ',s);
    readln(sSousChaine);
  until length(sSousChaine)<>0;
{  if pos(sSouschaine, s)<>0 then
    SousChaine:=TRUE
  else Souschaine:=FALSE; }
  SousChaine:= pos(sSouschaine, s)<>0;
end;
 
function nbOccurences (s,sSousChaine:STRING):INTEGER;
var
  resu ,
  temp : INTEGER;
begin
  resu:= 0;
  saisirChaine(s);
  repeat
    writeln('entrez une sous chaine de ',s,'pour en connaitre le nbr d''occurences');
    readln(sSousChaine);
  until length(sSousChaine)<>0;
  if pos(sSouschaine, s)<>0 then
  begin
    resu:= resu+1;
    repeat
      temp:= pos(sSouschaine, s);
      delete (s,1,temp + length (ssouschaine) );
      if pos(sSouschaine, s)<>0 then
      resu:= resu+1;
    until pos(sSouschaine, s)=0;
  end;
  nbOccurences:= resu;
end;
 
function suppressionSousChaine(var s,sSousChaine:STRING):STRING;
var
  nbrSuppression:INTEGER;
begin
  saisirchaine(s);
  repeat
    writeln('entrez la sous chaine de ',s,' que vous souhaitez supprimer');
    readln(ssouschaine);
  until (length(ssouschaine)<>0) and (pos(ssouschaine,s)<>0);
  nbrsuppression:=0;
  repeat
    delete(s,pos(sSousChaine,s),length(ssousChaine));
    nbrSuppression:=nbrSuppression+1;
  until
  pos(sSousChaine,s)=0;
  suppressionSousChaine:=s;
  writeln(ssousChaine,' a ete supprimé ',nbrsuppression,' fois ');
end;
 
function remplaceSousChaine(var s,sSousChaine1,sSousChaine2:STRING):STRING;
var
  i,temp,long:INTEGER;
  prefixe,suffixe:STRING;
begin
  saisirchaine(s);
  repeat
   writeln('entrez la sous chaine de ',s,' que vous souhaitez remplacer');
   readln(ssouschaine1);
  until (length(ssouschaine1)<>0) and (pos(sSousChaine1,s)<>0);
  i:=0;
  repeat
    i:=i+1;
    temp:=pos(sSousChaine1,s);
    long:= length(ssousChaine1);
    prefixe:=copy(s,1,temp-1);
    suffixe:=copy(s,temp+long,length(s)-temp-long+1);
    delete(s,temp,long);
    repeat
      writeln('entrez la ',i,'  souschaine de remplacement');
      readln(ssouschaine2);
    until length(ssouschaine2)<>0;
    s:=prefixe+ssouschaine2+Suffixe;
  until pos(sSousChaine1,s)= 0;
  remplacesouschaine:=s;
  readln;
end;
 
function menu : INTEGER;
var
  resu : INTEGER;
begin
  repeat
    writeln('entrez l''action désirée:');                // retour à la ligne pour
    writeln('  1 pour saisie d''une chaine,');           // une meilleure lisibilité
    writeln('  2 pour écriture d''une chaine,');
    writeln('  3 pour recherche d''une sous chaine,');
    writeln('  4 pour nombre d''occurences,');
    writeln('  5 pour suppression d''une sous chaine,');
    writeln('  6 pour remplacement d''une souschaine,');
    writeln('  0 pour sortir');
  readln(resu);
  until resu in [0..6];
  case resu of
 { 0: begin                  // de toute façon on quitte la fonction
      menu:= resu;
      exit;
     end; }
  1: saisirChaine(s1);
  2: ecrireChaine(s1);
  3: writeln (souschaine(S1,s1souschaine));
  4: writeln(nbOccurences(s1,s1SousChaine));
  5: writeln(suppressionSousChaine(s1,s1SousChaine),' est la nouvelle chaine de caracteres');
  6: writeln(remplaceSousChaine(s1,s1SousChaine,s2SousChaine),' est la nouvelle chaine de caracteres');
  end;
  menu:= resu;
 end;
 
var choix : INTEGER;
begin
 
repeat
  choix:= menu; // On enregistre le choix de l'utilateur.
until (choix=0);
 
{ Autre possibilité : (On n'enregistre pas le choix)
repeat
until menu = 0;
}
writeln('A bientot');
readln;
end.

Bon courage pour la continuation.

**débutantepascal** · 22/05/2007, 17h07

merci beaucoup pour ces précisions!!!! rien n'est jamais parfait, j'aime apprendre à améliorer.

Fonction menu

Pascal

Discussions similaires

Partager

Partager