Discussion :

[shelzy01]

Bonjour à tous;
J'ai une liste d'entiers définit comme suit:

Code :

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

1
2
3
4
5
6
 
Type listeEntiers = ^cellule
        cellule = record
                    info : integer;
                    suivant : listeEntiers;
                    end;

Et ma question est la suivante:
Ecrire une procédure récursive permettant d'afficher les éléments de la liste dans l'ordre inverse:

J'ai pensé chercher le dernier élément, l'écrire, puis le supprimer et enfin, on recommence ainsi de suite jusqu'à temps qu'il n'y a plus d'élément.
(En faite on part de la fin et on arrive au début, en supprimant les éléments un à un).

Selon vous est-ce que ma démarche est judicieuse ?

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
procedure inverse (a:listeEntiers) ;
var p:liste;
begin
if a = nil
then write (' La liste est vide, elle ne contient pas d'élément ')
else if a^.suivant = nil
      then write (a^.info)
      else begin
            p:=a
           
            while (a^.suivant <> nil ) do
            begin
            a:=a^.suivant;
            end;
 
            if a^.suivant = nil
            then begin
                   write (a^.info);
                   dispose (a);
                   end;
            end;

p:=a;
inverse (a);
end;

Est-ce que ma procédure est juste ?
Je vous remercie d'avance pour votre réponse

[darrylsite]

Une question, pourquoi pointer p sur a si tu n' utilise pas p :

p:=a

. Ou le dernier p:=a devrait plutot etre a:=p , car à la fin de la procedure a vaudra nil puisque tu as fait dispose(a).
Je n' ai pas pris le temps de verifier chaque ligne de temps code pour la simple raison que tu fais plus qu' on te le demande :

Ecrire une procédure récursive permettant d'afficher les éléments de la liste dans l'ordre inverse

On ne demande pas de supprimer les element un à un en partant de la fin. Moi je pensais plutot à un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure inverse (a:listeEntiers) ;
   begin
   {on empile les appels tant la fin de la liste n' est pas encore atteinte}
   if a^.suivant<>nil then
     inverse(a^.suivant);
   {on commence à ecrire la valeur du dernier element}
   {comme son suivant vaut nil, affiche son info en premier et on commence}
   {à deplier les appels en affichant les elements dans l' ordres inverse}
   writeln(a^.info);
  end;

[shelzy01]

Bonjour darrylsite ;
Je te remercie pour ta réponse, de plus ton code est très court par rapport au mien, merci

Stp, si ça ne te déranges pas, pourrais-tu jeter un coup d'œil sur un exercice que j'ai fais, il comporte 3, là première est juste, mais les 2 dernières je ne sais pas , ça fait 2 jours que j'attends une réponse, ce serai vraiment super si tu pourrais m'aider, je t'en remercie d'avance, voici le site:
http://www.developpez.net/forums/sho...d.php?t=467997