.


:




:

































 

 

 

 





 

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 , .

 





:


: 2015-05-05; !; : 350 |


:

:

,
==> ...

1733 - | 1500 -


© 2015-2024 lektsii.org - -

: 0.008 .