Discussion :

[sergedarkmaul]

Voilà j'ai un petit probleme. Je dois ajouter un VD dans une Liste Ordonnée. Je n'arrive pas à faire la procedure et je voudrais savoir si quelqu'un pouvait m'aider.

Merci.

[Dom_the_quaker]

excuse moi, mais qu'appelles tu une VD? (c'est juste pour savoir, si je peux t'aider) merci

[sergedarkmaul]

une VD est une variable dynamique.

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
Procedure AJOUT_VD_LO(var pdeb:T_ptr_societaire; pnouv:T_ptr_societaire);
 
var
 
psave,pprec,psuiv:T_ptr_societaire;
trouve:boolean;
 
Begin
 
 if pdeb=NIL
  then
   pdeb:=pnouv
  else
   begin
   if pnouv^.nom<pdeb^.nom
    then
     begin
     psave:=pdeb;
     pdeb:=pnouv;
     pdeb^.psuiv:=psave;
     end
    else
     begin
      pprec:=pdeb;
      psuiv:=pdeb^.psuiv;
      trouve:=false;
      while (pprec^.psuiv<>NIL) and (trouve=false) do
       begin
       if pnouv^.nom<psuiv^.nom
        then
         begin
         pprec^.psuiv:=pnouv;
         pnouv^.psuiv:=psuiv;
         trouve:=true;
         end
        else
         begin
         psave:=psuiv;
         psuiv:=psuiv^.psuiv;
         pprec:=psave;
         end;
       end;
      if pprec^.psuiv=NIL
       then
        pprec^.psuiv:=pnouv;
     end;
   end;
 
 
End;

Voilà ce que j'ai fait ca fonctionne pas trop mal mis j'ai des doute sur certain truc...

[sergedarkmaul]

dsl il a pas fait les indentations...