/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Pointer2.pas
22 строки
629 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Бестиповые указатели // Им можно присваивать любой адрес, но для использования необходимо // явное приведение к типизированному указателю var i: integer := 5; r: real := 3.14; p: pointer; type pinteger = ^integer; preal = ^real; begin writeln('Исходные значения переменных i и r: '); writeln(i,' ',r); p := @i; pinteger(p)^ := 8; p := @r; preal(p)^ += 1; writeln('Новые значения переменных i и r: '); writeln(i,' ',r); end.