Discussion :

[decoy Octopus]

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 :

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
 
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.

[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;

[decoy Octopus]

voici les enregistrement que j'utilise.

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
 
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.

[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.