Discussion :

[shelzy01]

Bonjour à tous ;
Alors voilà j'ai un exercice concernant les listes chainées, mais je n'ai pas la correction, si vous pouvez me le corriger ce serai super sympa, merci d'avance.

Voici l'énoncé :

Code :

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

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

1).Etant donnée une liste d'entiers positifs, écrire une fonction permettant de retourner le plus grand élément de la liste.
2).Ecrire une procédure permettant de supprimer le plus grand élément de la liste.
3).Ecrire une procédure qui étant donnée une liste L1, calcule une liste L2 composée des éléments de L1 triée par ordre croissant.

Juste le temps d'écrire la réponse à la première question...

[shelzy01]

1).

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
function plusgrand(a:liste):integer;
var valeur:integer;
      p:liste;
begin
       if a=nil
       then write('La liste ne contient pas d''élément')
       else begin
             p:=a;
a:=a^.suivant;
valeur:=p^.info;
 
while (a<>nil) do
begin
if valeur <= a^.info
then begin
       valeur:=a^.info;
       a:=a^.suivant;
        end;
else begin
       a:=a^.suivant;
      end;
end;
plusgrand:=valeur;
end;

Ai-je bon ?? Merci d'avance de bien vouloir me corriger

[droggo]

Sio,

Pour que le code soit affiché correctement, encadre-le par les balises [ code] et [ /code] (sans les parenthèses, qui ne servent qu'à les désactiver).

Pour le code, ça a l'air d'aller, sauf : à quoi sert la variable p, utilisée seulement pour lire une valeur, et dont on se passe très facilement, ou alors la faire varier en épluchant la liste, plutôt que la variable a.

[shelzy01]

Bonjour Sio
merci de me corriger, p me sert à lire le premier élément de la liste et de le comparer au suivant, sinon je ne vois pas comment ne pas m'en servir

[shelzy01]

Voici la question2).

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
 
procedure supprimer (var a:liste; trouve: boolean);
var valeur:integer;
begin
       if a=nil
       then trouve:=false
       else begin
             valeur:=plusgrand(a); {c'est la question 1). }
             trouve:=true;
             p:=a;
             a:=a^.suivant;
 
             while (valeur > 1)  and (a<>nil) do
             begin
                    if a^.info = valeur
                    then begin
                                  a:=a^.suivant;
                                  p:=p^.suivant;
                                  dispose(p);
                            end
                     else begin
                                  a:=a^.suivant;
                                  p:=p^.suivant;
                            end;
             end;
             end;
end;

Merci d'avance pour votre correction
Si vous trouvez plus simple n'hésitez pas à me corriger

[droggo]

Woe,

Bonjour Sio
merci de me corriger, p me sert à lire le premier élément de la liste et de le comparer au suivant, sinon je ne vois pas comment ne pas m'en servir

Une fois que tu as fait ça :

Code :

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

1
2
3
                    p:=a;
                    a:=a^.suivant;
                    valeur:=p^.info;

p ne te sert plus à rien dans ton code, et tu peux remplacer par

Code :

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

1
2
                    valeur:=a^.info;
                    a:=a^.suivant;

Pour la suite, en lecture rapide:

La déclaration de ta procédure

Code :

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

procedure supprimer (var a:liste; trouve: boolean);

ne permet pas de renvoyer une valeur via le paramètre trouve, car Pascal travaille par défaut par valeur, c'est à dire que les procédures/fonctions travaillent avec une copie locale des paramètres.

Pour que la valeur que tu affectes à ce paramètre soit passée au programme appelant, il faut utiliser le mot-clé var:

Code :

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

procedure supprimer (var a:liste; var trouve: boolean);

Et dans la procédure, que veux-tu faire avec

Code :

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

             while (valeur > 1)  and (a<>nil) do

d'où sort ce valeur > 1 ?

[shelzy01]

Bonsoir

D'accord j'ai compris la question 1 (merci), pour la question 2, comme il faut supprimer le plus grand élément de la liste, donc je fais appel à la question 1, est je vais donc l'appeler valeur.
Je recherche donc dans la liste l'élément le plus grand et je le supprime, c'est vrai que:

Code :

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

1
2
 
valeur > 1

ne sert à rien

Donc on peut écrire:

Code :

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

1
2
 
while (a<>nil) do

Sinon est-il bon ?
Merci pour votre correction

[shelzy01]

Désolè, mais après réflexion à propos de la question 1, il y a quelque chose que je ne comprends pas

valeur:=a^.info;
a:=a^.suivant;

Si je n'écris pas

Code :

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

1
2
3
 
p:=a;
a:=a^.suivant;

il n'y a plus rien qui tiens la cellule, c'est à dire par exemple la cellule contenant la valeur 3
a_ - 3__ - 8__ - 9__
si on fait a:=a^.suivant on passe à la cellule contenant la valeur 8 ??
Je ne comprends pas, pouvez vous m'expliquer je vous en remercie d'avance, sinon la question 2 est juste ?