Pascal , . , , .
, , .
TYPE
RefInt = ^INTEGER;
VAR
PInt1, PInt2: RefInt;
= <> .
- , , NIL .
NIL.
PInt1:= PInt2; | |
PInt1:= NIL; |
.
NEW(PInt1); | |
PInt1^:= 1; | |
New(PInt2); | |
PInt2^:= PInt1^; |
.
DISPOSE(PInt1); |
DISPOSE , .
: |
Pascal , . , , .
, , .
TYPE RefInt = ^INTEGER; VAR PInt1, PInt2: RefInt;
= <> .
- , , NIL .
NIL.
.
.
DISPOSE , .
: 2015-05-05; !; : 350 | : : , |