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
| function menu : INTEGER;
var
resu : INTEGER;
begin
repeat
writeln('entrez l''action désirée:');
writeln(' 1 pour saisie d''une chaine,');
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
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');
else
// resu = 0 donc on quitte la fonction
end;
menu:= resu;
end; |
