Discussion :

[Gildas777]

Bonjour tout le monde,

Voilà, je butte sur un problème matriciel : je voudrais que les H soient correctement multipliés pour obtenir une matrice H2. (H*H), les entiers i et j et K sont les variables qui vont servir à effectuer l'opération.

Je devrais avoir comme solution idéale, 5 lignes soigneusement affichées :

true true true false false
false false true false false
false false false true false
false false false false true
false false false false false

N'hésitez pas à me demander des précisions si je n'ai pas été claire, voici 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
program graphe_clement_gildas;
 
const n=5 ;
var
H,H2 : array[1..n, 1..n] of boolean ;
i,j,k : integer;
 
 
begin
 
H[1,1]:= true;
H[1,2]:= true;
H[1,3]:= true;
H[2,3]:= true;
H[3,4]:= true;
H[4,5]:= true;
 
for i := 1 to n do
begin
    for j := 1 to n do
    begin
         for k:= 1 to n do
         begin
       H2[i,j]:=H[i,k]and H[k,j] or H2[i,j];
         end;
         write(H2[i,j],' ');
    end;
    readln  ;
end;
 
end.

[darrylsite]

Si ton problème concerne uniquement l'affichage, je pense que tu peux remplacer le readln que tu as mis dans la boucle par writeln pour avoir le résultat voulu.

[Gildas777]

Rebonjour a tous

Phénomène bizarre : mon code a fonctionné 2 fois puis d'un seul coup il a buggé et pas moyen de lui faire passer l'étape: 'Entre le nombre de nœuds'.
Je ne vois même pas ce que j'ai pu modifier, mon programme compila correctement 2 minutes puis *pouf*.

Voilà le code en question :

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
 
 
program graphe_clement_gildas;
 
const n=100 ;
var
H,H2 : array[1..n, 1..n] of boolean ;
i,j,k,nb,a,b,c: integer;
F : text ;
 
begin
writeln('Entre le nombre de noeuds');
readln(nb);
Assign (F,'C:\serve_bulletin0.txt');
Reset(F);
 
while not eof(F) do
begin
readln(F,i,j);
H[i,j]:= true;
end;
 
writeln('entrez les valeurs des deux noeuds');
readln(a,b);
c := 1;
H2 := H;
while (H2[a,b] = false) and (c <= nb) do
begin
 
for i := 1 to nb do
begin
    for j := 1 to nb do
    begin
         for k:= 1 to nb do
         begin
       H2[i,j]:=H[i,k]and H[k,j] or H2[i,j];
         end;
 
    end;
 
end;
H := H2;
c := c+1;
end;
if c > nb then c:= 0;
writeln('le nombre d arcs entre ',a,' et ',b,' est egal a ',c);
for i := 1 to nb do
begin
    for j := 1 to nb do
    begin
         write(H2[i,j],' ');
    end;
    writeln;
end;
readln  ;
end

Notez le chemin d'accès en dur, il fait référence au fichier contenant les valeurs suivantes :

1 1
1 2
1 3
1 4


Il s'agit d'un fichier texte.

Est-ce que quelqu'un sur le forum pourrait essayer mon code sur son compilateur pascale et me dire si il marche pour lui? Car là je vois vraiment pas ce qui en va pas :/, mais alors pas du tout .

Merci beaucoup pour votre aide.

Gildas.

[darrylsite]

Rebonjour a tous
Je ne vois même pas ce que j'ai pu modifier, mon programme compila correctement 2 minutes puis *pouf*.

Que dit le compilateur? sur quelle ligne?

[Gildas777]

ben justement : le programme compile sans problème!

Il m'affiche: entrez le nombre de nœuds, je tape le chiffre, j'appuie sur entré et POUF! plus rien :/ !

Essaye sur ton compilateur, tu verras c bizarre et là je vois pas ou est le problème car selon le compilateur tout va bien .

[Alcatîz]

Bonjour,

Alors il faut lancer ton programme en mode débogage.
Les principes expliqués dans la FAQ sont pour Turbo Pascal mais, grosso modo, c'est similaire pour tous les EDI : http://pascal.developpez.com/faq/?pa...amme-pas-a-pas

Petite remarque en passant : tu oublies de fermer ton fichier après l'avoir lu.

[droggo]

Joe,

ben justement : le programme compile sans problème!

Il m'affiche: entrez le nombre de nœuds, je tape le chiffre, j'appuie sur entré et POUF! plus rien :/ !

Essaye sur ton compilateur, tu verras c bizarre et là je vois pas ou est le problème car selon le compilateur tout va bien .

Une compilation sans erreur n'est pas synonyme de programme sans erreur !

Tout ce que ça te dit, c'est qu'il n'y a pas d'erreur de syntaxe.

[krachik]

ben justement : le programme compile sans problème!

Il m'affiche: entrez le nombre de nœuds, je tape le chiffre, j'appuie sur entré et POUF! plus rien :/ !

Essaye sur ton compilateur, tu verras c bizarre et là je vois pas ou est le problème car selon le compilateur tout va bien .

Quel compilateur utilises-tu?

[darrylsite]

Je n'ai pas cherché à résoudre ton problème, mais pour que ton code soit un peu correcte, il faudrait initialiser les variables avant de les utiliser (ne jamais laisser de place au hasard ).

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
 
program graphe_clement_gildas;
 
 const
          n = 100;
 type
         Graphe = array[1..n, 1..n] of boolean;
 
 
 var
        H, H2 : Graphe;
        i, j, k, nb, a, b, c : integer;
        F : text ;
 
 procedure initialiser(var tab : Graphe);
  var
       i, j : integer;
 begin
  for i:=1 to n do
   for j:=1 to n do
     tab[i, j]:=false;
 end;
 
Begin
  initialiser(H);
 {...}
End;

Pense à faire une identation régulière de ton code, et à mettre les taches répétitives dans des fonctions.

[Gildas777]

J'utilise le compilateur : Dev-Pascal1.9.2.