Discussion :

[afterthenext]

Bonjour,

voila l'énoncé de mon exercice:
soit une liste L d'entiers strictement positifs, écrire une procédure qui, étant L, crée une liste R contenant les multiples du minimum de la liste L , selon un parcours droite----> gauche.

la solution que j'ai fais moi même:

soit les types suivant:

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
type Liste=^cellule; 
cellule=enregistrement ;
inf :entier ;
suivant :liste ;
fin ;
 
procédure calculR (E/ L :liste ; E-S/ R :liste) ;
var P,Q :liste ; 
min :entier ;
debut
P :=L ;
/* on cherche le minimum dans la liste L */
min := p.^inf ;
tant que (P<>nil )faire 
si min> p.^inf) alors min :=p.^info ;
p :=p.^suivant
sinon
p :=p.^suivant ;
fsi ;
fait ;
p :=L ;
tant que (P<>nil) faire
si( p.înfo mode min = 0) alors allouer(Q) ;
q.^info :=P.^info ;

voila c’est tout ce que j’ai pu faire , je pense que jusque là c’est correcte , sauf que j’ai pu faire le lien de chaînage , surtout qu’il s’agit d’aller de droite à gauche.
Merci de m’aider , et surtout de m’expliquer la façon dont on fait le lien ,

Cordialement.

[pseudocode]

voila c’est tout ce que j’ai pu faire , je pense que jusque là c’est correcte , sauf que j’ai pu faire le lien de chaînage , surtout qu’il s’agit d’aller de droite à gauche.
Merci de m’aider , et surtout de m’expliquer la façon dont on fait le lien

Pour construire une liste de droite a gauche, il suffit en fait d'ajouter le nouvel élément au début de la liste. Ce nouvel élément devient ainsi la tête de la liste.

/* au départ la liste est vide */
var L,E:liste;
L := nil;

/* on ajoute un élément qui pointe sur la tete de liste actuelle et devient la nouvelle tete de liste*/
new(E);
E.^suivant := L;
L:=E;