Bonsoir , svp je souhaiterais d’abord corriger tout mon programme, 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/cou...al/Chap9.htm#9 Merci de consulter ça en +
Merci d’avance


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
28
29
30
31
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  (*svp 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.