Discussion :

[Gildas777]

Bonjour à tous !

Voilà, j'ai un problème : mon programme est censé ouvrir un fichier texte, le lire, éditer une liste non triée puis éditer une liste triée des éléments pairs seulement.

Problème : il compile mais il n'affiche rien, l'écran noir apparaît brièvement, ou pire il apparaît et n'affiche rien :/.

Voilà mon code :

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
 
PROGRAM exercice1 ;
 
type
tableau = array[1..150000] of integer;
 
var
F: text ;
k, m, pair : integer;
tab : tableau;
 
procedure tri(var t : tableau ; n:integer );
 
var 
temp,i,j : integer ;
         Begin
         pair:=0;
         for i:=1 to n do
         if odd (t[i])=false then
         temp:=t[i];
         t[i]:=t[pair+1];
         t[pair+1]:= temp;
         pair:= pair+1;
 
begin
  for i:=2 to n do
  begin
       if t[i]<t[i-1] then
       begin
            temp := t[i];
            j := i-1;
            while (t[j]>temp) and (j>0) do
            begin
                 t[j+1]:=t[j] ;
                 j:=j-1;
            end;
            t[j+1]:=temp ;
       end;
  end;  
End;
 
 
begin
     Assign(F,'D:\Documents\Dossier pascal\Travaux validés\serve_bulletin.txt');
     Reset(F);
     k := 1 ;
     while not eof(F) do
     begin
          ReadLn(F,tab[k]);
          writeln(tab[k]);
          k:=k+1;
     end;
     close(F);
 
     tri(tab,k-1); (* tri(tab,pair) *)
     writeln;
     for m := 1 to k-1 do
     begin
         writeln(tab[m]);
     end;
end;
end;
begin
end.

Merci pour votre aide et vos commentaires, n'hésitez pas à me MP si vous avez des questions.

Bonne journée.

Gildas.

[mick605]

Salut

L'indentation de ton code le rend assez peu lisible. Prends l'habitude de bien indenter ton code :

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
 
PROGRAM exercice1 ;
 
type
  tableau = array[1..150000] of integer;
 
var
  F: text ;
  k, m, pair : integer;
  tab : tableau;
 
procedure tri(var t : tableau ; n:integer );
var  temp,i,j : integer ;
Begin
  pair:=0;
 
  for i:=1 to n do
    if odd (t[i])=false then temp:=t[i];
 
  t[i]:=t[pair+1];
  t[pair+1]:= temp;
  pair:= pair+1;
 
  begin
    for i:=2 to n do
    begin
      if t[i]<t[i-1] then
      begin
        temp := t[i];
        j := i-1;
        while (t[j]>temp) and (j>0) do
        begin
          t[j+1]:=t[j] ;
          j:=j-1;
        end;
        t[j+1]:=temp ;
      end;
    end;  
  End;
 
  begin
    Assign(F,'D:\Documents\Dossier pascal\Travaux validés\serve_bulletin.txt');
    Reset(F);
    k := 1 ;
 
    while not eof(F) do
    begin
      ReadLn(F,tab[k]);
      writeln(tab[k]);
      k:=k+1;
    end;
 
    close(F);
    tri(tab,k-1); (* tri(tab,pair) *)
    writeln;
 
    for m := 1 to k-1 do
       writeln(tab[m]);
 
  end;
end;
 
begin
end.

Comme ca, on trouve plus facilement les erreurs. Premierement, ton programme ne fais rien. Regarde les dernieres lignes, entre le begin principal et le end, il n'y a rien. Logique donc que ton programme ne fasse rien.
Ensuite, dans ton code, tu as des begin/end parfois inutiles et assez gênant.
Enfin, commente ton code

Sinon pour ouvrir un fichier texte, utilise une TStringList !

Bonne chance

[darrylsite]

Sinon pour ouvrir un fichier texte, utilise une TStringList !

Salut,

je pense que ça dépendra du compilateur qu'il utilise
Sinon, je trouve son code vraiment illisible
Le mieux serait de mettre mettre la partie qui charge les données du fichiers dans une fonction à part.
Pour que tu puisse voir un truc sur l'ecran faudrait bien que tu te decides de dire à l'ordinateur d'afficher des données sur l'ecran sachant que le point d'entrée du programme est le premier BEGIN qui se trouve en dehors de toute foncton

Code :

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

1
2
3
4
5
6
7
8
 
programm test;
{...}
function ...
begin
end;
BEGIN {point d'entrée du programme}
END.

Pour te premettre de voir l'ecran noir, tu peux mettre un readln à la fin de ton programme

Code :

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

1
2
3
4
5
 
BEGIN {point d'entrée du programme}
{...}
 readln;
END.

[ALT]

Je me permets d'ajouter un détail : quand on a des doutes sur' le fonctionnement d'un programme, on y insère des mouchards, c'est à dire des messages ciblés.
Quelques exemples :

Code :

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

1
2
writeln('Début de la fonction machin');
writeln('Contenu de ma variable = ',v);

Ainsi, on peut suivre le déroulement du programme & voir où ça coince.
Quand c'est débogué, on retire ces mouchards.

[droggo]

Coe,

Je me permets d'ajouter un détail : quand on a des doutes sur' le fonctionnement d'un programme, on y insère des mouchards, c'est à dire des messages ciblés.
Quelques exemples :

Code :

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

1
2
writeln('Début de la fonction machin');
writeln('Contenu de ma variable = ',v);

Ainsi, on peut suivre le déroulement du programme & voir où ça coince.
Quand c'est débogué, on retire ces mouchards.

Oui, et une bonne solution est de les valider/invalider avec des directives de compilation, ce qui permet de basculer facilement de leur utilisation à un programme final.