Discussion :

[dyala]

salut à tous
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 la procedure de tri et l'affichage ne marche pas
merci d'avance.

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
 
program fichier ;
uses wincrt;
type chaine =record
     ph :string;
     ta :integer;
      end;
 
 
 
     var f: file of chaine;
      c:chaine;
 
      paly:boolean;
   ta,n, i, tamax,phrase:integer;
     phrasemax:string;
 
     procedure creation(n:integer);
     begin
     tamax:=0;
 
     assign(f,'nom');
     rewrite(f);
     for i:= 1 to n do
     begin
     writeln('inserer la phrase');
     readln(c.ph);
     c.ta:= length(c.ph);
     write(f,c);
     end;
     end;
      procedure plus_longue;
      begin
     reset(f);
     while not eof (f) do
         begin
           read(f,c);
           if c.ta>tamax then
                begin
                     tamax:= c.ta;
                     phrasemax:= c.ph;
                end;
         end;
     write ('la phrase la plus longue est',phrasemax);
     end;
     procedure palyndrome( paly:boolean);
     begin
     reset(f);
     readln(c.ph);
     readln(c.ta);
     paly  := true;
     i:=1;
 
     while i<=ta div 2  do
     begin
     if paly= true then
     if c.ph[i]=c.ph[ta-i+1] then
     i:=i+1;
 
     end;
 
 
     procedure tri(t:tab); 
    var t:array[1..20] of c;
      nb :integer;
 
      begin
      nb:=1;
      reset(f);
      while not eof(f) do
      t[nb]:=(f,c);
 
 
    nb :=nb +1;
    end;
    for i:= 1 to nb-1 do
    for j:= i+1 to nb do
    begin
    if t[i].ta <t[j].ta then
    begin
    ta :=t[i];
    t[i]:=t[j];
    t[j]:=ta;
    end;
    procedure affichage ;
    begin
    assign(f);
    reset(f);
    while not eof(f) do
    begin
    read (f,ta);
    write(c.phrase);
    write(c.ta);
    end;
    close(f);
    end;
    BEGIN
 
ch:=0;
 
while ch<>8 do
   begin
 
   clrscr;
   for i:=1 to 30 do begin gotoxy(i,1);write('*');end;
   for i:=1 to 18 do begin gotoxy(1,i);write('*');gotoxy(30,i);write('*');end;
   for i:=1 to 30 do begin gotoxy(i,18);write('*');end;
     gotoxy(12,3);writeln('MENU:');
     gotoxy(5,5);writeln('1/ creation de fichier');
     gotoxy(5,6);writeln('2/ la phrase la plus long');
     gotoxy(5,7);writeln('3/ le nombre de mots palyndrome');
     gotoxy(5,8);writeln('4/ tri de fichier par taille');
     gotoxy(5,9);writeln('5/ affichage');
     gotoxy(5,10);writeln('6/ quitter');
 
     writeln;
     gotoxy(10,15);write('CHOIX :  ');
          readln(ch);
     writeln;
      gotoxy(1,20);
        case ch of
        1:creation(n);
        2:plus _long;
        3:palyndrome(paly);
        4:tri(t);
        5:affichage;
        6:quitter;
        end;
    writeln;
  end;
 
readln;
END.

[Stormy_Ordos]

Bonjour,

déjà, visiblement, tu ne connais pas l'indentation (c'est une vraie torture de lire ce prog). Ensuite, merci de préciser ce qui ne marche pas. Tu ne peux pas compiler? le programme produit un résultat que tu n'avais pas prévu?

[ALT]

Ta procédure fonctionne peut-être (faudrait voir) mais tu ne peux pas le savoir puisque les modifications faites à ton tableau restent dans la proc. (passage du tableau par valeur).

Si tu veux récupérer ton tableau trié, il faut que tu passes ton tableau par variable :

Code :

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

procedure tri(var t:tab);

Sans compter que ça m'a l'air bien compliqué pour un simple tri...

D'autre part, ton code est très mal indenté, ce qui le rend difficile à suivre.
Enfin, entre les procédures n'hésite pas à mettre des lignes blanches, pour bien les séparer.
Ça aussi, ça améliore la clarté du code.
Tout ça aide aussi au débogage : on repère plus facilement une erreur dans un code lisible.

Bon courage.

[droggo]

Hio,

Plusieurs remarques :

- ton code ne compile pas, et forcément ne peut pas marcher.

- En le mettant en forme correctement, tu verras d'où viennent certaines erreurs.
Il y a entre autres des blocs begin..end ouverts et pas fermés, ce qui met le bor*el.

D'autre part, pourquoi ce type ?

Code :

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

1
2
3
4
5
type
  chaine = record
    ph: string;
    ta : Integer;
  end;

Car soit tu utilises des string du Pascal standard, c'est à dire des chaines qui font au maximum 255 caractères, et en occupent 256, car l'indice 0 contient la longueur effective, et tu n'as pas besoin du champ ta,
soit tes strings sont des AnsiString ou équivalent, et elles aussi connaissent leur longueur effective, mais ton fichier de type string ne fonctionnera pas, car on ne stocke pas ainsi des AnsiString.

Dans la procédure creation, tu ouvres le fichier en écriture, bien, mais tu ne le refermes pas ==> comportement indéfini.
D'ailleurs, apparemment tu oublies régulièrement de fermer le fichier.

Voilà ce que j'ai repéré en jetant un coup d'oeil très rapide.

[Stormy_Ordos]

wow, trois réponses en même temps! Voilà ce qui s'appelle un sujet populaire