Discussion :

[amateurc]

Bonjour j'ai vu un exercice sur les pointeurs que je ne comprends pas trop d'abord le voici :

Code ADA :

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
 
with Text_Io; use Text_Io;
with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;
procedure Tab_Ptr_2 is
   type Ptr is access Integer;
   type T_Tab is array(1..3) of Ptr;
   T1: T_Tab;
   T2: T_Tab;
   P: Ptr;
begin
   for I in T1'Range loop
      T1(I):=new Integer'(0);
   end loop;
   T1(3).all:=5;
   P:= new Integer'(0);
   for I in T2'Range loop
      T2(I):= P;
   end loop;
   T2(3).all:=5;
       --  moment cle
   Put("T1(1).all vaut ");
   Put(T1(1).all);
   New_Line;
   Put("T2(1).all vaut ");
   Put (T2 (1).all);
   new_line;
   put("p.all = ");
   put(p.all,1);
   New_Line;
   skip_line;
end Tab_Ptr_2;

Ce que je ne comprend pas ce trouve ici :

Code :

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

1
2
3
4
5
 
for I in T1'Range loop
   T1(I):=new Integer'(0);
end loop;
T1(3).all:=5;

donc là j'ai T1(1)=0; T1(2)=0; T1(3)=5;
et ici :

Code :

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

1
2
3
4
5
6
 
P:= new Integer'(0);
for I in T2'Range loop
   T2(I):= P;
end loop;
T2(3).all:=5;

j'ai chaque cellule de T2 qui est pointé par P mais quelle est la valeur de ces cellules ? perso je pense que c'est T2(1)=0; T2(2)=0; T2(3)=5; mais en regardant la correction je vois que c'est 5 la valeur donc ma question comment ca ce fait pouvez-vous m'expliquer la nuance entre les 2.

[Lowelace]

Bonjour,

Dans le premier cas, tu crées 3 cases (instruction new) dans lequel tu mets 0 par défaut. Puis tu mets 5 dans la 3ème.

Dans le deuxième cas, tu crées une case (P) dans laquelle tu mets 0. Puis, tu stockes l'adresse de cette case dans 3 endroits différents (affectation au T2(I)) , puis tu changes le contenu de cette case (via T2(3).all ) en l'affectant à 5.

Voilà j'espère que tu as saisi la différence.

[amateurc]

Alors comment se fait-il que les autre case de T2 ne valent pas 5 (je me doute que ses à cause de P mais je ne saisi pas comment) ?

[Lowelace]

Et bien si, tous les T2(I).all valent 5 !!!

[PRomu@ld]

Tous les T2 pointent vers le même pointeur, par conséquent lorsque tu modifies le pointeur - soit directement par P, soit par une case du tableau - cela modifie ce qui est pointé par toutes les cases.

Le mieux pour comprendre est de faire un schéma des relations

Le chaînage est le suivant (désolé, je ne suis pas un expert en ascii art )

Code :

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

1
2
3
T2(1) \ 
T2(2)  -> P
T2(3) /

[amateurc]

D'accord merci de m'avoir éclairci