Récupérer le Nième élément d'une liste chaînée

Version imprimable

Bonjour.

J'ai une liste simplement chaînée de plusieurs points, un point étant défini par une abscisse x, une ordonnée y et nom Z.
J'ai créé ma liste, et je souhaite récupérer le Nieme point designé par un entier.

Voici ce que j'ai écrit :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 FUNCTION niemePoint (n : integer ; p : t_polygone) : t_point; var i:integer ; c1:t_cellule; begin i:=0; c1:= p.tete^; repeat c1:=p.cellule.suivant^; i:=i+1; until (i=n); niemepoint:=c1.item; end;
N'étant pas tres à l'aise avec les listes, je ne doute pas qu'il y a une erreur.

Merci d'avance.

03/11/2006, 17h30
boromir73

Coordonnées (x, y) et nom Z ? Plutôt bizarre...

Tu as fait un mauvais choix de boucle : il vaudrait mieux utiliser for ou while dans ce cas (teste avec n=0)

Ta boucle affecte toujours la même valeur à c1 ; je n'ai pas la définition des types que tu utilises mais je pense que tu voulais dire c1 := c1^.cellule.suivant;

voici les enregistrement que j'utilise.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
TYPE 	pointeur = ^t_cellule;
 
        t_point = RECORD
		x   : integer;
		y   : integer;
		nom : string
	END;
        t_cellule = RECORD
        item     : t_point;
                suivant  : pointeur
 
        END;
 	t_polygone = RECORD
                tete     : pointeur;
                queue    : pointeur;
                cellule  : t_cellule;
		nb_point : integer
	END;

je peux pas mettre c1 a la place de p car c1 est de type t_cellule et p est de type t_polygone.

03/11/2006, 18h03
boromir73

c1 et p.tete sont de type pointeur : l'initialisation doit être c1 := p.tete

c1^ est de type t_cellule, donc le traitement de c1 dans la boucle est c1 := c1^.suivant

Le principe d'une liste chaînée est que chaque maillon contient un pointeur vers le maillon suivant : p n'intervient pas dans ce cas.