Discussion :

[Atanas]

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.

[Clorish]

C'ets un forum d'entraide ... pas d'assistance.

On ne "fait" pas des programmes ni ne corrige ce qui a ete fait.

Merci de poser les bonnes questions sur des points techniques precis que l'on sera ravi d'approfondir.

D'autre part, si tu peux editer ton post pour y placer les balises de code adequate ca serait sympas.

[Clorish]

Sinon en ce qui concerne ton probleme, je vais t'apporter quand meme 2 ou 3 infos :

Ville_Courrrante permet de pointer vers un ensemble decrivant une ville;
Premiere_Ville pointe vers la premiere ville de la liste.
Ville_RElié pointe vers la ville suivante.

Donc en gros il faut faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
new(ville);  // Creation d'une ville
Premiere_Ville := ville // Affectation en tant que "PRemiere Ville"
Ville_Courrante := PRemiereVille;  // Je prefere le terme "DerniereVille"
New(ville);  // Creation d'une 2e ville.
Ville_Courrante^.Ville_relie := Ville; // On relie la ville a la derniere ed la liste (donc la premiere).
Ville_Courrante := Ville // ou Ville_courrante^.Ville_reliee pour pointer vers la derniere de la liste
New(Ville); // Creation d'uen 3e ville
Ville_Courrante^.Ville_relie := Ville; // On relie la ville a la derniere ed la liste (donc la 2e).
Ville_Courrante := Ville // ou Ville_courrante^.Ville_reliee pour pointer vers la derniere de la liste
Etc ....

[LadyWasky]

Afficher l'adresse mémoire contenue dans un pointeur ?

Dis-donc, ça t'arrive de consulter la ????

MonPointeur:pointer
MaVariable:integer;
Adresse:cardinal;
...

//puis au choix selon que l'on ai affaire à un pointeur ou à une variable :
//1)
Adresse:=Cardinal(MonPointeur); //transtypage de la valeur du pointeur (qui contient une adresse) en valeur entière
Writeln('Adresse :',Adresse);

//2)
Adresse:=Cardinal(@MaVariable); //transtypage de l'adresse de la variable en valeur entière
Writeln('Adresse :',Adresse);