Discussion :

[dyala]

salut à tous
j 'ai un fichier d'enregistrement ou chaque enregistrement contient une phrase de type chaine et ta= taille de la phrase
je doit faire un menu qui contient les chioxs suivants:

menu
1/création
2/afficher la phrase la plus longue
3/Tri du fichier par taille
4/nombre de phrases palindromes
5/afficher le fichier
6/quitter
choix:
le probléme j'utilise des procedures pour effectuer le choix mais comment!!!!!
et comment je peut faire une fontion qui affiche le fichier et tri le fichier par taille.
merci de votre aide.

[krachik]

bonjour

le probléme j'utilise des procedures pour effectuer le choix mais comment!!!!!

tu peux ecrire une procedure (de preference fonction) qui te renvoi le choix effectuer et apres tu peux appeler la procodure concerné suivant le choix
ex :

Code :

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

function choix :byte

qui te retourne le choix effecuter
apres tu fais un case of pour effectuer l'action demandée

comment je peut faire une fontion qui affiche le fichier et tri le fichier par taille.
merci de votre aide.

tu veux dire quoi par trier le fichier par taille?
tu peux le faire dans une fonction mais ça serait mieux que tu le fasse dans plusieurs procedures/fonctions et il faut que tu penses deja à l'algo de trie du fichier que tu vas utiliser et ensuite une procedure qui t'affiche le fichier
j'espere t'avoir eclairé un peu
@+

[Ultima]

Bonjour,
Voici un exemple de fonction menu, que j’ai pris ici.http://www.developpez.net/forums/sho...d.php?t=340127

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
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;

Pour le tri, choisis un algo (bulle, insertion, fusion, ...) et on vera ce qu'on peut faire.