👤
a fost răspuns

Ma ajutati va rog cu rezolvarea acestei probleme
Var a,b:integer
Begin
New(B); a:=b
a^:=2;writeln(a^,b^)
New(a),a^:=b-2
writeln (a^,b^);
b^:=5; a:=b;
writeln(a^,b^);
end.

Răspuns :

Var a,b:^integer; {a si b - adrese a variabilelor dinamice, variabilelor a si b le mai numesc variabile de tip referinta}

Begin

New(B);  { se creaza variabila dinamica, adresa careia se pune in variabila b}

a:=b

;  {variabila de referinta a primeste aceeasi adresa a lui b, adica ele indica aceeasi locatie de memorie}

a^:=2; {variabila dinamica primeste valoarea 2}

writeln(a^,b^)  { se afiseaza 22, deoarece ambele variabile dinamice au aceeasi locatie}

New(a); {se creaza o noua locatie pentru variabila dinamica a^}

a^:=b-2

; { a primeste valoarea 2-2, adica 0, deoarece b^=2}

writeln (a^,b^);  {se afiseaza la ecran 02, valorile lui a^ si b^}

b^:=5; { variabila dinamica b^ primeste o noua valoare, 5}

a:=b;   { adresa variabilei a devine iara adresa variabilei b, adica ele indica aceeasi locatie de memorie}

writeln(a^,b^);   { se afiseaza la ecran 55, valorile lui a^ si b^}

end.

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!


ID Learners: Alte intrebari