Discussion :

[misteryann]

Bonjour a tous,
J'ai un ptit prob, lorsque je parcours ma liste chainée, je me retrouve avec un mailon supplémentaire...
Je ne sais aps d'où celà vient, pouvez vous jetter un oeil, svp?
merci

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
 
type voisins      = ^voisin;
       voisin       = record
                        info : integer;
                        suiv : voisins;
                      end;
  procedure init_voisins  (var pinit : voisins);
  begin
    pinit:=nil;
  end;
  procedure ajout_voisins (var pinit : voisins ; pays : integer);
    var q, pc, pa : voisins;
  begin
    new(q);
    q^.info:=pays;
    if pinit=nil
      then begin
             q^.suiv:=nil;
             pinit:=q
           end
      else if pinit^.info>pays
              then begin
                     q^.suiv:=pinit;
                     pinit:=q
                   end
              else begin
                     pc:=nil;
                     pa:=pinit;
                     while (pa^.info<pays)and(pa^.suiv<>nil)do
                     begin
                       pc:=pa;
                       pa:=pa^.suiv
                     end;
                     if pa^.info > pays
                       then begin
                              q^.suiv:=pc^.suiv;
                              pc^.suiv:=q
                            end
                       else begin
                              pa^.suiv:=q;
                              q^.suiv:=nil
                            end;
                   end;
  end;

[Alcatîz]

Bonjour !

Ben à partir du moment où tu alloues une variable dynamique q, que tu l'initialises et que tu l'ajoutes à ta liste chaînée, le tout dans une procédure qui s'appelle ajout_quelque chose, tu te retrouves assez logiquement avec un maillon supplémentaire !?!

Es-tu sûr(e) d'avoir posté le bon morceau de programme ?

[misteryann]

en fait, je fais 5 ajouts...
et lorsque je parcours ma chaine, il fait comme si il en avait 6, et je me retrouve avec des bugs...
enfin voici le morceau de code du parcours...

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
 
function attaquesui_ai1(njoueur:integer;var att,def:integer ;var monde:carte):boolean;
  var pcv : voisins;
      i_vois, u_vois, cpt : integer;
      s : string;
      attac : boolean;
begin
  attac:=false;
  cpt:=1;
  pcv:=monde[att].voisins;
  while (pcv<>nil)and(monde[pcv^.info].proprio=njoueur)do begin
                                                            pcv:=pcv^.suiv;
                                                            cpt:=cpt+1;
                                                          end;
  if monde[pcv^.info].proprio<>njoueur
    then begin
           attac:=true;
           i_vois:=pcv^.info;
           u_vois:=monde[i_vois].unite;
           outtextxy(150,150,monde[i_vois].nom);
           str(cpt,s);
           outtextxy(150,160,s);
           readln;
         end;
  while pcv<>nil do
  begin
    if (monde[pcv^.info].unite<u_vois)and(monde[pcv^.info].proprio<>njoueur)
      then begin
             u_vois:=monde[pcv^.info].unite;
             i_vois:=pcv^.info;
           end;
    pcv:=pcv^.suiv;
  end;
  def:=i_vois;
  attaquesui_ai1:=attac;
end;

avec :

Code :

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

1
2
3
4
5
6
7
8
 
     territoire   = record
                        nom     : string;
                        coord   : array[1..2]of integer;
                        voisins : voisins;
                        proprio, unite : integer;
                      end;
       carte        = array[1..nb_pays] of territoire;

[Alcatîz]

A priori je n'ai pas vu de faute de logique dans ta procédure ajout_voisins mais je me pose deux petites questions au sujet de la fonction attaquesui_ai1 :

1. Juste après la boucle

Code :

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

1
2
3
4
5
  while (pcv <> nil) and (monde[pcv^.info].proprio = njoueur) do
    begin
      pcv:=pcv^.suiv;
      cpt:=cpt+1;
    end;

tu fais le test

Code :

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

if monde[pcv^.info].proprio <> njoueur

Ma question : est-il impossible que pcv ait la valeur nil avant le test ?

2. Ne dois-tu pas réinitialiser la valeur de pcv avant la dernière boucle ?

Code :

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

while pcv <> nil do

Tu devrais peut-être écrire une petite procédure de parcours qui ne fait qu'afficher le contenu de ta liste chaînée : tu verrais déjà si elle te trouve 6 éléments au lieu de 5.

[misteryann]

Bien vu!!!!!!!!!!!!!!!!!
Pour le 1... J'avais en effet pas traité le cas ou pcv=nil...
Deux jours dessus...
Merci!!!!!!

Pour Alcatîz, hip^.hip^.hip^.hourra

[Alcatîz]

Hooooo c'est trop, c'est trop !
Et je n'étais pas en forme, sur ce coup-là...

Heureux d'avoir été utile.
Bonne prog !