[LG]liste chainee + pointeur + affichage

**k_ro** · 14/12/2003, 10h49

voila j'ai un petit probleme, mon programme compile mais ne fonctionne pas comme j'aimerai,pourriez vous m'aider.
mon prog est cense demande a l'utilisateur les valeurs q'il veut mettre dans sa liste (procedure creation)et ensuite les afficher (procedure affichage) mais le pb c que le prog affiche tjs le dernier element...
merci d'avance de votre aide

voici une partie de mon prog:

procedure creation (var tdl,fdl:ptliste; element:integer;nbel:integer);
{procedure qui initialise la liste chainee en fonction des valeurs desirees par l'utilisateur}

var nouveau : ptliste;
var I : integer;

begin
nb_tot_el := 0;
{le nbre d'element de la liste est encore nul donc initialisation du compteur a 0}
new(nouveau);
{creation d'1 espace dans la memoire ayant pour taille celle du ptliste}
for I := 1 to nbel do
begin
writeln ('quel element doit on ajouter?');
readln (element);
nouveau^.info := element;
nouveau^.suiv := nil;
if tdl <> nil
then fdl^.suiv := nouveau
else tdl := nouveau;
nb_tot_el := nb_tot_el + 1;
{on incremente le compteur a chaque passage dans la boucle}
end;
writeln ('le nb d''element ki compose votre liste est de :', nb_tot_el);
end;

procedure affichage (fdl:ptliste;nb_tot_el:integer);
{procedure qui affiche a l'ecran de l'utilisateur les elements composant la liste}

var ptint : ptliste;
var I : integer;

begin
for I := 1 to nb_tot_el do
begin
ptint := fdl;
while ptint <> nil do
begin
writeln (ptint^.info);
ptint := ptint^.suiv;
end;
end;
end;

**M.Dlb** · 14/12/2003, 11h32

LISEZ LES REGLES DU FORUM

Dans ta liste, tu ajoute l'élément passé en paramètre nbel fois, donc c'est toujours le même que tu ajoutes.... Donc c'est toujours le même que tu affiches....

Allez je me fais plaisir

**MCoder** · 14/12/2003, 11h37

Pourquoi "new(nouveau)" est en dehors de la boucle "For ..." ?

**mister_dsg** · 15/12/2003, 19h07

tu t un peu planter dans ton bordel
tiens regarde ça

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
 
procedure creer_liste_chaine(var TDL:ptliste;var nbelem:integer);
var element:integer;
    ptint:ptliste;
    i:integer;
begin
     ptint:=nil;
     writeln('nombre d''‚l‚ment de d‚part : ');
     readln(nbelem);
     for i:=1 to nbelem do
         begin
           write('valeur de l''‚l‚ment nø ',i);
           writeln;
           readln(element);
           insere_tete(ptint,element);
         end;
     TDL:=ptint;
end;

aussi pour l'insertion en tete qui sert pas mal

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure insere_tete(var TDL:ptliste;element:integer);
var nouveau:ptliste;
begin
     new(nouveau);
     nouveau^.elem:=element;
     nouveau^.suiv:=TDL;
     TDL:=nouveau;
end;

et maintenant pour l'affichage

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
 
 
procedure afficher_liste(TDL:ptliste);
var ptint:ptliste;
begin
     ptint:=TDL;
     if TDL=nil then writeln('il n''y a pas encore de liste cr‚e')
     else begin
            while (ptint<>nil) do
                  begin
                       write(' ',ptint^.elem,' ');
                       ptint:=ptint^.suiv;
                  end;
            writeln;
          end;
end;