/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
3.0
TestSamples/CompilationSamples/pointertest.pas
16 строк
221 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
function f(p:pointer):pointer; begin //var i:=10; //result:=@i; result:=p; end; begin var i:=1; writeln(@i); writeln(f(@i)); var p:=@i; var ptr:pointer; ptr:=p; p:=pinteger(ptr); writeln(p^); end.