11 lines
403 B
ObjectPascal
11 lines
403 B
ObjectPascal
// Выделение динамической памяти
|
||
var p: ^real;
|
||
|
||
begin
|
||
// Выделили динамическую память и в p записали ее адрес
|
||
New(p);
|
||
p^ := 3;
|
||
writeln('Значение в динамичесской памяти = ',p^);
|
||
// Возврат динамической памяти, на оторую указывает p
|
||
Dispose(p);
|
||
end. |