Bonjour,
j' ai passé un examen en ADA et j'aurai aimé que quelqu'un puisse me corrigé une des questions de cet examen.
Décrire par des graphiques l'effet des instructions suivantes:
:type ptr is acces integer;
p1,p2:ptr;
procedure proc1(p:in out ptr; q:ptr)is
begin
p:=q;
end proc1;
procedure proc2(p:ptr;q:ptr)is
begin
p.all := q.all;
end proc2;
begin
p1:= new integer(1);
p2:= new integer(2);
proc2(p1,p2);
proc1(p1,p2);
end;