Deux pointeurs -1@

Marc · Inscrit le: 16 Aoû 2007 Messages: 12

Bonsoir , svp je souhaiterais d’abord corriger tout mon programme, apres lire mon programme vous allez comprendre ,relier trois ville ensemble ,avec le pointeur ville_reliee,pour faire de simple Etude après :
- Afficher les adresses mémoires de{ premiere_ville} et {premiere_ville^.ville_reliee := ville_courante} afin de savoir si il ont la même adresse pas besoin de ajouté { premiere_ville :=ville_courante} avant la ville de Geneve.
Et aussi par ce que (**je ne sais pas si les deux pointeur pointe sur la meme adresse ! de @ville_courante **) (*les deux pointeurs que je parle sont :premiere_ville et ville_reliee,’*)de (premiere_ville^.ville_reliee := ville_courante)
Svp pour l’affichage de l’adresse mémoire je ne sais commet faire ,si vous pouvez aussi m’aidez ?
Merci de consulter ça :

http://ina2.eivd.ch/publications/coursPascal/Chap9.htm#9
Merci d’avance

Program pointeur ;
type t_lien_ville = ^t_ville;
t_ville = record
nom :string; (* caractères *)
nb_habitants : integer;
ville_reliee : t_lien_ville;
end;

var premiere_ville : t_lien_ville;
ville_courante : t_lien_ville;
Begin
new ( ville_courante );
ville_courante^.nom := 'Yverdon';
ville_courante^.nb_habitants := 22000;

premiere_ville := ville_courante;

new ( ville_courante );
ville_courante^.nom := 'Lausanne';
ville_courante^.nb_habitants := 120000;

premiere_ville^.ville_reliee := ville_courante (*le pointeur première_ville ou il se pointe ?*)

premiere_ville :=ville_courante (* j’ai ajouté ça c’est juste ici ou c’est en plus ?*)

new (ville_courante) ;
ville_courante^.nom := ‘Geneve';
ville_courante^.nb_habitants := 22000;
premiere_ville^.ville_reliee := ville_courante
readln ;readln ;
end.